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