Ltac destruct_in_members i m :=
let H := fresh "H" in
destruct (compute_in_members i m) eqn:H;
[apply compute_in_members_true_iff in H |
apply compute_in_members_false_iff in H].

Lemma size_chunk_sizeof: forall env t ch, access_mode t = By_value ch -> sizeof env t = Memdata.size_chunk ch.
Definition composite_legal_fieldlist (co: composite): Prop :=
members_no_replicate (co_members co) = true.