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.