Transformation of Applicative Specifications into Imperative ...

APPENDIX D. SPECIFICATION OF TRANSFORMER IN RSL1
if counter = 10 then false
else
if i1 = i2 then true
else greaterEqual(i1, i2 + 1, counter + 1)
end
end,
minusOne : Int → Int
minusOne(i) ≡
case i of
1 → 0,
2 → 1,
3 → 2,
4 → 3,
5 → 4,
6 → 5,
7 → 6,
8 → 7,
9 → 8,
10 → 9
end,
equalsText : Text × Text → Bool
equalsText(t1, t2) ≡ t1 = t2,
emptyAccess : Unit → Access ∗
emptyAccess() ≡
tl 〈AccessValueOrVariableName(
mk_ValueOrVariableName(mk_Id( ′′ DUMMY ′′ )))〉,
isinAccess : Access × Access ∗ → Bool
isinAccess(a, al) ≡
if al = 〈〉 then false
else
if getHeadTextAccess(al) = getTextAccess(a)
then true
else isinAccess(a, tl al)
end
end,
getHeadTextAccess : Access ∗ → Text
getHeadTextAccess(al) ≡ getTextAccess(hd al),
getTextAccess : Access → Text
470