enrich
real-abs
with
functions
⌊ . ⌋ : Real → Int;
⌈ . ⌉ : Real → Int;
variables
r : Real;
i : Int;
axioms
floor-le: ⌊r⌋ .r ≤ r;
used for: s, ls;
floor-gr-subone: r < ⌊r⌋ .r + 1.r;
used for: s, ls;
ceil-ge: r ≤ ⌈r⌉ .r;
ceil-ls-add-one: ⌈r⌉ .r < r + 1.r;
end enrich