(* Properties with t-bound rt-computation on terms **************************)
lemma cpes_cprs_trans (h) (n) (G) (L) (T0):
- â\88\80T1. â¦\83G,Lâ¦\84 ⊢ T1 ⬌*[h,n,0] T0 →
- â\88\80T2. â¦\83G,Lâ¦\84 â\8a¢ T0 â\9e¡*[h] T2 â\86\92 â¦\83G,Lâ¦\84 ⊢ T1 ⬌*[h,n,0] T2.
+ â\88\80T1. â\9d¨G,Lâ\9d© ⊢ T1 ⬌*[h,n,0] T0 →
+ â\88\80T2. â\9d¨G,Lâ\9d© â\8a¢ T0 â\9e¡*[h,0] T2 â\86\92 â\9d¨G,Lâ\9d© ⊢ T1 ⬌*[h,n,0] T2.
#h #n #G #L #T0 #T1 * #T #HT1 #HT0 #T2 #HT02
elim (cprs_conf … HT0 … HT02) -T0 #T0 #HT0 #HT20
/3 width=3 by cpms_div, cpms_cprs_trans/
qed-.
lemma cpes_cpms_div (h) (n) (n1) (n2) (G) (L) (T0):
- â\88\80T1. â¦\83G,Lâ¦\84 ⊢ T1 ⬌*[h,n,n1] T0 →
- â\88\80T2. â¦\83G,Lâ¦\84 â\8a¢ T2 â\9e¡*[n2,h] T0 â\86\92 â¦\83G,Lâ¦\84 ⊢ T1 ⬌*[h,n,n2+n1] T2.
+ â\88\80T1. â\9d¨G,Lâ\9d© ⊢ T1 ⬌*[h,n,n1] T0 →
+ â\88\80T2. â\9d¨G,Lâ\9d© â\8a¢ T2 â\9e¡*[h,n2] T0 â\86\92 â\9d¨G,Lâ\9d© ⊢ T1 ⬌*[h,n,n2+n1] T2.
#h #n #n1 #n2 #G #L #T0 #T1 * #T #HT1 #HT0 #T2 #HT20
lapply (cpms_trans … HT20 … HT0) -T0 #HT2
/2 width=3 by cpms_div/