Transformation of Applicative Specifications into Imperative ...

APPENDIX D. SPECIFICATION OF TRANSFORMER IN RSL1
end,
→ Unknown
end,
→ Unknown
end,
getMapType : ExpType → MapType
getMapType(et) ≡
case et of
Known(te) →
case te of
TypeExprMap(tem) →
case tem of
FiniteMapTypeExpr(tedom, terange) →
mk_MapType(Known(tedom), Known(terange)),
FiniteMapTypeExpr(tedom, terange) →
mk_MapType(Known(tedom), Known(terange))
end,
→ mk_MapType(Unknown, Unknown)
end,
→ mk_MapType(Unknown, Unknown)
end,
getBracketedType : ExpType → ExpType
getBracketedType(et) ≡
case et of
Known(te) →
case te of
BracketedTypeExpr(bte) → Known(bte),
→ Unknown
end,
Unknown → Unknown
end,
getListMapTypeArg : ExpType → ExpType
getListMapTypeArg(et) ≡
case et of
Known(te) →
case te of
TypeExprList(tel) →
Known(TypeExprProduct(〈TypeLiteral(INT)〉)),
TypeExprMap(tem) →
case tem of
FiniteMapTypeExpr(tedom, terange) →
414