proposition: Lemma exists_proof : forall p : EP, ~ (forall x : E, ~ p x) -> ex p.
proof: Proof. ir. unfold not in H. eapply excluded_middle. unfold not in |- *. ir. ap H. ir. ap H0. eapply ex_intro with x. am. Qed.
imports: tactics