(* * Copyright (c) 2009 Robert Dockins and Aquinas Hobor. * *)
(* Coq development: using indirection theory to model types in l-calculus *)
(* lam_ref_type_safety.v: typing imp safety *)

Lemma expr_type_safen: forall k v e tau,
expr_type e tau (k,v) ->
forall m, mtype_valid m (k,v) ->
safen (level k) (m,e).