Proof using.
unfold deghost.
simpl.
intros.
do_in_map.
eauto.
Qed.

Lemma candidate_entries_lowered_rvr' :
forall net,
CandidateEntries net ->
votes_correct net ->
cronies_correct net ->
forall p h e,
In e (log (snd (nwState net h))) ->
CandidateEntriesLowered_rvr (deghost net) e p.