Section SEMAX_PTREE.
Context {cs: compspecs}.

Lemma semax_PTree_field_load_no_hint:
forall {Espec: OracleKind},
forall n Rn Delta sh id P Q R (e: expr) t
T1 T2 GV e_root (efs: list efield) lr
t_root_from_e gfs_from_e p_from_e
(t_root: type) (gfs0 gfs1 gfs: list gfield) (p: val)
(v : val) (v' : reptype (nested_field_type t_root gfs0)),
local2ptree Q = (T1, T2, nil, GV) ->
compute_nested_efield e = (e_root, efs, lr) ->
typeof_temp Delta id = Some t ->
is_neutral_cast (typeof e) t = true ->
type_is_volatile (typeof e) = false ->
msubst_eval_LR Delta T1 T2 GV e_root lr = Some p_from_e ->
msubst_efield_denote Delta T1 T2 GV efs gfs_from_e ->
compute_root_type (typeof e_root) lr t_root_from_e ->
field_address_gen (t_root_from_e, gfs_from_e, p_from_e) (t_root, gfs, p) ->
find_nth_preds (fun Rn => Rn = field_at sh t_root gfs0 v' p /\ gfs = gfs1 ++ gfs0) R (Some (n, Rn)) ->
readable_share sh ->
JMeq (proj_reptype (nested_field_type t_root gfs0) gfs1 v') v ->
ENTAIL Delta, PROPx P (LOCALx Q (SEPx R)) |--
!! (legal_nested_field (nested_field_type t_root gfs0) gfs1) ->
ENTAIL Delta, PROPx P (LOCALx Q (SEPx R)) |--
local `(tc_val (typeof e) v) ->
ENTAIL Delta, PROPx P (LOCALx Q (SEPx R)) |--
denote_tc_assert
(tc_andp (typecheck_LR Delta e_root lr) (typecheck_efield Delta efs)) ->
semax Delta (|>PROPx P (LOCALx Q (SEPx R)))
(Sset id e)
(normal_ret_assert
(PROPx P
(LOCALx (temp id v :: remove_localdef_temp id Q)
(SEPx R)))).