Transformation of Applicative Specifications into Imperative ...

APPENDIX C. FORMAL SPECIFICATIONS OF TRANSFORMATIONS
IdBinding(id) → [ b ↦→ et ],
Make_ProductBinding(pb) →
makeTYPESBindingList(
binding_list(pb),
expTypeToExpTypeList(
removeBrackets(et), len binding_list(pb)),
trans)
end,
/∗Makes the appropriate TYPES binding from a binding
list.∗/
/∗
Arguments:
=======
b: the binding list
etl: the corresponding expected types
∗/
makeTYPESBindingList :
Binding ∗ × ExpType ∗ × TRANS → TYPES
makeTYPESBindingList(bl, etl, trans) ≡
if bl = 〈〉 then ([ ])
else
makeTYPESBinding(hd bl, hd etl, trans) †
makeTYPESBindingList(tl bl, tl etl, trans)
end,
/∗Makes the appropriate TYPES binding from a binding
list.∗/
/∗
Arguments:
=======
b: the binding list
te: the corresponding types
∗/
makeTYPESMap : Binding ∗ × TypeExpr → TYPES
makeTYPESMap(bl, te) ≡
if bl = 〈〉 then [ ]
else
case hd bl of
IdBinding(id) →
[ hd bl ↦→ Known(te) ] †
makeTYPESMap(tl bl, te),
Make_ProductBinding(bil) →
makeTYPESMap(binding_list(bil), te) †
296