commit of the "relocation" component with the new definition of ldrop,

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

diff --git a/matita/matita/contribs/lambdadelta/basic_2/relocation/fquq_alt.ma b/matita/matita/contribs/lambdadelta/basic_2/relocation/fquq_alt.ma
index 1d770dcc439fa1424beb117892c91b341b7b6414..033959bea950c686a63bb39769a447d4693f836b 100644 (file)
--- a/matita/matita/contribs/lambdadelta/basic_2/relocation/fquq_alt.ma
+++ b/matita/matita/contribs/lambdadelta/basic_2/relocation/fquq_alt.ma
@@ -30,7 +30,7 @@ lemma fquqa_refl: tri_reflexive … fquqa.
 // qed.
 
 lemma fquqa_drop: ∀G,L,K,T,U,e.
-                  ⇩[0, e] L ≡ K → ⇧[0, e] T ≡ U → ⦃G, L, U⦄ ⊃⊃⸮ ⦃G, K, T⦄.
+                  ⇩[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 //