Definition CandidateEntriesLowered_rvr net e p :=
    In p (nwPackets net) ->
    pBody p = RequestVoteReply (eTerm e) true ->
    currentTerm (nwState net (pDst p)) = eTerm e ->
    wonElection (dedup name_eq_dec (pSrc p :: votesReceived (nwState net (pDst p)))) = true ->
    type (nwState net (pDst p)) <> Candidate.

Lemma candidate_entries_lowered_nw_rvr : forall net, raft_intermediate_reachable net -> forall p' p e t li pli plt es lc, pBody p = AppendEntries t li pli plt es lc -> In p (nwPackets net) -> In e es -> CandidateEntriesLowered_rvr net e p'.