Transformation of Applicative Specifications into Imperative ...

APPENDIX C. FORMAL SPECIFICATIONS OF TRANSFORMATIONS
removeDuplets(
getAccess(type_expr(st), trans)
accessList(
getAccessGen(
{id}, ve,
Known(type_expr(st)), func,
trans)))) ],
Make_ProductBinding(pb) → [ ]
end
else [ ]
end,
ExplicitFunctionDef(st, ffa, ve, precond) →
case binding(st) of
IdBinding(id) →
case type_expr(st) of
FunctionTypeExpr(arg, fa, res) →
[ id ↦→
mk_FuncSpec(
type_expr(st), ve,
removeDuplets(
getAccess(arg, trans)
accessList(
getAccessObs(
{id}, ve,
Known(type_expr(res)),
func, trans))
accessList(
getAccessObsOptPreCondition(
{id}, precond,
Known(TypeLiteral(BOOL)),
func, trans))),
removeDuplets(
getAccess(type_expr(res), trans)
accessList(
getAccessGen(
{id}, ve,
Known(type_expr(res)),
func, trans)))) ]
end
end
end,
/∗**** FUNC end ****∗/
292