let float_of_value = function
    | M.V_float(_,t) -> t
    | v -> WpLog.fatal "[float_of_value] of non float value %a" M.pp_value v