fact: Axiom frcpa_spec : forall x : R, 1 <= Rabs x <= 65536 -> generic_format radix2 (FLT_exp (-65597) 11) (frcpa x) /\ Rabs (frcpa x - 1 / x) <= 4433 * pow2 (-21) * Rabs (1 / x).
imports: Coq(ZArith Reals Psatz) Flocq(Core) Gappa(Gappa_tactic)