Require Export GeoCoq.Elements.OriginalProofs.lemma_diagonalsbisect.
Section Euclid.
Context `{Ax:euclidean_euclidean}.

(* Specifications: *)
Lemma lemma_trapezoiddiagonals :
forall A B C D E,
PG A B C D -> BetS A E D ->
exists X, BetS B X D /\ BetS C X E.