Transformation of Applicative Specifications into Imperative ...

C.1. FORMAL SPECIFICATION OF THE TRANSFORMER
TRFormalFuncParam(
ffpl, tef, trans, env,
types †
[ makeBinding(binding_list(ffpl)) ↦→
Known(te) ], prlet),
BracketedTypeExpr(bte) →
TRFormalFuncParam(
ffpl, bte, trans, env, types, prlet)
end
end,
/∗Transforms a formal function parameter list.
∗/
/∗
Arguments:
=======
ffpl: the formal function parameter list
tel: the corresponding type expression list
prlet: let expression used to access types of
interests that are abbreviation types
Result:
=======
FormalFunctionParameter_list: the imperative
version of the formal function parameter list
LetDef_list: the resulting let expression
∗/
TRFFPProduct :
FormalFunctionParameter × TypeExpr ∗ × TRANS ×
ENV × TYPES × LetDef ∗ →
Bool × FormalFunctionParameter × ENV × TYPES ×
LetDef ∗
TRFFPProduct(ffpl, tel, trans, env, types, prlet) ≡
if binding_list(ffpl) = 〈〉
then
if tel = 〈〉
then
(false, mk_FormalFunctionParameter(〈〉), env,
types, prlet)
else
(true, mk_FormalFunctionParameter(〈〉), env,
types, prlet)
end
else
case hd binding_list(ffpl) of
191