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_ptr loc
    | _ -> assert false