X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_2%2Frt_transition%2Flfpx_frees.ma;h=d949c0a197968c3bdff6ac9977cba478e08320e8;hb=981599dd384b3424c60297ea3a64ab0af9788ea2;hp=1ec892cbf054a980d323bc394eee386e5eff667d;hpb=86badc0111c3626c4a547d09302acc7e6a179dea;p=helm.git diff --git a/matita/matita/contribs/lambdadelta/basic_2/rt_transition/lfpx_frees.ma b/matita/matita/contribs/lambdadelta/basic_2/rt_transition/lfpx_frees.ma index 1ec892cbf..d949c0a19 100644 --- a/matita/matita/contribs/lambdadelta/basic_2/rt_transition/lfpx_frees.ma +++ b/matita/matita/contribs/lambdadelta/basic_2/rt_transition/lfpx_frees.ma @@ -24,7 +24,7 @@ include "basic_2/rt_transition/cpx_drops.ma". (* Basic_2A1: uses: lpx_cpx_frees_trans *) lemma cpx_frees_conf_lfpx: ∀h,G,L1,T1,f1. L1 ⊢ 𝐅*⦃T1⦄ ≡ f1 → - ∀L2. L1 ⦻*[cpx h G, cfull, f1] L2 → + ∀L2. L1 ⪤*[cpx h G, cfull, f1] L2 → ∀T2. ⦃G, L1⦄ ⊢ T1 ⬈[h] T2 → ∃∃f2. L2 ⊢ 𝐅*⦃T2⦄ ≡ f2 & f2 ⊆ f1. #h #G #L1 #T1 @(fqup_wf_ind_eq … G L1 T1) -G -L1 -T1