Transformation of Applicative Specifications into Imperative ...

APPENDIX C. FORMAL SPECIFICATIONS OF TRANSFORMATIONS
/∗Checks for transformability of a map expression.
∗/
/∗
Arguments:
=======
me: the map expression
et: the expected type of the components of the
map expression
Results:
=====
Bool: true if the map expression is transformable,
false otherwise
∗/
CheckMapExpr :
MapExpr × MapType × TYPINGS × FUNC × TRANS ×
ENV × TYPES →
Bool × ENV × TYPES
CheckMapExpr(me, et, typings, func, trans, env, types) ≡
case me of
EnumeratedMapExpr(ovel) →
CheckOptValueExprPairList(
ovel, et, typings, func, trans, env, types),
ComprehendedMapExpr(vep, typlist, or) →
let
(b1, env1, types1) =
CheckValueExprList(
〈first(vep), second(vep)〉,
〈tedom(et), terange(et)〉, typings,
func, trans, env, types),
(b2, env2, types2) =
CheckOptRestriction(
or, Known(TypeLiteral(BOOL)), typings,
func, trans, env1, types1)
in
(b1 ∧ b2, env2, types2)
end
end,
/∗Checks for transformability of an optional value
expression list.∗/
/∗
Arguments:
=======
168