X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_2%2Fsubstitution%2Fgr2_gr2.ma;h=22bf6af974b7f7f6cc11ffda4b88ca9c756370e2;hb=50001ac0b45a3f6376e8cbfd9200149a01d68148;hp=9e8ced3a8201902c64cd3560af8f30c929a14dfe;hpb=c559209567ff7ec5e4d3de7fef431398f9ba2559;p=helm.git

diff --git a/matita/matita/contribs/lambdadelta/basic_2/substitution/gr2_gr2.ma b/matita/matita/contribs/lambdadelta/basic_2/substitution/gr2_gr2.ma
index 9e8ced3a8..22bf6af97 100644
--- a/matita/matita/contribs/lambdadelta/basic_2/substitution/gr2_gr2.ma
+++ b/matita/matita/contribs/lambdadelta/basic_2/substitution/gr2_gr2.ma
@@ -22,8 +22,8 @@ theorem at_mono: ∀des,i,i1. @⦃i, des⦄ ≡ i1 → ∀i2. @⦃i, des⦄ ≡
 #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/
+  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/
+  lapply (at_inv_cons_ge … H Hdi) -H -Hdi /2 width=1 by/
 ]
 qed-.