(***************************************************************************)
(* Formalization of the Chou, Gao and Zhang's decision procedure.          *)
(* Julien Narboux (Julien@narboux.fr)                                      *)
(* LIX/INRIA FUTURS 2004-2006                                              *)
(* University of Strasbourg 2008                                           *)
(***************************************************************************)
Require Export pythagoras_difference_lemmas.

(* Specifications: *)
Lemma on_perp_d_ex : forall U V r,
U<>V -> r<> 0 ->
exists Y, on_perp_d Y U V r.