theorem everyone_immoral_rejects_only_rich
theorem everyone_immoral_rejects_only_rich
(everyone : EveryPersonIsImmoral)
(someone_not_rich : ∃ p : Person, ¬ (p is-rich))
: ¬ OnlyRichPeopleAreImmoral