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

Lemma etype_valid_lookup: forall G x tau w env v,
nth_error G x = Some tau ->
etype_valid env G (w,v) ->
exists v,
nth_error env x = Some v /\ forces w v (%tau).