Transformation of Applicative Specifications into Imperative ...

APPENDIX C. FORMAL SPECIFICATIONS OF TRANSFORMATIONS
Make_ProductBinding(pb) →
let
(b, ffpl ′ , env ′ , types ′ , prlet ′ ) =
TRFormalFuncParam(
mk_FormalFunctionParameter(
binding_list(pb)), hd tel, trans,
env, types, prlet),
(b1, ffpl ′′ , env ′′ , types ′′ , prlet ′′ ) =
TRFFPProduct(
mk_FormalFunctionParameter(
tl binding_list(ffpl)), tl tel,
trans, env ′ , types ′ , prlet ′ )
in
if binding_list(ffpl ′ ) = 〈〉
then
(b ∧ b1,
mk_FormalFunctionParameter(
binding_list(ffpl ′′ )), env ′′ , types ′′ ,
prlet ′′ )
else
if len binding_list(ffpl ′ ) = 1
then
(b ∧ b1,
mk_FormalFunctionParameter(
binding_list(ffpl ′ )
binding_list(ffpl ′′ )), env ′′ ,
types ′′ , prlet ′′ )
else
(b ∧ b1,
mk_FormalFunctionParameter(
〈Make_ProductBinding(
mk_ProductBinding(
binding_list(ffpl ′ )))〉
binding_list(ffpl ′′ )), env ′′ ,
types ′′ , prlet ′′ )
end
end
end,
→
let
(b, ffpl ′ , env ′ , types ′ , prlet ′ ) =
TRFormalFuncParam(
mk_FormalFunctionParameter(
〈hd binding_list(ffpl)〉), hd tel,
192