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

Lemma lemma_altitudebisectsbase :
forall A B M P,
BetS A M B -> Cong A P B P -> Per A M P ->
Midpoint A M B.