Transformation of Applicative Specifications into Imperative ...

D.2. FORMAL SPECIFICATION OF THE TRANSFORMER IN RSL1
end
end
trans)), type_expr(res),
et, trans, func),
typesMap(
TRValueExprListProductFunc(
vel,
expTypeList(
arg, lengthVE(vel)), func,
trans, types)))
end
else
/∗List or map application.∗/
TRListMapAppl(ve, vel, et, func, trans, types)
end,
→
TRListMapAppl(ve, vel, et, func, trans, types)
end,
TRFunctionAppl :
ValueExpr × ValueExpr ∗ × ExpType ∗ ×
FUNC × TRANS × TYPES →
ValueExpr
TRFunctionAppl(ve, vel, etl, func, trans, types) ≡
ApplicationExpr(
ve,
〈LetExpr(
〈mk_LetDef(
MakeBinding(
makeBinding(
bindingList(
makeLetBinding(
lengthVE(vel), 0, 〈〉, 〈〉
)))), ProductExpr(vel))〉,
ProductExpr(
makeValueExprList(
vel, etl,
valueExprList(
makeLetBinding(
lengthVE(vel), 0, 〈〉, 〈〉)),
trans, func)))〉),
removeTOI :
ValueExpr ∗ × ExpType ∗ × TRANS →
393