Local Arguments update {_} {_} _ _ _ _ _ : simpl never.
Section LeadersHaveLeaderLogs.
Context {orig_base_params : BaseParams}.
Context {one_node_params : OneNodeParams orig_base_params}.
Context {raft_params : RaftParams orig_base_params}.
Context {rri : raft_refinement_interface}.

(* Specifications: *)
Lemma handleRequestVoteReply_spec :
forall h st h' t r st',
st' = handleRequestVoteReply h st h' t r ->
log st' = log st /\
((currentTerm st' = currentTerm st /\ type st' = type st) \/
type st' = Follower \/ (type st = Candidate /\ type st' = Leader)).