proposition: Lemma bracket_aux : forall x, (IZR (Zfloor x) <= x < IZR (Zfloor x) + 1)%R.
proof: Proof. split. apply Zfloor_lb. apply Zfloor_ub. Qed.
imports: Coq(Decidable Bool ZArith Reals Lia) Flocq(Core Bracket Digits) Gappa_definitions Gappa_dyadic Gappa_round_def Gappa_round_aux