qed-.
lemma cpx_bind_unit (G) (L):
- â\88\80V1,V2. â\9dªG,Lâ\9d« ⊢ V1 ⬈ V2 →
- â\88\80J,T1,T2. â\9dªG,L.â\93¤[J]â\9d« ⊢ T1 ⬈ T2 →
- â\88\80p,I. â\9dªG,Lâ\9d« ⊢ ⓑ[p,I]V1.T1 ⬈ ⓑ[p,I]V2.T2.
+ â\88\80V1,V2. â\9d¨G,Lâ\9d© ⊢ V1 ⬈ V2 →
+ â\88\80J,T1,T2. â\9d¨G,L.â\93¤[J]â\9d© ⊢ T1 ⬈ T2 →
+ â\88\80p,I. â\9d¨G,Lâ\9d© ⊢ ⓑ[p,I]V1.T1 ⬈ ⓑ[p,I]V2.T2.
/4 width=4 by lsubr_cpx_trans, cpx_bind, lsubr_unit/ qed.