matita/matita/contribs/lambdadelta/basic_2/etc/cprs/cprs.etc

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