Transformation of Applicative Specifications into Imperative ...

D.2. FORMAL SPECIFICATION OF THE TRANSFORMER IN RSL1
CheckPreCondGenProduct :
ValueExpr ∗ × FUNC × TRANS × TYPES → Bool
CheckPreCondGenProduct(vel, func, trans, types) ≡
if vel = 〈〉 then true
else
and(
CheckPreCondGen(hd vel, func, trans, types),
CheckPreCondGenProduct(
tl vel, func, trans, types))
end,
CheckPreCondGenSet :
SetExpr × FUNC × TRANS × TYPES → Bool
CheckPreCondGenSet(se, func, trans, types) ≡
case se of
RangedSetExpr(first, second) →
and(
CheckPreCondGen(first, func, trans, types),
CheckPreCondGen(second, func, trans, types)),
EnumeratedSetExpr(ovel) →
case ovel of
ValueExprList(vel) →
CheckPreCondGenProduct(
vel, func, trans, types),
NoValueExprList → true
end,
ComprehendedSetExpr(ve, t, or) →
and(
CheckPreCondGen(ve, func, trans, types),
CheckPreCondOptRestriction(
or, func, trans, types))
end,
CheckPreCondGenList :
ListExpr × FUNC × TRANS × TYPES → Bool
CheckPreCondGenList(le, func, trans, types) ≡
case le of
RangedListExpr(first, second) →
and(
CheckPreCondGen(first, func, trans, types),
CheckPreCondGen(second, func, trans, types)),
EnumeratedListExpr(ovel) →
case ovel of
321