(* * Copyright (c) 2009 Robert Dockins and Aquinas Hobor. * *)
(* Coq development: using indirection theory to model types in l-calculus *)
(** Redex rules **)

Lemma expr_ty_new: forall k v tau,
forces k v (%tau) ->
forall v', expr_type (New (val_to_exp v)) (ty_ref tau) (k,v').