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 test4 : forall A B C :Point, S A B C +- S B C A = 0.