fact: Definition hrndG x := let mx := Zfloor x in let m := ZtoN mx in let l := inbetween_loc (IZR mx) (IZR mx + 1) x in let r := let (r, s) := hrndG_aux mx x in rnd_record_mk m r s in if rdir r then Zceil x else Zfloor x.
imports: Coq(Decidable Bool ZArith Reals Lia) Flocq(Core Bracket Digits) Gappa_definitions Gappa_dyadic Gappa_round_def Gappa_round_aux