X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_2%2Fmultiple%2Fmr2_mr2.ma;h=858773399e3043e69c4012811a9a2d50ebc67692;hb=37e1b4f314ffae815beca71300688040f8da6939;hp=2126666e335b8f91402efa4d9aafcf6654145a32;hpb=c60524dec7ace912c416a90d6b926bee8553250b;p=helm.git

diff --git a/matita/matita/contribs/lambdadelta/basic_2/multiple/mr2_mr2.ma b/matita/matita/contribs/lambdadelta/basic_2/multiple/mr2_mr2.ma
index 2126666e3..858773399 100644
--- a/matita/matita/contribs/lambdadelta/basic_2/multiple/mr2_mr2.ma
+++ b/matita/matita/contribs/lambdadelta/basic_2/multiple/mr2_mr2.ma
@@ -18,12 +18,12 @@ include "basic_2/multiple/mr2.ma".
 
 (* Main properties **********************************************************)
 
-theorem at_mono: ∀des,i,i1. @⦃i, des⦄ ≡ i1 → ∀i2. @⦃i, des⦄ ≡ i2 → i1 = i2.
-#des #i #i1 #H elim H -des -i -i1
+theorem at_mono: ∀cs,i,i1. @⦃i, cs⦄ ≡ i1 → ∀i2. @⦃i, cs⦄ ≡ i2 → i1 = i2.
+#cs #i #i1 #H elim H -cs -i -i1
 [ #i #x #H <(at_inv_nil … H) -x //
-| #des #l #m #i #i1 #Hil #_ #IHi1 #x #H
+| #cs #l #m #i #i1 #Hil #_ #IHi1 #x #H
   lapply (at_inv_cons_lt … H Hil) -H -Hil /2 width=1 by/
-| #des #l #m #i #i1 #Hli #_ #IHi1 #x #H
+| #cs #l #m #i #i1 #Hli #_ #IHi1 #x #H
   lapply (at_inv_cons_ge … H Hli) -H -Hli /2 width=1 by/
 ]
 qed-.