removing old contribs

[helm.git] / helm / software / matita / contribs / RELATIONAL / ZEq / defs.ma

diff --git a/helm/software/matita/contribs/RELATIONAL/ZEq/defs.ma b/helm/software/matita/contribs/RELATIONAL/ZEq/defs.ma
index 91beaef0e237d5fd721e90fed5b4b7149ea2fd55..0fa85f7f0269dc5ade9d712a07d84d6f624bb21d 100644 (file)
--- 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).