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_lvar2:
forall {cs: compspecs} {Espec: OracleKind} id t Delta P Q R Vs c Post,
(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 ->
(forall v,
semax Delta ((PROPx P (LOCALx (lvar id t v :: Q) (SEPx (data_at_ Tsh t v :: R))))
* fold_right sepcon emp Vs)
c Post) ->
semax Delta ((PROPx P (LOCALx Q (SEPx R)))
* fold_right sepcon emp (var_block Tsh (id,t) :: Vs))
c Post.