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

Lemma expr_ty_deref_loc : forall l tau a,
expr_type (Loc l) (ty_ref tau) a ->
expr_type (Deref (Loc l)) tau a.