Proof with eauto.
intros s s' H.
induction H; intros ? ??...
- eapply eqTrans. eapply eqStep. eapply stepAppL. eassumption.
induction H0...
- induction H...
Qed.

Lemma evaluates_equiv s t : s ▷ t <-> s ≡ t /\ lam t.
Proof with eauto using star_equiv, evaluates_abst.