(************************************************  nested_field app  ************************************************)

(* Lemma align_1_compatible: forall t, alignof t = 1 -> forall p, align_compatible t p. *)
Lemma size_compatible_nested_field: forall t gfs p,
legal_nested_field t gfs ->
complete_legal_cosu_type t = true ->
size_compatible t p ->
size_compatible (nested_field_type t gfs) (offset_val (nested_field_offset t gfs) p).