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. *)

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