Hint Resolve segment_construction five_segments inner_pasch euclid : Tarski.
Hint Resolve cong_pseudo_reflexivity cong_identity between_identity : Tarski.
Hint Resolve cong_inner_transitivity  : Tarski.
Ltac eTarski := eauto with Tarski.
Ltac Tarski := auto with Tarski.
(** We use classical logic, to emphasize the fact that it is mainly for the decidability of point equality we use the following lemma *)

Lemma eq_dec_points : forall A B:Point, A=B \/ ~ A=B.
Ltac cases_equality A B := elim (eq_dec_points A B);intros.