proposition: Theorem P_positive: (Rle 0 p)%R.
proof: Proof. unfold FtoRradix; apply RleRoundedR0 with (b:=bo) (precision:=precision) (P:=(Closest bo radix)) (r:=(b*b')%R); auto. apply ClosestRoundedModeP with precision; auto. elim Roundp; auto. Qed.
imports: Reals ZArith List PeanoNat Psatz