X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_2%2Fdynamic%2Flsubsv_cpds.ma;h=8c45457cd93f44a93994275ed1ef15466647effe;hb=7e06d9d148ae04a21943377debd933a742d0c2fa;hp=2604db92507fce07752104cb8674f42e2c58045a;hpb=3167db4903eea2eddc60a91cfd922be3672ce077;p=helm.git diff --git a/matita/matita/contribs/lambdadelta/basic_2/dynamic/lsubsv_cpds.ma b/matita/matita/contribs/lambdadelta/basic_2/dynamic/lsubsv_cpds.ma index 2604db925..8c45457cd 100644 --- a/matita/matita/contribs/lambdadelta/basic_2/dynamic/lsubsv_cpds.ma +++ b/matita/matita/contribs/lambdadelta/basic_2/dynamic/lsubsv_cpds.ma @@ -19,7 +19,7 @@ include "basic_2/dynamic/lsubsv_lstas.ma". (* Properties on decomposed extended parallel computation on terms **********) lemma lsubsv_cpds_trans: ∀h,g,G,L2,T1,T2. ⦃G, L2⦄ ⊢ T1 •*➡*[h, g] T2 → - ∀L1. G ⊢ L1 ¡⫃[h, g] L2 → + ∀L1. G ⊢ L1 ⫃¡[h, g] L2 → ∃∃T. ⦃G, L1⦄ ⊢ T1 •*➡*[h, g] T & ⦃G, L1⦄ ⊢ T2 ➡* T. #h #g #G #L2 #T1 #T2 * #T #l1 #l2 #Hl21 #Hl1 #HT1 #HT2 #L1 #HL12 lapply (lsubsv_cprs_trans … HL12 … HT2) -HT2 #HT2