proposition: Theorem cond_Ropp_Rlt_bool : forall m, cond_Ropp (Rlt_bool m 0) m = Rabs m.
proof: Proof. intros m. apply sym_eq. case Rlt_bool_spec ; intros Hm. now apply Rabs_left. now apply Rabs_pos_eq. Qed.
imports: Coq(Psatz Reals ZArith) Zaux