Local Open Scope logic_base.
Local Open Scope syntax.
Section PropertiesOfSequentCalculus.
Context (L: Language)
(Gamma: ProofTheory L)
{minL: MinimunLanguage L}.
Definition DeductionMP: Prop :=
forall (Phi: context) (x y: expr), Phi |-- x -> Phi |-- x --> y -> Phi |-- y.
Definition DeductionImpIntro: Prop :=
forall (Phi: context) (x y: expr), Phi;; x |-- y -> Phi |-- x --> y.
Definition DeductionImpElim: Prop :=
forall (Phi: context) (x y: expr), Phi |-- x --> y -> Phi;; x |-- y.
End PropertiesOfSequentCalculus.
Section TheoryOfSequentCalculus.
Context {L: Language}
{Gamma: ProofTheory L}
{minL: MinimunLanguage L}.

Lemma DeductionImpIntro_DeductionMP_2_DeductionSubst1:
DeductionImpIntro L Gamma ->
DeductionMP L Gamma ->
DeductionSubst1 L Gamma.