Opaque member_dec.

Lemma struct_pred_proj: forall m {A} (P: forall it, A it -> val -> mpred) (i: ident) v p d,
let P' it := if ident_eq i (fst it) then fun _ _ => emp else P it in
members_no_replicate m = true ->
in_members i m ->
struct_pred m P v p = P _ (proj_struct i m v d) p * struct_pred m P' v p.