Transformation of Applicative Specifications into Imperative ...

C.1. FORMAL SPECIFICATION OF THE TRANSFORMER
end,
Known(te) →
case te of
TypeName(tn) → tn ∈ dom trans,
TypeExprProduct(tel) →
isGenProduct(ve, tel, trans, func),
FunctionTypeExpr(arg, fa, res) →
isGen(
ve, Known(type_expr(res)), trans, func
),
BracketedTypeExpr(bte) →
isGen(ve, Known(bte), trans, func),
→ false
end,
Unknown → false
end
/∗Checks if a value expression is a generator.
∗/
/∗
Arguments:
=======
ve: the value expression
tel: the type of the value expression
Result:
=======
Bool: true if the value expression is a generator,
false otherwise
∗/
isGenProduct :
ValueExpr × TypeExpr ∗ × TRANS × FUNC → Bool
isGenProduct(ve, tel, trans, func) ≡
if tel = 〈〉 then false
else
if isGen(ve, Known(hd tel), trans, func) then true
else isGenProduct(ve, tl tel, trans, func)
end
end,
/∗Checks if a value expression is a generator.
∗/
/∗
Arguments:
=======
239