Require Import Naturelle.
Section Session1_2019_Logique_Exercice_1.

Variable A B C : Prop.

Theorem Exercice_1_Naturelle :  (A -> B -> C) -> ((A /\ B) -> C).
I_imp H.
I_imp H0.
E_imp B.
E_imp A.
exact H.
E_et_g B.
exact H0.
E_et_d A.
exact H0.
Qed.

Theorem Exercice_1_Coq :  (A -> B -> C) -> ((A /\ B) -> C).
intros.
destruct H0.
cut B.
cut A.
exact H.
exact H0.
exact H1.
Qed.

End Session1_2019_Logique_Exercice_1.