(***************************************************************************)
(* Formalization of the Chou, Gao and Zhang's decision procedure.          *)
(* Julien Narboux (Julien@narboux.fr)                                      *)
(* LIX/INRIA FUTURS 2004-2006                                              *)
(* University of Strasbourg 2008-2009                                      *)
(***************************************************************************)
Require Export euclidean_constructions.
Require Export area_elimination_lemmas.
Require Export ratios_elimination_lemmas.
Require Export Classical.
Ltac cases_per A B C := elim (per_dec A B C);intros.

Lemma l_25_a : forall A B P Q Y,
P<>Q -> Q<>Y -> Py Q A B <> 0 ->
on_inter_line_perp Y A P Q A B ->
P**Y / Q**Y = Py P A B / Py Q A B.