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