Definition bot : Prop := forall E : Prop, E.(** ** Conjunction **)

Definition and (A B : Prop) : Prop := forall E : Prop, (A -> B -> E) -> E.

(* Specifications: *)
Lemma and_intro : forall A B : Prop, A -> B -> and A B.
Lemma and_fst : forall A B : Prop, and A B -> A.
Lemma and_snd : forall A B : Prop, and A B -> B.