Hint Resolve field_address_eq_offset' : prove_it_now.
Hint Rewrite <- @prop_and using solve [auto with typeclass_instances]: norm1.
Local Open Scope logic.

Lemma var_block_lvar0
: forall {cs: compspecs} (id : positive) (t : type) (Delta : tycontext)  v rho,
(var_types Delta) ! id = Some t ->
complete_legal_cosu_type t = true ->
sizeof t < Ptrofs.modulus ->
is_aligned cenv_cs ha_env_cs la_env_cs t 0 = true ->
tc_environ Delta rho ->
locald_denote (lvar id t v) rho ->
data_at_ Tsh t v |-- var_block Tsh (id, t) rho.