End CommAssocTheorems.
End DerivableRulesFromPatterns.
Section ProofTheoryPatterns.
Context {L: Language}
{minL: MinimunLanguage L}
{pL: PropositionalLanguage L}
{Gamma: ProofTheory L}
{minAX: MinimunAxiomatization L Gamma}
{ipGamma: IntuitionisticPropositionalLogic L Gamma}.

(* Specifications: *)
Lemma Build_LeftUnit': forall {e: expr} {prodp: expr -> expr -> expr},
(forall x: expr, |-- prodp e x <--> x) ->
LeftUnit L Gamma e prodp.
Lemma Build_RightUnit': forall {e: expr} {prodp: expr -> expr -> expr},
(forall x: expr, |-- prodp x e <--> x) ->
RightUnit L Gamma e prodp.
Lemma Build_Associativity': forall {prodp: expr -> expr -> expr},
(forall x y z: expr, |-- prodp (prodp x y) z <--> prodp x (prodp y z)) ->
Associativity L Gamma prodp.