theorem more_moral_asymmetric
theorem more_moral_asymmetric
(coherent : MoralComparisonIsCoherent)
: ∀ (a b : MoralCharacter), a.val more-moral-than b.val → ¬b.val more-moral-than a.val