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

Lemma exprType_value : forall w e tau m v
(H:isValue e),
forces w v (mtype_valid m) ->
expr_type e tau (w,v) ->
forces w (exp_to_val e H) (%tau).