theorem actual_immoral_non_rich_twin_makes_rich_twin_immoral
theorem actual_immoral_non_rich_twin_makes_rich_twin_immoral
(logic_is_actual : LogicIsActual)
(coherent : A MoralComparisonIsCoherent)
(immoral_below : A ImmoralBelowNonImmoral)
(rich_less_moral : A AllElseEqualTheRichPersonIsLessMoral)
: ∀ (s : TwoPeopleDifferingInWealth), A s.p2.val is-immoral → A s.p1.val is-immoral