Section MIDPOINT.
Definition Middle (A B : Point) : Figure :=
fun I : Point => Collinear A B I /\ Distance I A = Distance I B.

Lemma TwoMidPointsNotClockwise : forall A B C I J : Point,
A <> B ->
Between A I B ->
Distance I A = Distance I B ->
Between A J B ->
Distance J A = Distance J B ->
Clockwise A B C ->
~Clockwise C I J.