Proof using rri.
unfold CandidateEntriesLowered, CandidateEntries, votes_correct, cronies_correct.
intros. break_and.
rewrite deghost_spec.
apply_prop_hyp candidateEntries_host_invariant In.
eapply candidateEntries_wonElection; auto; repeat find_rewrite_lem deghost_spec; eauto.
Qed.

(* Specifications: *)
Lemma candidate_entries_lowered :
forall net,
raft_intermediate_reachable net ->
forall h h' e,
In e (log (nwState net h')) ->
CandidateEntriesLowered net e h.