/2 width=1 by rex_refl/ qed.
lemma rpx_pair_refl (G):
- â\88\80L,V1,V2. â\9dªG,Lâ\9d« ⊢ V1 ⬈ V2 →
- â\88\80I,T. â\9dªG,L.â\93\91[I]V1â\9d« ⊢ ⬈[T] L.ⓑ[I]V2.
+ â\88\80L,V1,V2. â\9d¨G,Lâ\9d© ⊢ V1 ⬈ V2 →
+ â\88\80I,T. â\9d¨G,L.â\93\91[I]V1â\9d© ⊢ ⬈[T] L.ⓑ[I]V2.
/2 width=1 by rex_pair_refl/ qed.
(* Advanced inversion lemmas ************************************************)
lemma rpx_inv_bind_void (G):
- â\88\80p,I,L1,L2,V,T. â\9dªG,L1â\9d« ⊢ ⬈[ⓑ[p,I]V.T] L2 →
- â\88§â\88§ â\9dªG,L1â\9d« â\8a¢ â¬\88[V] L2 & â\9dªG,L1.â\93§â\9d« ⊢ ⬈[T] L2.ⓧ.
+ â\88\80p,I,L1,L2,V,T. â\9d¨G,L1â\9d© ⊢ ⬈[ⓑ[p,I]V.T] L2 →
+ â\88§â\88§ â\9d¨G,L1â\9d© â\8a¢ â¬\88[V] L2 & â\9d¨G,L1.â\93§â\9d© ⊢ ⬈[T] L2.ⓧ.
/2 width=3 by rex_inv_bind_void/ qed-.
(* Advanced forward lemmas **************************************************)
lemma rpx_fwd_bind_dx_void (G):
- â\88\80p,I,L1,L2,V,T. â\9dªG,L1â\9d« â\8a¢ â¬\88[â\93\91[p,I]V.T] L2 â\86\92 â\9dªG,L1.â\93§â\9d« ⊢ ⬈[T] L2.ⓧ.
+ â\88\80p,I,L1,L2,V,T. â\9d¨G,L1â\9d© â\8a¢ â¬\88[â\93\91[p,I]V.T] L2 â\86\92 â\9d¨G,L1.â\93§â\9d© ⊢ ⬈[T] L2.ⓧ.
/2 width=4 by rex_fwd_bind_dx_void/ qed-.