X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_2%2Frt_equivalence%2Fcpcs_csx.ma;fp=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_2%2Frt_equivalence%2Fcpcs_csx.ma;h=a29551ab71baae5a809db1c2c89da0c4cc27d83a;hb=8ec019202bff90959cf1a7158b309e7f83fa222e;hp=777d5ecd7d2831fc1f1ce36379d17aaa3335555e;hpb=33d0a7a9029859be79b25b5a495e0f30dab11f37;p=helm.git diff --git a/matita/matita/contribs/lambdadelta/basic_2/rt_equivalence/cpcs_csx.ma b/matita/matita/contribs/lambdadelta/basic_2/rt_equivalence/cpcs_csx.ma index 777d5ecd7..a29551ab7 100644 --- a/matita/matita/contribs/lambdadelta/basic_2/rt_equivalence/cpcs_csx.ma +++ b/matita/matita/contribs/lambdadelta/basic_2/rt_equivalence/cpcs_csx.ma @@ -22,8 +22,8 @@ include "basic_2/rt_equivalence/cpcs_cprs.ma". (* Basic_1: was: cpcs_dec *) lemma csx_cpcs_dec (h) (G) (L): - ∀T1. ❪G,L❫ ⊢ ⬈*𝐒 T1 → ∀T2. ❪G,L❫ ⊢ ⬈*𝐒 T2 → - Decidable … (❪G,L❫ ⊢ T1 ⬌*[h] T2). + ∀T1. ❨G,L❩ ⊢ ⬈*𝐒 T1 → ∀T2. ❨G,L❩ ⊢ ⬈*𝐒 T2 → + Decidable … (❨G,L❩ ⊢ T1 ⬌*[h] T2). #h #G #L #T1 #HT1 #T2 #HT2 elim (cprre_total_csx h … HT1) -HT1 #U1 #HTU1 elim (cprre_total_csx h … HT2) -HT2 #U2 #HTU2