30 lines
420 B
Coq
Executable file
30 lines
420 B
Coq
Executable file
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.
|
|
|