Section Suma_2.
Context `{TnEQD:Tarski_neutral_dimensionless_with_decidable_point_equality}.
(** ABC <= ABC + DEF. *)
(** DEF <= ABC + DEF. *)
(** LeA preserves SAMS. *)
(** SumA preserves LeA. *)
(** Unicity of the difference of angles. *)
(** Unicity of the difference on the left. *)
(** Associativity of the sum of angles. *)
(** If B <= B', E <= E' and B + E = B' + E', then B = B' and E = E' *)
(** If B + E = E, then B = 0 *)
(** If B < B' and E <= E', then B + E < B' + E' *)
(** If E >= E' and B + E <= B' + E', then B <= B' *)
(** If E > E' and B + E <= B' + E', then B < B' *)
(** If E >= E' and B + E < B' + E', then B < B' *)
(** The sum of two angles of a triangle is less than a straight angle (three lemmas) *)
(** Sum of two right angles is a straight angle: 90+90=180. *)
(** If 90+x=180 then x=90. *)

Lemma bet_per_suma__per456 : forall A B C D E F G H I, Per A B C -> Bet G H I ->
SumA A B C D E F G H I -> Per D E F.