Proof using.
unfold deghost.
simpl.
intros.
eexists; intuition eauto.
apply in_map_iff. eexists; eauto.
Qed.

Lemma network_host_entries :
forall net p t n pli plt es ci h e e',
refined_raft_intermediate_reachable net ->
In p (nwPackets net) ->
pBody p = AppendEntries t n pli plt es ci ->
In e (log (snd (nwState net h))) ->
In e' es ->
eIndex e = eIndex e' ->
eTerm e = eTerm e' ->
In e es.