fact: Definition new_location_odd k l := if Zeq_bool k 0 then match l with loc_Exact => l | _ => loc_Inexact Lt end else loc_Inexact match Z.compare (2 * k + 1) nb_steps with | Lt => Lt | Eq => match l with loc_Inexact l => l | loc_Exact => Lt end | Gt => Gt end.
imports: Coq(ZArith Reals Lia) Zaux Raux Defs Float_prop