Section Cosinus2.
Context `{TnEQD:Tarski_neutral_dimensionless_with_decidable_point_equality}.

Lemma lcos_const1 : forall l lp a P, Lcos lp l a -> ~ Q_CongA_Null_Acute a ->
exists A, exists B, exists C, ~Col A B P /\ OS A B C P /\ l A B /\ lp B C /\ a A B C.