Transformation of Applicative Specifications into Imperative ...

D.2. FORMAL SPECIFICATION OF THE TRANSFORMER IN RSL1
case te of
TypeExprProduct(tep) →
typeExprListToExpTypeList(tep),
TypeLiteral(ln) →
case ln of
UNIT → 〈〉,
→ 〈Known(te)〉
end,
→ 〈Known(te)〉
end,
typeExprListToExpTypeList :
TypeExpr ∗ → ExpType ∗
typeExprListToExpTypeList(tel) ≡
if tel = 〈〉 then 〈〉
else
〈Known(hd tel)〉
typeExprListToExpTypeList(tl tel)
end,
getSetType : ExpType → ExpType
getSetType(et) ≡
case et of
Known(te) →
case te of
TypeExprSet(tes) →
case tes of
FiniteSetTypeExpr(fse) → Known(fse),
InfiniteSetTypeExpr(ise) → Known(ise)
end,
→ Unknown
end,
→ Unknown
end,
getListType : ExpType → ExpType
getListType(et) ≡
case et of
Known(te) →
case te of
TypeExprList(tes) →
case tes of
FiniteListTypeExpr(fse) → Known(fse),
InfiniteListTypeExpr(ise) → Known(ise)
413