intro; absurd A; auto.
Qed.

(* Specifications: *)
Lemma no_or_inv : forall A B : Prop, ~ A -> A \/ B -> B.
intros A B H G; elim G; auto.
Lemma no_or_and : forall A B C D : Prop, ~ C -> A /\ B \/ C /\ D -> A /\ B.
intros.