Proof using.
intros.
unfold entries_match in *.
intros. intuition.
- apply H with (e:=e')(e':=e); auto.
repeat find_rewrite. auto.
- apply H with (e:=e')(e':=e); auto.
repeat find_rewrite. auto.
Qed.

(* Specifications: *)
Lemma advanceCurrentTerm_same_log :
forall st t,
log (advanceCurrentTerm st t) = log st.