proposition: Lemma prec_suff_2: forall prec:Z, (7 <= prec)%Z -> (/2*bpow radix2 (1-prec) <= /100)%R.
proof: Proof. intros p Hp. apply Rle_trans with (/2* bpow radix2 (-6))%R. apply Rmult_le_compat_l. lra. apply bpow_le. lia. rewrite <- (Rmult_1_l (bpow _ _)). interval. Qed.
imports: Coq(ZArith Reals Psatz) Flocq(Core Relative Sterbenz Operations) Interval(Tactic)