Require Export GeoCoq.Elements.OriginalProofs.lemma_NCdistinct.
Require Export GeoCoq.Elements.OriginalProofs.lemma_8_7.
Require Export GeoCoq.Elements.OriginalProofs.lemma_legsmallerhypotenuse.
Require Export GeoCoq.Elements.OriginalProofs.lemma_trichotomy2.
Require Export GeoCoq.Elements.OriginalProofs.lemma_tworays.
Section Euclid.
Context `{Ax:euclidean_neutral_ruler_compass}.

Lemma lemma_altitudeofrighttriangle :
forall A B C M p,
Per B A C -> Per A M p -> Col B C p -> Col B C M ->
BetS B M C.