Require Export GeoCoq.Tarski_dev.Ch14_prod.
Section Order.
Context `{T2D:Tarski_2D}.
Context `{TE:@Tarski_euclidean Tn TnEQD}.

Lemma square_pos : forall O E E' A A2,
O <> A -> Prod O E E' A A A2 -> Ps O E A2.