matita/matita/contribs/lambdadelta/basic_2/rt_computation/cprs_etc.ma

   1 lemma lsubr_cprs_trans: ∀G. lsub_trans … (cprs G) lsubr.
   2 /3 width=5 by lsubr_cpr_trans, CTC_lsub_trans/
   3 qed-.
   4
   5 (* Basic_1: was: pr3_pr1 *)
   6 lemma tprs_cprs: ∀G,L,T1,T2. ⦃G, ⋆⦄ ⊢ T1 ➡* T2 → ⦃G, L⦄ ⊢ T1 ➡* T2.
   7 /2 width=3 by lsubr_cprs_trans/ qed.
   8
   9 (* Basic_1: was: nf2_pr3_unfold *)
  10 lemma cprs_inv_cnr1: ∀G,L,T,U. ⦃G, L⦄ ⊢ T ➡* U → ⦃G, L⦄ ⊢ ➡ 𝐍⦃T⦄ → T = U.
  11 #G #L #T #U #H @(cprs_ind_dx … H) -T //
  12 #T0 #T #H1T0 #_ #IHT #H2T0
  13 lapply (H2T0 … H1T0) -H1T0 #H destruct /2 width=1 by/
  14 qed-.