intuition.
eapply evalDet_steps_done_nil_inv_h; eauto.
Qed.

(* Specifications: *)
Lemma app_eq_nil_inv : forall (A : Set)(ls2 ls1 ls3 : list A),
ls1 = ls2 ++ ls3 ->
length ls1 = length ls2 ->
ls3 = nil.