Section LIST1.
Context {cs: compspecs}.
Context  {list_structid: ident} {list_link: ident} {list_token: share -> val -> mpred}.
Fixpoint all_but_link (f: members) : members :=
match f with
| nil => nil
| cons it f' => if ident_eq (fst it) list_link
then f'
else cons it (all_but_link f')
end.

Lemma list_link_size_in_range (ls: listspec list_structid list_link list_token):
0 < sizeof (nested_field_type list_struct (StructField list_link :: nil)) < Ptrofs.modulus.