Section NESTED_RAMIF.
Context {cs: compspecs}.

Lemma nested_field_ramif: forall sh t gfs0 gfs1 v v0 p,
JMeq (proj_reptype (nested_field_type t gfs0) gfs1 v) v0 ->
field_compatible t (gfs1 ++ gfs0) p ->
field_at sh t gfs0 v p |--
field_at sh t (gfs1 ++ gfs0) v0 p *
(ALL v0': _, ALL v0'': _, !! JMeq v0' v0'' -->
(field_at sh t (gfs1 ++ gfs0) v0' p -*
field_at sh t gfs0 (upd_reptype (nested_field_type t gfs0) gfs1 v v0'') p)).