X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_2%2Frt_transition%2Fcpr_teqg.ma;h=ecd66d3f9b50320b894ebd6b0db8cae0f9ef7f4f;hb=HEAD;hp=6a6f17b3798d60ba4e7c80ac6e4ecec6bbe2a8f2;hpb=b118146b97959e6a6dde18fdd014b8e1e676a2d1;p=helm.git diff --git a/matita/matita/contribs/lambdadelta/basic_2/rt_transition/cpr_teqg.ma b/matita/matita/contribs/lambdadelta/basic_2/rt_transition/cpr_teqg.ma index 6a6f17b37..ecd66d3f9 100644 --- a/matita/matita/contribs/lambdadelta/basic_2/rt_transition/cpr_teqg.ma +++ b/matita/matita/contribs/lambdadelta/basic_2/rt_transition/cpr_teqg.ma @@ -21,7 +21,7 @@ include "basic_2/rt_transition/cpr_drops_basic.ma". lemma cpr_abbr_pos_tneqx (S) (h) (G) (L) (V) (T1): symmetric … S → (∀s1,s2. Decidable (S s1 s2)) → - ∃∃T2. ❪G,L❫ ⊢ +ⓓV.T1 ➡[h,0] T2 & (+ⓓV.T1 ≛[S] T2 → ⊥). + ∃∃T2. ❨G,L❩ ⊢ +ⓓV.T1 ➡[h,0] T2 & (+ⓓV.T1 ≛[S] T2 → ⊥). #S #h #G #L #V #U1 #H1S #H2S elim (cpr_subst h G (L.ⓓV) U1 … 0) [|*: /2 width=4 by drops_refl/ ] #U2 #T2 #HU12 #HTU2 elim (teqg_dec … H2S U1 U2) [ -HU12 #HU12 | -HTU2 #HnU12 ]