proposition: Lemma prop_degen : forall P, P = True \/ P = False.
proof: Proof. apply prop_ext_em_degen. unfold prop_extensionality. intros A B [AB BA]. apply prop_ext. exact AB. exact BA. intro P. apply classic. Qed.
imports: Coq.Logic.ClassicalEpsilon ClassicalFacts