(* Advanced properties ******************************************************)
fact lsx_bind_lpxs_aux: ∀h,g,a,I,G,L1,V,l. G ⊢ ⬊*[h, g, V, l] L1 →
- â\88\80Y,T. G â\8a¢ â¬\8a*[h, g, T, ⫯l] Y →
+ â\88\80Y,T. G â\8a¢ â¬\8a*[h, g, T, â\86\91l] Y →
∀L2. Y = L2.ⓑ{I}V → ⦃G, L1⦄ ⊢ ➡*[h, g] L2 →
G ⊢ ⬊*[h, g, ⓑ{a,I}V.T, l] L2.
#h #g #a #I #G #L1 #V #l #H @(lsx_ind_alt … H) -L1
qed-.
lemma lsx_bind: ∀h,g,a,I,G,L,V,l. G ⊢ ⬊*[h, g, V, l] L →
- â\88\80T. G â\8a¢ â¬\8a*[h, g, T, ⫯l] L.ⓑ{I}V →
+ â\88\80T. G â\8a¢ â¬\8a*[h, g, T, â\86\91l] L.ⓑ{I}V →
G ⊢ ⬊*[h, g, ⓑ{a,I}V.T, l] L.
/2 width=3 by lsx_bind_lpxs_aux/ qed.