fact: Definition need_change_radix even_r mode (even_m : bool) pos sign := match mode with | rnd_ZR => false | rnd_UP => match pos with pos_Eq => false | _ => negb sign end | rnd_DN => match pos with pos_Eq => false | _ => sign end | rnd_NE => match pos with | pos_Up => true | pos_Mi => if even_m then false else negb even_r | _ => false end end.
imports: Coq(Reals Bool ZArith) Flocq(Zaux Raux Div Sqrt) Xreal Basic