Proof using.
unfold doGenericServer.
intros.
repeat break_match; repeat find_inversion;
use_applyEntries_spec; subst; simpl in *;
auto.
Qed.

Lemma doLeader_currentTerm :
forall st h os st' ms,
doLeader st h = (os, st', ms) ->
currentTerm st' = currentTerm st.