Proof using.
intros.
eapply candidateEntries_same; eauto;
intros;
repeat (rewrite update_fun_comm; simpl in * );
update_destruct; subst; rewrite_update; auto;
repeat find_rewrite; simpl; auto;
find_apply_lem_hyp doLeader_st; intuition.
Qed.

(* Specifications: *)
Lemma ghost_packet :
forall (net : network (params := raft_refined_multi_params)) p,
In p (nwPackets net) ->
In (deghost_packet p) (nwPackets (deghost net)).