(* Ramification Premises for Nested Load/Store Rule *)

Lemma RP_one_layer: forall t nf f u v p,
legal_nested_field t (f :: nf) ->
legal_type t ->
field_at t nf u p
|-- field_at t (f :: nf)
(proj_gfield_reptype (nested_field_type t nf) f u) p *
(field_at t (f :: nf) v p -*
field_at t nf (upd_gfield_reptype (nested_field_type t nf) f u v) p).