]> matita.cs.unibo.it Git - helm.git/blobdiff - matita/matita/contribs/lambdadelta/ground/arith/nat_pred.ma
milestone update in ground, partial commit
[helm.git] / matita / matita / contribs / lambdadelta / ground / arith / nat_pred.ma
index c753d8f72379f0103801615af9cfcc2012aa0ec0..4acdf37b5f1997531e980ac9b9195b333c28c71e 100644 (file)
@@ -13,7 +13,7 @@
 (**************************************************************************)
 
 include "ground/notation/functions/downarrow_1.ma".
-include "ground/arith/pnat_dis.ma".
+include "ground/arith/pnat_split.ma".
 include "ground/arith/nat.ma".
 
 (* PREDECESSOR FOR NON-NEGATIVE INTEGERS ************************************)
@@ -21,7 +21,7 @@ include "ground/arith/nat.ma".
 (*** pred *)
 definition npred (m): nat ≝ match m with
 [ nzero  ⇒ 𝟎
-| ninj p ⇒ pdis … (𝟎) ninj p
+| ninj p ⇒ psplit … (𝟎) ninj p
 ].
 
 interpretation