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

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.