Require Export GeoCoq.Highschool.bisector.
Require Export GeoCoq.Tarski_dev.Ch13_1.
Section InCenter.
Context `{TE:Tarski_euclidean}.
Definition is_incenter I A B C :=
~ Col A B C /\ CongA B A I I A C /\ CongA A B I I B C /\ CongA A C I I C B.
(** Proof of the existence of the incenter of a triangle. *)

Lemma incenter_exists : forall A B C, ~ Col A B C -> exists I, is_incenter I A B C.