Ltac local_uniformize_signed_areas := Runiformize_signed_areas.(*
Ltac local_uniformize_signed_areas := uniformize_signed_areas.
*)

Ltac local_basic_simpl := Rbasic_simpl.Ltac local_uniformize_signed_areas4 := uniformize_signed_areas4.

Lemma test173 : forall A B C P, - (S A C P / S B C P * (S B A P / S C A P * (S C B P / S A B P))) = 1 -> 0=0.