include "datatypes/Zah.ma".
include "NPlus/defs.ma".
-inductive ZEq: Zah \to Zah \to Prop :=
- | zeq: \forall m1,m2,m3,m4,n.
- (m1 + m4 == n) \to (m3 + m2 == n) \to
- ZEq \langle m1, m2 \rangle \langle m3, m4 \rangle
+inductive ZEq: Zah → Zah → Prop :=
+ | zeq: ∀m1,m2,m3,m4,n. m1 ⊕ m4 ≍ n → m3 ⊕ m2 ≍ n →
+ ZEq 〈m1,m2〉 〈m3, m4〉
.
-interpretation "integer equality" 'eq x y =
- (cic:/matita/RELATIONAL/ZEq/defs/ZEq.ind#xpointer(1/1) x y).
+interpretation "integer equality" 'napart x y = (ZEq x y).