fact: Definition new_location_even 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) nb_steps with | Lt => Lt | Eq => match l with loc_Exact => Eq | _ => Gt end | Gt => Gt end.
imports: Coq(ZArith Reals Lia) Zaux Raux Defs Float_prop