fact: Definition round (rdirs : round_dir) (rexp : Z -> Z) (f : float2) := match (Fnum f) with | Z0 => Float2 Z0 Z0 | Zpos p => match (round_pos (rpos rdirs) rexp p (Fexp f)) with | (N0, _) => Float2 Z0 Z0 | (Npos q, e) => Float2 (Zpos q) e end | Zneg p => match (round_pos (rneg rdirs) rexp p (Fexp f)) with | (N0, _) => Float2 Z0 Z0 | (Npos q, e) => Float2 (Zneg q) e end end.
imports: Coq(Decidable Bool ZArith Reals Lia) Flocq(Core Bracket Digits) Gappa_definitions Gappa_dyadic Gappa_round_def Gappa_round_aux