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

(* Specifications: *)
Lemma lemma_TTtransitive :
forall A B C D E F G H P Q R S,
TT A B C D E F G H -> TT E F G H P Q R S ->
TT A B C D P Q R S.
Lemma lemma_midpointunique :
forall A B C D,
Midpoint A B C -> Midpoint A D C ->
eq B D.