proposition: Lemma cos_decreasing_1 : forall y x : Rdefinitions.R, Rdefinitions.Rlt x y -> Rdefinitions.Rle x Rtrigo1.PI -> Rdefinitions.Rge y Rdefinitions.R0 -> Rdefinitions.Rle y Rtrigo1.PI -> Rdefinitions.Rge x Rdefinitions.R0 -> Rdefinitions.Rlt (Rtrigo_def.cos y) (Rtrigo_def.cos x).
proof: Proof. hauto using (@Reals.Rtrigo1.cos_decreasing_1, @Reals.RIneq.Rge_le). Qed.
imports: Hammer(Hammer) Arith