X-Git-Url: http://matita.cs.unibo.it/gitweb/?p=helm.git;a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fstatic_2%2Fstatic%2Ffeqx_fqus.ma;h=cf59d2269502f9ab7f03df8e1e69b3f3834a35b6;hp=f929f33b709111bee3796a71917a3fa7ce96381a;hb=bd53c4e895203eb049e75434f638f26b5a161a2b;hpb=3b7b8afcb429a60d716d5226a5b6ab0d003228b1 diff --git a/matita/matita/contribs/lambdadelta/static_2/static/feqx_fqus.ma b/matita/matita/contribs/lambdadelta/static_2/static/feqx_fqus.ma index f929f33b7..cf59d2269 100644 --- a/matita/matita/contribs/lambdadelta/static_2/static/feqx_fqus.ma +++ b/matita/matita/contribs/lambdadelta/static_2/static/feqx_fqus.ma @@ -19,9 +19,9 @@ include "static_2/static/feqx.ma". (* Properties with star-iterated structural successor for closures **********) -lemma feqx_fqus_trans: ∀b,G1,G,L1,L,T1,T. ⦃G1,L1,T1⦄ ≛ ⦃G,L,T⦄ → - ∀G2,L2,T2. ⦃G,L,T⦄ ⬂*[b] ⦃G2,L2,T2⦄ → - ∃∃G,L0,T0. ⦃G1,L1,T1⦄ ⬂*[b] ⦃G,L0,T0⦄ & ⦃G,L0,T0⦄ ≛ ⦃G2,L2,T2⦄. +lemma feqx_fqus_trans: ∀b,G1,G,L1,L,T1,T. ❪G1,L1,T1❫ ≛ ❪G,L,T❫ → + ∀G2,L2,T2. ❪G,L,T❫ ⬂*[b] ❪G2,L2,T2❫ → + ∃∃G,L0,T0. ❪G1,L1,T1❫ ⬂*[b] ❪G,L0,T0❫ & ❪G,L0,T0❫ ≛ ❪G2,L2,T2❫. #b #G1 #G #L1 #L #T1 #T #H1 #G2 #L2 #T2 #H2 elim(feqx_inv_gen_dx … H1) -H1 #HG #HL1 #HT1 destruct elim (reqx_fqus_trans … H2 … HL1) -L #L #T0 #H2 #HT02 #HL2