Transformation of Applicative Specifications into Imperative ...

APPENDIX C. FORMAL SPECIFICATIONS OF TRANSFORMATIONS
Bool: true if they are identical, false otherwise
∗/
equalsTypesList :
TypeExprLists × TypeExprLists → Bool
equalsTypesList(tel1, tel2) ≡
case tel1 of
FiniteListTypeExpr(te1) →
case tel2 of
FiniteListTypeExpr(te2) →
equalsTypes(te1, te2),
→ false
end,
InfiniteListTypeExpr(te1) →
case tel2 of
InfiniteListTypeExpr(te2) →
equalsTypes(te1, te2),
→ false
end
end,
/∗Compares two map type expressions.∗/
/∗
Arguments:
=======
tel1: the map type expression
tel2: the map type expression
Results:
=====
Bool: true if they are identical, false otherwise
∗/
equalsTypesMap : TypeExprMaps × TypeExprMaps → Bool
equalsTypesMap(tem1, tem2) ≡
case tem1 of
FiniteMapTypeExpr(tedom1, terange1) →
case tem2 of
FiniteMapTypeExpr(tedom2, terange2) →
equalsTypes(tedom1, tedom2) ∧
equalsTypes(terange1, terange2),
→ false
end,
InfiniteMapTypeExpr(tedom1, terange1) →
case tem2 of
InfiniteMapTypeExpr(tedom2, terange2) →
equalsTypes(tedom1, tedom2) ∧
228