Section tbled.
Variable n : nat.
Variable tbl : SymEnv.functions RType_typ.
Let RSym_sym := RSym_sym tbl.
Existing Instance RSym_sym.
Let Expr_expr_fs := Expr_expr_fs tbl.
Existing Instance Expr_expr_fs.
Let Expr_ok_fs := Expr_ok_fs tbl.
Existing Instance Expr_ok_fs.
Let ExprVar_expr := @ExprVariables.ExprVar_expr typ func.
Existing Instance ExprVar_expr.
Existing Instance MA.
Existing Instance rtac_base.MentionsAnyOk.

Lemma load_store_sound_aux:
forall t_root, (@funcAs typ func RType_typ
(func_defs.RSym_sym tbl)
(@inr
(sum
(sum SymEnv.func
(ModularFunc.ILogicFunc.ilfunc
typ))
(BILogicFunc.bilfunc typ))
func' (Sep (fdata_at t_root)))
(tyArr tyshare
(tyArr
(reptyp t_root)
(tyArr tyval tympred))) =
Some
(fun (sh : share) (rt : typD (reptyp t_root)) (v : val) =>
data_at sh t_root (reptyp_reptype t_root rt) v)).