Section Cosinus2.
Context `{TnEQD:Tarski_neutral_dimensionless_with_decidable_point_equality}.
Global Instance lcos_morphism :
Proper (EqL ==> EqL ==> eq ==> iff) Lcos.
(*----------------------------------------*)

Lemma lcos3_eql_lcos3 : forall lla llb la lb a b c, Lcos3 la lla a b c -> EqL lla llb -> EqL la lb -> Lcos3 lb llb a b c.