Ltac copy_eapply_prop_hyp P Q :=
    match goal with
      | [ H : context [ P ], H' : context [ Q ] |- _ ] =>
        copy_eapply H H'
    end.

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.