Definition currentTerm_votedFor_votesWithLog net :=
    forall h t n,
      (currentTerm (snd (nwState net h)) = t /\
       votedFor (snd (nwState net h)) = Some n) ->
      exists l,
        In (t, n, l) (votesWithLog (fst (nwState net h))).

Lemma handleRequestVote_currentTerm_leaderId' : forall h st t c li lt st' m, handleRequestVote h st t c li lt = (st', m) -> votedFor st' <> votedFor st -> currentTerm st < currentTerm st' \/ leaderId st = None.