Definition isVAL (r : resource) :=
match r with
| YES _ _ (VAL _) _ => Logic.True
| _ => False
end.

Lemma shape_of_args F V args b ofs ge :
Val.has_type_list args (AST.Tint :: nil) ->
Vptr b ofs = mpred.eval_id _lock (make_ext_args (filter_genv (symb2genv (@genv_symb_injective F V ge))) (_lock :: nil) args) ->
args = Vptr b ofs :: nil.