- some renaming according to the written version of basic_2

[helm.git] / matita / matita / contribs / lambdadelta / basic_2 / multiple / mr2_mr2.ma

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 03c660fe07803b3b9c9beeac4f172b2583cc51f7..2126666e335b8f91402efa4d9aafcf6654145a32 100644 (file)
--- a/matita/matita/contribs/lambdadelta/basic_2/multiple/mr2_mr2.ma
+++ b/matita/matita/contribs/lambdadelta/basic_2/multiple/mr2_mr2.ma
@@ -21,9 +21,9 @@ include "basic_2/multiple/mr2.ma".
 theorem at_mono: ∀des,i,i1. @⦃i, des⦄ ≡ i1 → ∀i2. @⦃i, des⦄ ≡ i2 → i1 = i2.
 #des #i #i1 #H elim H -des -i -i1
 [ #i #x #H <(at_inv_nil … H) -x //
-| #des #d #e #i #i1 #Hid #_ #IHi1 #x #H
-  lapply (at_inv_cons_lt … H Hid) -H -Hid /2 width=1 by/
-| #des #d #e #i #i1 #Hdi #_ #IHi1 #x #H
-  lapply (at_inv_cons_ge … H Hdi) -H -Hdi /2 width=1 by/
+| #des #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
+  lapply (at_inv_cons_ge … H Hli) -H -Hli /2 width=1 by/
 ]
 qed-.