intros.
eapply evalDet_steps_done_eof_func_h.
eapply H.
eauto.
eauto.
Qed.

(* Specifications: *)
Theorem evalDet_func : forall (A : Set)(c : Comp A)(s : Blist)(y1 y2 : comp_answer A),
evalDet c s y1 ->
evalDet c s y2 ->
y1 = y2.