(************************************************  Other lemmas  ************************************************)

(* Specifications: *)
Lemma lower_andp_val:
forall (P Q: val->mpred) v,
((P && Q) v) = (P v && Q v).
Lemma compute_legal_nested_field_spec':
forall t gfs,
Forall Datatypes.id (compute_legal_nested_field t gfs) ->
legal_nested_field t gfs.