X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_2%2Fgrammar%2Flenv_length.ma;h=7c31b59e75152f196c6730615846affee229983b;hb=c60524dec7ace912c416a90d6b926bee8553250b;hp=faf6de02d1dfe6e55d1253c97718637c0e1fdb4f;hpb=f10cfe417b6b8ec1c7ac85c6ecf5fb1b3fdf37db;p=helm.git

diff --git a/matita/matita/contribs/lambdadelta/basic_2/grammar/lenv_length.ma b/matita/matita/contribs/lambdadelta/basic_2/grammar/lenv_length.ma
index faf6de02d..7c31b59e7 100644
--- a/matita/matita/contribs/lambdadelta/basic_2/grammar/lenv_length.ma
+++ b/matita/matita/contribs/lambdadelta/basic_2/grammar/lenv_length.ma
@@ -33,20 +33,20 @@ lemma length_inv_zero_sn: ∀L. 0 = |L| → L = ⋆.
 * // #L #I #V normalize <plus_n_Sm #H destruct
 qed-.
 
-lemma length_inv_pos_dx: ∀d,L. |L| = d + 1 →
-                         ∃∃I,K,V. |K| = d & L = K. ⓑ{I}V.
-#d *
+lemma length_inv_pos_dx: ∀l,L. |L| = l + 1 →
+                         ∃∃I,K,V. |K| = l & L = K. ⓑ{I}V.
+#l *
 [ normalize <plus_n_Sm #H destruct
 | #K #I #V #H
-  lapply (injective_plus_l … H) -H /2 width=5/
+  lapply (injective_plus_l … H) -H /2 width=5 by ex2_3_intro/
 ]
 qed-.
 
-lemma length_inv_pos_sn: ∀d,L. d + 1 = |L| →
-                         ∃∃I,K,V. d = |K| & L = K. ⓑ{I}V.
-#d *
+lemma length_inv_pos_sn: ∀l,L. l + 1 = |L| →
+                         ∃∃I,K,V. l = |K| & L = K. ⓑ{I}V.
+#l *
 [ normalize <plus_n_Sm #H destruct
 | #K #I #V #H
-  lapply (injective_plus_l … H) -H /2 width=5/
+  lapply (injective_plus_l … H) -H /2 width=5 by ex2_3_intro/
 ]
 qed-.