(* * Copyright (c) 2009 Robert Dockins and Aquinas Hobor. * *)
(* Coq development: using indirection theory to model types in l-calculus *)
(* lam_ref_mach_lemmas.v: various boring lemmas about the machine *)
(* COERCIONS *)
(* DECIDABILTY *)
(* SUBSTITUTION *)
(* STEP RELATION *)

Lemma stepstar_search : forall f m e m' e',
(forall m e m' e',
step (m,e) (m',e') -> step (m,f e) (m',f e')) ->
stepstar (m,e) (m',e') ->
stepstar (m,f e) (m', f e').