fact: Definition shr (m : positive) (d : positive) := iter_pos shr_aux d (rnd_record_mk (Npos m) false false).
imports: Coq(Decidable Bool ZArith Reals Lia) Flocq(Core Bracket Digits) Gappa_definitions Gappa_dyadic Gappa_round_def Gappa_round_aux