(* Basic_1: was: nf2_dec *)
(* Basic_2A1: uses: cnr_dec *)
lemma cnr_dec_teqg (S) (h) (G) (L):
- â\88\80T1. â\88¨â\88¨ â\9dªG,Lâ\9d« ⊢ ➡𝐍[h,0] T1
- | â\88\83â\88\83T2. â\9dªG,Lâ\9d« ⊢ T1 ➡[h,0] T2 & (T1 ≛[S] T2 → ⊥).
+ â\88\80T1. â\88¨â\88¨ â\9d¨G,Lâ\9d© ⊢ ➡𝐍[h,0] T1
+ | â\88\83â\88\83T2. â\9d¨G,Lâ\9d© ⊢ 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