Definition context_sepcon_included_l (Phi2 Psi: context): context -> Prop :=
  fun Phi1 => Included _ (context_sepcon Phi1 Phi2) Psi.Definition context_sepcon_included_r (Phi1 Psi: context): context -> Prop :=
  fun Phi2 => Included _ (context_sepcon Phi1 Phi2) Psi.

Lemma context_sepcon_included_l_context_orp_captured: forall Phi2 Psi (DC: derivable_closed Psi) (OW: orp_witnessed Psi), context_orp_captured (context_sepcon_included_l Phi2 Psi).