Proof using lhlli aercfli ollpti naetsi rri.
unfold no_append_entries_to_leader'. intros. subst.
find_copy_eapply_lem_hyp no_append_entries_to_self'_invariant; eauto.
find_false.
find_eapply_lem_hyp leaders_have_leaderLogs_invariant; eauto.
break_exists.
find_eapply_lem_hyp append_entries_came_from_leaders_invariant; eauto.
break_exists.
eapply one_leaderLog_per_term_host_invariant; eauto.
Qed.

(* Specifications: *)
Lemma deghost_packet_exists :
forall net p,
In p (nwPackets (deghost net)) ->
exists (q : packet (params := raft_refined_multi_params (raft_params := raft_params))),
In q (nwPackets net) /\ p = deghost_packet q.