Require Export GeoCoq.Elements.OriginalProofs.lemma_NCorder.
Require Export GeoCoq.Elements.OriginalProofs.lemma_collinear4.
Require Export GeoCoq.Elements.OriginalProofs.lemma_TCreflexive.
Section Euclid.
Context `{Ax:area}.

Lemma lemma_EFreflexive :
forall a b c d p,
BetS a p c -> BetS b p d -> nCol a b c ->
EF a b c d a b c d.