(***************************************************************************)
(* Formalization of the Chou, Gao and Zhang's decision procedure.          *)
(* Julien Narboux (Julien@narboux.fr)                                      *)
(* LIX/INRIA FUTURS 2004-2006                                              *)
(* University of Strasbourg 2008                                           *)
(***************************************************************************)
(* on_line *)
(* on_line_d *)
(* inter_ll *)
(* on_parallel_d *)
(* on_perp *)
(* on_perp_d *)

Lemma test_py_on_perp_d_4  : forall I A B r Y,
on_perp_d I A B r -> Py Y I Y = Py Y I Y.