- some renaming according to the written version of basic_2

[helm.git] / matita / matita / contribs / lambdadelta / basic_2 / substitution / fquq_alt.ma

diff --git a/matita/matita/contribs/lambdadelta/basic_2/substitution/fquq_alt.ma b/matita/matita/contribs/lambdadelta/basic_2/substitution/fquq_alt.ma
index 619bb0b4a7aa29be0b04595519f56bb820899023..08a755b55211e565141ad0ffbf149f7ed1e622fb 100644 (file)
--- a/matita/matita/contribs/lambdadelta/basic_2/substitution/fquq_alt.ma
+++ b/matita/matita/contribs/lambdadelta/basic_2/substitution/fquq_alt.ma
@@ -29,9 +29,9 @@ interpretation
 lemma fquqa_refl: tri_reflexive … fquqa.
 // qed.
 
-lemma fquqa_drop: ∀G,L,K,T,U,e.
-                  ⬇[e] L ≡ K → ⬆[0, e] T ≡ U → ⦃G, L, U⦄ ⊐⊐⸮ ⦃G, K, T⦄.
-#G #L #K #T #U #e #HLK #HTU elim (eq_or_gt e)
+lemma fquqa_drop: ∀G,L,K,T,U,m.
+                  ⬇[m] L ≡ K → ⬆[0, m] T ≡ U → ⦃G, L, U⦄ ⊐⊐⸮ ⦃G, K, T⦄.
+#G #L #K #T #U #m #HLK #HTU elim (eq_or_gt m)
 /3 width=5 by fqu_drop_lt, or_introl/ #H destruct
 >(drop_inv_O2 … HLK) -L >(lift_inv_O2 … HTU) -T //
 qed.