(* * Copyright (c) 2009 Robert Dockins and Aquinas Hobor. * *)
(* Coq development: using indirection theory to model types in l-calculus *)
(** 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).