(** Redex rules **)

Lemma expr_type_upd_Update: forall tau sigma w l v e3 v0,
forces w (v_Loc l) (ty_ref tau) ->
forces w v (%tau) ->
expr_type e3 sigma (w,v0) ->
expr_type (Update (Loc l) (val_to_exp v) e3) sigma (w,v0).