enrich
int-div
with
functions . ^2 : int → int;
sqrt : int → int;
predicates isSquare : int;
axioms Square-def : ⊦ i ^2 = i * i;
used for: ls;
Sqrt-def : ⊦ 0 ≤ i → sqrt(i) ^2 ≤ i ∧ i < sqrt(i) +1 ^2;
used for: nokodkodax;
isSquare-def : ⊦ isSquare(i) ↔ (∃ j. j * j = i);
end enrich