]> matita.cs.unibo.it Git - helm.git/blobdiff - matita/matita/contribs/lambdadelta/ground/arith/nat_minus_plus.ma
update from master branch
[helm.git] / matita / matita / contribs / lambdadelta / ground / arith / nat_minus_plus.ma
index ecda40f03cc32b1ca32e434d09e1f036fbf1137b..97c24dbd470ae51b1eb17bb778a677f5df40dfa8 100644 (file)
@@ -25,7 +25,7 @@ lemma nminus_plus_sn_refl_sn (m) (n): m = m + n - n.
 #n #IH <nplus_succ_dx <nminus_succ_bi //
 qed.
 
-(*** minus_plus_m_m *)
+(*** minus_plus_m_m_commutative *)
 lemma nminus_plus_sn_refl_dx (m) (n): m = n + m - n.
 #m #n <nplus_comm //
 qed.
@@ -38,7 +38,7 @@ qed.
 
 (*** minus_plus_plus_l *)
 lemma nminus_plus_dx_bi (m) (n) (o): m - n = (m + o) - (n + o).
-#m #n #o <nminus_plus_assoc <nminus_comm //
+#m #n #o <nminus_plus_assoc <nminus_comm_21 //
 qed.
 
 (* Helper constructions with nplus ******************************************)
@@ -61,7 +61,7 @@ lemma eq_inv_plus_nminus_refl_sn (m) (n) (o):
        | โˆงโˆง ๐ŸŽ = n & ๐ŸŽ = o.
 #m #n @(nat_ind_2_succ โ€ฆ m n) -m -n
 [ /3 width=1 by or_introl, conj/
-| #m #o #Ho
+| #m #_ #o #Ho
   lapply (eq_inv_nplus_bi_sn โ€ฆ (๐ŸŽ) Ho) -Ho
   /3 width=1 by or_intror, conj/
 | #m #n #IH #o