Proof using.
unfold raft_net_invariant_init, no_entries_past_current_term.
intuition.
- unfold no_entries_past_current_term_host.
intros. simpl in *. intuition.
- unfold no_entries_past_current_term_nw.
intros. simpl in *. intuition.
Qed.

(* Specifications: *)
Lemma doLeader_spec :
forall h st os st' ps,
doLeader st h = (os, st', ps) ->
log st' = log st /\ currentTerm st' = currentTerm st.