#h #n #G #L1 #T1 #T2 * /3 width=5 by lsubr_cpg_trans, ex2_intro/
qed-.
-lemma cpm_bind_unit (h) (n) (G): â\88\80L,V1,V2. â\9dªG,Lâ\9d« ⊢ V1 ➡[h,0] V2 →
- â\88\80J,T1,T2. â\9dªG,L.â\93¤[J]â\9d« ⊢ T1 ➡[h,n] T2 →
- â\88\80p,I. â\9dªG,Lâ\9d« ⊢ ⓑ[p,I]V1.T1 ➡[h,n] ⓑ[p,I]V2.T2.
+lemma cpm_bind_unit (h) (n) (G): â\88\80L,V1,V2. â\9d¨G,Lâ\9d© ⊢ V1 ➡[h,0] V2 →
+ â\88\80J,T1,T2. â\9d¨G,L.â\93¤[J]â\9d© ⊢ T1 ➡[h,n] T2 →
+ â\88\80p,I. â\9d¨G,Lâ\9d© ⊢ ⓑ[p,I]V1.T1 ➡[h,n] ⓑ[p,I]V2.T2.
/4 width=4 by lsubr_cpm_trans, cpm_bind, lsubr_unit/ qed.