let prop_of_value = function | M.V_int(_,t) -> prop_of_int t | M.V_float(_,t) -> prop_of_float t | M.V_pointer(_,loc) -> prop_of_loc loc | v -> WpLog.fatal "[prop_of_value] %a" M.pp_value v