X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_2%2Fsubstitution%2Ffquq_alt.ma;h=8e5fb500fa771701ae3e2cb4aa7a190bbe0b5e72;hb=52e675f555f559c047d5449db7fc89a51b977d35;hp=cacb1106d1ec3fa1c296794462fba1a023de3428;hpb=75fac6d60f67a4dfa38ea6c2cc45a18eda5d8996;p=helm.git

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 cacb1106d..8e5fb500f 100644
--- a/matita/matita/contribs/lambdadelta/basic_2/substitution/fquq_alt.ma
+++ b/matita/matita/contribs/lambdadelta/basic_2/substitution/fquq_alt.ma
@@ -33,7 +33,7 @@ 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)
 /3 width=5 by fqu_drop_lt, or_introl/ #H destruct
->(ldrop_inv_O2 … HLK) -L >(lift_inv_O2 … HTU) -T //
+>(drop_inv_O2 … HLK) -L >(lift_inv_O2 … HTU) -T //
 qed.
 
 (* Main properties **********************************************************)