Transformation of Applicative Specifications into Imperative ...

D.2. FORMAL SPECIFICATION OF THE TRANSFORMER IN RSL1
end,
end
end
TRFormalFuncAppl(
ffa, func, trans
)),
letdefList(
TRFormalFuncAppl(
ffa, func, trans
)))))))),
preCond(
TROptPreCondition(
precond,
Known(TypeLiteral(BOOL)), func,
trans,
alterTYPESMap(
typesMap(
TRFormalFuncAppl(
ffa, func, trans)),
letdefList(
TRFormalFuncAppl(
ffa, func, trans))))))
TRSingleTyping :
SingleTyping × FUNC × TRANS → SingleTyping
TRSingleTyping(st, func, trans) ≡
case binding(st) of
IdBinding(id) →
mk_SingleTyping(
binding(st),
TRTypeExpr(id, type_expr(st), func, trans))
end,
TRTypeExpr :
Id × TypeExpr × FUNC × TRANS → TypeExpr
TRTypeExpr(id, te, func, trans) ≡
case te of
TypeLiteral(literal) → te,
TypeName(tid) →
if isinId(tid, domainTRANS(trans))
then
/∗Type expression of a type of interest.∗/
TypeLiteral(UNIT)
else
359