(* on_perp *)

(* Specifications: *)
Lemma test_py_on_perp_1  : forall I A B X Y,
on_perp I A B -> Py X Y I = Py X Y I.
Lemma test_py_on_perp_2  : forall I A B X Y,
on_perp I A B -> Py I Y X = Py X Y I.
Lemma test_py_on_perp_3  : forall I A B X Y,
on_perp I A B -> Py X I Y = Py X I Y.
Lemma test_py_on_perp_4  : forall I A B X,
on_perp I A B -> Py X I X = Py X I X.
Lemma test_area_on_perp_1  : forall I X Y A B,
on_perp I X Y -> S I A B = S I A B.
Lemma test_area_on_perp_2  : forall I X Y A B,
on_perp I X Y -> S A B I = S I A B.