let real_of_value = function
    | M.V_float(_,t) -> t
    | M.V_int(_,t) -> F.real_of_integer  t
    | v -> WpLog.fatal "[real_of_value] of %a" M.pp_value v