X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fground%2Farith%2Fnat_minus.ma;h=e4ccf83f4f4b5265f3e11c4874523dbdda5f98c0;hb=0bcf2dc1a27e38cb6cd3d44eb838d652926841e0;hp=d975ff3bc59cdc6b145519090877d721d9c6f9dc;hpb=19b0a814861157ba05f23877d5cd94059f52c2e8;p=helm.git diff --git a/matita/matita/contribs/lambdadelta/ground/arith/nat_minus.ma b/matita/matita/contribs/lambdadelta/ground/arith/nat_minus.ma index d975ff3bc..e4ccf83f4 100644 --- a/matita/matita/contribs/lambdadelta/ground/arith/nat_minus.ma +++ b/matita/matita/contribs/lambdadelta/ground/arith/nat_minus.ma @@ -19,10 +19,10 @@ include "ground/arith/nat_pred_succ.ma". (*** minus *) definition nminus: nat → nat → nat ≝ - λm,n. npred^n m. + λm,n. (npred^n) m. interpretation - "minus (positive integers)" + "minus (non-negative integers)" 'minus m n = (nminus m n). (* Basic constructions ******************************************************) @@ -32,7 +32,7 @@ lemma nminus_zero_dx (m): m = m - 𝟎. // qed. (*** minus_SO_dx *) -lemma nminus_one_dx (m): ↓m = m - 𝟏 . +lemma nminus_unit_dx (m): ↓m = m - 𝟏 . // qed. (*** eq_minus_S_pred *)