]> matita.cs.unibo.it Git - helm.git/blobdiff - matita/contribs/RELATIONAL-ARITHMETICS/nat_defs.ma
- pipe graphviz markup to tred before generating png/map output to get rid of
[helm.git] / matita / contribs / RELATIONAL-ARITHMETICS / nat_defs.ma
index a188208f2f76c69c35c6d2fde0b3a4c02e2c5918..30d6cfb5ca1ae1e7dd4dcaafa2c8489f1ef1e89b 100644 (file)
 
 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.
-