Hint Rewrite PROP_LOCAL_SEP_f: norm2.
Definition global_funspec Delta id argsig retty cc A Pre Post NEPre NEPost :=
(var_types Delta) ! id = None /\
(glob_specs Delta) ! id = Some (mk_funspec (argsig,retty) cc A Pre Post NEPre NEPost) /\
(glob_types Delta) ! id = Some (type_of_funspec (mk_funspec (argsig,retty) cc A Pre Post NEPre NEPost)).

Lemma func_ptr'_func_ptr_lifted:
forall (fs: funspec) (e: environ->val) (B: environ->mpred),
`(func_ptr' fs) e * B = `(func_ptr fs) e && B.