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 : forall h st t src lli llt st' m, handleRequestVote h st t src lli llt = (st', m) -> currentTerm st <= currentTerm st'.