Inductive Parameter_types_in_funspec_different_from_call_statement : Prop := .Inductive Result_type_in_funspec_different_from_call_statement : Prop := .Definition check_retty t :=
    match t with Tvoid => Result_type_in_funspec_different_from_call_statement
                      |  Tarray _ _ _ => Result_type_in_funspec_different_from_call_statement
                       | _ => True
    end.

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.