theorem TwoPeopleDifferingInWealth.mk.sizeOf_spec
theorem TwoPeopleDifferingInWealth.mk.sizeOf_spec
: ∀ (p1 p2 : nrhqjxz5.Person) (p1Character p2Character : y5gfszhz.MoralCharacter)
  (p1_is_rich : y5gfszhz.Rich (Subtype.val p1)) (p2_is_not : ¬y5gfszhz.Rich (Subtype.val p2))
  (p1_has_character : y5gfszhz.HasMoralCharacter (Subtype.val p1) (Subtype.val p1Character))
  (p2_has_character : y5gfszhz.HasMoralCharacter (Subtype.val p2) (Subtype.val p2Character))
  (all_else_equal : y5gfszhz.SameCircumstancesExceptWealth (Subtype.val p1) (Subtype.val p2)),
  sizeOf
      (y5gfszhz.TwoPeopleDifferingInWealth.mk p1 p2 p1Character p2Character p1_is_rich p2_is_not p1_has_character
        p2_has_character all_else_equal) =
    1 + sizeOf p1 + sizeOf p2 + sizeOf p1Character + sizeOf p2Character + sizeOf p1_is_rich + sizeOf p1_has_character +
        sizeOf p2_has_character +
      sizeOf all_else_equal