X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_2%2Frt_transition%2Fcnr_teqg.ma;h=549c6d8dfc8f512296bf4a2598ae68b50e9f1bb4;hb=8d8863982ca95225551e9659ed431db046c34e81;hp=ef7212aaf38231bc1cdca5989aa4736aebc21045;hpb=b118146b97959e6a6dde18fdd014b8e1e676a2d1;p=helm.git diff --git a/matita/matita/contribs/lambdadelta/basic_2/rt_transition/cnr_teqg.ma b/matita/matita/contribs/lambdadelta/basic_2/rt_transition/cnr_teqg.ma index ef7212aaf..549c6d8df 100644 --- a/matita/matita/contribs/lambdadelta/basic_2/rt_transition/cnr_teqg.ma +++ b/matita/matita/contribs/lambdadelta/basic_2/rt_transition/cnr_teqg.ma @@ -24,8 +24,8 @@ include "basic_2/rt_transition/cnr_drops.ma". (* Basic_1: was: nf2_dec *) (* Basic_2A1: uses: cnr_dec *) lemma cnr_dec_teqg (S) (h) (G) (L): - ∀T1. ∨∨ ❪G,L❫ ⊢ ➡𝐍[h,0] T1 - | ∃∃T2. ❪G,L❫ ⊢ T1 ➡[h,0] T2 & (T1 ≛[S] T2 → ⊥). + ∀T1. ∨∨ ❨G,L❩ ⊢ ➡𝐍[h,0] T1 + | ∃∃T2. ❨G,L❩ ⊢ T1 ➡[h,0] T2 & (T1 ≛[S] T2 → ⊥). #S #h #G #L #T1 @(fqup_wf_ind_eq (Ⓣ) … G L T1) -G -L -T1 #G0 #L0 #T0 #IH #G #L * * [ #s #HG #HL #HT destruct -IH