Require Export B6_Cercle_Def.
Section EQUILATERAL_TRIANGLE.
Definition Equilateral (A B C : Point) :=
Distance A B = Distance A C /\
Distance A B = Distance B C.

Lemma EquilateralSpec : forall A B : Point,
A<>B -> TriangleSpec (Distance A B) (Distance A B) (Distance A B).