Transformation of Applicative Specifications into Imperative ...

D.2. FORMAL SPECIFICATION OF THE TRANSFORMER IN RSL1
else containsGen(tl vel, tl etl, trans, func)
end
end,
isGen : ValueExpr × ExpType × TRANS × FUNC → Bool
isGen(ve, et, trans, func) ≡
case ve of
ApplicationExpr(vea, vel) →
case vea of
Make_ValueOrVariableName(vn) →
not(
lengthAccess(
write_list(
getMapValueFUNC(func, id(vn)))) = 0),
→ false
end,
→
case et of
Known(te) →
case te of
TypeName(tn) →
isinId(tn, domainTRANS(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
end,
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
417