fact: Definition rndG x := match Rcompare x 0 with | Gt => hrndG (rpos rdir) x | Lt => Z.opp (hrndG (rneg rdir) (-x)) | _ => Z0 end.
imports: Coq(Decidable Bool ZArith Reals Lia) Flocq(Core Bracket Digits) Gappa_definitions Gappa_dyadic Gappa_round_def Gappa_round_aux