(** If x<90 then x+x<180 (two lemmas). *)

(* Specifications: *)
Lemma acute__sams : forall A B C, Acute A B C -> SAMS A B C A B C.
Lemma acute_suma__nbet : forall A B C D E F, Acute A B C -> SumA A B C A B C D E F -> ~ Bet D E F.
(** If x<90 and y<90 then x+y<180 (two lemmas). *)
Lemma acute2__sams : forall A B C D E F, Acute A B C -> Acute D E F -> SAMS A B C D E F.
Lemma acute2_suma__nbet : forall A B C D E F G H I,
Acute A B C -> Acute D E F -> SumA A B C D E F G H I -> ~ Bet G H I.