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=6d270cab31bd6ff42c26c216260386b7b5ccccea;hpb=93cc04b6bdb9772d8e4d96cf019ad8394e26b92a;p=helm.git

diff --git a/helm/software/matita/contribs/RELATIONAL/ZEq/defs.ma b/helm/software/matita/contribs/RELATIONAL/ZEq/defs.ma
index 6d270cab3..0fa85f7f0 100644
--- a/helm/software/matita/contribs/RELATIONAL/ZEq/defs.ma
+++ b/helm/software/matita/contribs/RELATIONAL/ZEq/defs.ma
@@ -12,17 +12,15 @@
 (*                                                                        *)
 (**************************************************************************)
 
-set "baseuri" "cic:/matita/RELATIONAL/ZEq/defs".
+
 
 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).