Transformation of Applicative Specifications into Imperative ...

APPENDIX D. SPECIFICATION OF TRANSFORMER IN RSL1
truncate(te), fa,
mk_ResultDesc(
read_access_desc(rd),
write_access_desc(rd),
truncate(type_expr(rd)))),
BracketedTypeExpr(te) →
case truncate(te) of
TypeLiteral(literal) →
case literal of
UNIT → truncate(te),
→ BracketedTypeExpr(truncate(te))
end,
→ BracketedTypeExpr(truncate(te))
end
end,
truncateTypeExprProduct :
TypeExpr ∗ → TypeExpr ∗
truncateTypeExprProduct(tel) ≡
if tel = 〈〉 then 〈〉
else
case hd tel of
TypeLiteral(literal) →
case literal of
UNIT → truncateTypeExprProduct(tl tel),
→
〈truncate(hd tel)〉
truncateTypeExprProduct(tl tel)
end,
→
〈truncate(hd tel)〉
truncateTypeExprProduct(tl tel)
end
end,
equalsType : TypeExpr × ExpType → Bool
equalsType(te, et) ≡
case et of
Known(ete) → equalsTypes(te, ete),
Unknown → false
end,
equalsTypes : TypeExpr × TypeExpr → Bool
equalsTypes(te1, te2) ≡
408