X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_2%2Fcomputation%2Fcpxs_cpxs.ma;h=e4c5cea8459a398f33646ccfd9263bdc4a7b855f;hb=e5378812c068074f0ac627541d3f066e135c8824;hp=fa14bfc252ecda088ae9cf658a292277f64db0ab;hpb=928cfe1ebf2fbd31731c8851cdec70802596016d;p=helm.git diff --git a/matita/matita/contribs/lambdadelta/basic_2/computation/cpxs_cpxs.ma b/matita/matita/contribs/lambdadelta/basic_2/computation/cpxs_cpxs.ma index fa14bfc25..e4c5cea84 100644 --- a/matita/matita/contribs/lambdadelta/basic_2/computation/cpxs_cpxs.ma +++ b/matita/matita/contribs/lambdadelta/basic_2/computation/cpxs_cpxs.ma @@ -142,7 +142,7 @@ lemma fqu_cpxs_trans_neq: ∀h,g,G1,G2,L1,L2,T1,T2. ⦃G1, L1, T1⦄ ⊃ ⦃G2, #h #g #G1 #G2 #L1 #L2 #T1 #T2 #H elim H -G1 -G2 -L1 -L2 -T1 -T2 [ #I #G #L #V1 #V2 #HV12 #_ elim (lift_total V2 0 1) #U2 #HVU2 @(ex3_intro … U2) - [1,3: /3 width=7 by fqu_drop, cpxs_delta, ldrop_pair, ldrop_ldrop/ + [1,3: /3 width=7 by fqu_drop, cpxs_delta, ldrop_pair, ldrop_drop/ | #H destruct /2 width=7 by lift_inv_lref2_be/ ] | #I #G #L #V1 #T #V2 #HV12 #H @(ex3_intro … (②{I}V2.T))