Section PARALLELOGRAMM.
Definition Parallelogramm := fun A B C D : Point =>
Clockwise A B C /\
Clockwise A C D /\
Distance A B = Distance C D /\
Distance A D = Distance B C.
Definition ParallelogrammCenter (A B C D : Point) (_ : Parallelogramm A B C D) :=
fun I : Point => Between A I C /\ Distance I A = Distance I C.

Lemma ExistsParallelogrammCenter : forall A B C D : Point,
forall H : Parallelogramm A B C D,
{I : Point | ParallelogrammCenter A B C D H I}.