Transformation of Applicative Specifications into Imperative ...

APPENDIX D. SPECIFICATION OF TRANSFORMER IN RSL1
end
end
else true
end
end
else false
end,
CheckPreCondGenLetDef :
LetDef ∗ × FUNC × TRANS × TYPES → Bool
CheckPreCondGenLetDef(ldl, func, trans, types) ≡
if ldl = 〈〉 then true
else
and(
CheckPreCondGen(
value_expr(hd ldl), func, trans, types),
CheckPreCondGenLetDef(
tl ldl, func, trans, types))
end,
CheckPreCondGenElsif :
Elsif ∗ × FUNC × TRANS × TYPES → Bool
CheckPreCondGenElsif(eil, func, trans, types) ≡
if eil = 〈〉 then true
else
and(
and(
CheckPreCondGen(
condition(hd eil), func, trans, types),
CheckPreCondGen(
elsif_case(hd eil), func, trans, types)),
CheckPreCondGenElsif(tl eil, func, trans, types)
)
end,
CheckPreCondGenCaseBranch :
CaseBranch ∗ × FUNC × TRANS × TYPES → Bool
CheckPreCondGenCaseBranch(cbl, func, trans, types) ≡
if cbl = 〈〉 then true
else
and(
CheckPreCondGen(
value_expr(hd cbl), func, trans, types),
CheckPreCondGenCaseBranch(
324