Section EvaluatorTakahashi.
Variable (X: Type) (R S: X -> X -> Prop).
Hypothesis (D: Dec1 (Normal R)).
Variable (rho: X -> X).
Hypotheses (tf: tak_fun S rho).
Hypotheses (refl: Reflexive S) (H1: subrelation R S)
(H2: subrelation S (star R)).

Lemma evaluates_E s:
(exists t, evaluates R s t) -> exists n, exists t, E rho D n s = Some t.