Transformation of Applicative Specifications into Imperative ...

C.1. FORMAL SPECIFICATION OF THE TRANSFORMER
/∗Checks for transformability of a value definition.
∗/
/∗
Arguments:
=======
vd: the value definition
Results:
=====
Bool: true if the value definition is transformable,
false otherwise
∗/
CheckValueDef :
ValueDef × TYPINGS × FUNC × TRANS → Bool
CheckValueDef(vd, typings, func, trans) ≡
case vd of
ExplicitValueDef(st, ve) →
if
containsTRANSName(
Known(type_expr(st)), typings, dom trans)
then
case binding(st) of
IdBinding(id) →
let
(b, env, types) =
CheckValueExpr(
ve, Known(type_expr(st)), typings,
func, trans, [ ], [ ])
in
b
end,
Make_ProductBinding(pb) → false
end
else true
end,
ExplicitFunctionDef(st, ffa, ve, precond) →
case type_expr(st) of
FunctionTypeExpr(arg, fa, res) →
let
/∗Establishes ENV and TYPES.∗/
(b1, ffap, env, types, prlet) =
TRFormalFuncAppl(ffa, func, trans),
(b2, env ′ , types ′ ) =
CheckOptPreCondition(
precond, Known(TypeLiteral(BOOL)),
153