X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fcontribs%2FRELATIONAL-ARITHMETICS%2Fnat_defs.ma;h=30d6cfb5ca1ae1e7dd4dcaafa2c8489f1ef1e89b;hb=9ed9bdd5f158f092114c2d98c2537a9396d6a8d7;hp=a188208f2f76c69c35c6d2fde0b3a4c02e2c5918;hpb=110578d269f4ced34c4317eed5171a7f45884c15;p=helm.git

diff --git a/matita/contribs/RELATIONAL-ARITHMETICS/nat_defs.ma b/matita/contribs/RELATIONAL-ARITHMETICS/nat_defs.ma
index a188208f2..30d6cfb5c 100644
--- a/matita/contribs/RELATIONAL-ARITHMETICS/nat_defs.ma
+++ b/matita/contribs/RELATIONAL-ARITHMETICS/nat_defs.ma
@@ -14,12 +14,8 @@
 
 set "baseuri" "cic:/matita/RELATIONAL-ARITHMETICS/nat_defs".
 
-include "library/logic/equality.ma".
+include "logic/equality.ma".
 
 inductive nat: Set \def
    | O: nat
    | S: nat \to nat.
-
-theorem eq_gen_O_S: \forall (P:Prop). \forall m2. O = S m2 \to P.
- intros. inversion H.
-