X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fmatita%2Fcontribs%2FRELATIONAL%2FZEq%2Fdefs.ma;h=0fa85f7f0269dc5ade9d712a07d84d6f624bb21d;hb=d9824956d9132109ed5f23380a0a1f9c5181d18a;hp=91beaef0e237d5fd721e90fed5b4b7149ea2fd55;hpb=5c1b44dfefa085fbb56e23047652d3650be9d855;p=helm.git

diff --git a/helm/software/matita/contribs/RELATIONAL/ZEq/defs.ma b/helm/software/matita/contribs/RELATIONAL/ZEq/defs.ma
index 91beaef0e..0fa85f7f0 100644
--- a/helm/software/matita/contribs/RELATIONAL/ZEq/defs.ma
+++ b/helm/software/matita/contribs/RELATIONAL/ZEq/defs.ma
@@ -17,12 +17,10 @@
 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).