Require Export GeoCoq.Elements.OriginalProofs.lemma_betweennotequal.
Require Export GeoCoq.Elements.OriginalProofs.lemma_inequalitysymmetric.
Section Euclid.
Context `{Ax:euclidean_neutral_ruler_compass}.

(* Specifications: *)
Lemma lemma_ondiameter :
forall D F K M N P Q,
CI K F P Q -> Cong F D P Q -> Cong F M P Q -> BetS D F M -> BetS D N M ->
InCirc N K.