X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_2%2Fs_transition%2Ffqu_weight.ma;fp=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_2%2Fs_transition%2Ffqu_weight.ma;h=8969786c941c446a7664d21d3b7e9d20b1df359a;hb=325bc2fb36e8f8db99a152037d71332c9ac7eff9;hp=6a564e0c93df0e4e48aa32b511b4232eeaab8b63;hpb=075441b55fa8a6fa693a1c96ed60ab4d87c42a2d;p=helm.git

diff --git a/matita/matita/contribs/lambdadelta/basic_2/s_transition/fqu_weight.ma b/matita/matita/contribs/lambdadelta/basic_2/s_transition/fqu_weight.ma
index 6a564e0c9..8969786c9 100644
--- a/matita/matita/contribs/lambdadelta/basic_2/s_transition/fqu_weight.ma
+++ b/matita/matita/contribs/lambdadelta/basic_2/s_transition/fqu_weight.ma
@@ -22,8 +22,8 @@ include "basic_2/s_transition/fqu.ma".
 
 lemma fqu_fwd_fw: ∀G1,G2,L1,L2,T1,T2. ⦃G1, L1, T1⦄ ⊐ ⦃G2, L2, T2⦄ → ♯{G2, L2, T2} < ♯{G1, L1, T1}.
 #G1 #G2 #L1 #L2 #T1 #T2 #H elim H -G1 -G2 -L1 -L2 -T1 -T2 //
-#I #G #L #V #T #U #HTU normalize in ⊢ (?%%); -I
-<(lifts_fwd_tw … HTU) -U /3 width=1 by monotonic_lt_plus_r, monotonic_lt_plus_l/
+#I #I1 #I2 #G #L #V #HI12 normalize in ⊢ (?%%); -I
+<(lifts_fwd_tw … HI12) -I1 /3 width=1 by monotonic_lt_plus_r, monotonic_lt_plus_l/
 qed-.
 
 (* Advanced eliminators *****************************************************)