(* * 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 *)

(* Specifications: *)
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).
Theorem typing_implies_safety: forall e tau,
Typ nil e tau ->
safe_prog e.