Transformation of Applicative Specifications into Imperative ...

C.1. FORMAL SPECIFICATION OF THE TRANSFORMER
of type names
of the type of interest, false otherwise
∗/
onlyTOIArgument :
ValueExpr ∗ × TRANS × TYPES → Bool
onlyTOIArgument(vel, trans, types) ≡
if vel = 〈〉 then true
else
case hd vel of
Make_ValueOrVariableName(vn) →
if isinBinding(IdBinding(id(vn)), dom types)
then
if
checkTRANS(
types(IdBinding(id(vn))), dom trans)
then onlyTOIArgument(tl vel, trans, types)
else false
end
else false
end,
→ false
end
end,
/∗Checks if a value expression returns other values
than values of the type of interest.∗/
/∗
Arguments:
=======
ve: the value expression
et: the expected type of the value expression
Result:
=======
Bool: true if the value expression returns values
not of the type of interest, false otherwise
∗/
returnsNonTOI :
ValueExpr × ExpType × TRANS × FUNC → Bool
returnsNonTOI(ve, et, trans, func) ≡
case ve of
ApplicationExpr(vea, vel) →
case vea of
Make_ValueOrVariableName(vn) →
case type_expr(func(id(vn))) of
241