Ltac unchanged :=
    red; intros; eapply allEntries_log_matching_unchanged; subst; eauto.

Lemma packets_entries_eq: forall net p p0 entries es e e' (d : raft_data) (n : name) (pli : logIndex) (plt : term) (ci : logIndex) (t0 : term) (leaderId : name) (prevLogIndex : logIndex) (prevLogTerm : term) (leaderCommit : logIndex), refined_raft_intermediate_reachable net -> In p (nwPackets net) -> In p0 (nwPackets net) -> pBody p0 = AppendEntries t0 leaderId prevLogIndex prevLogTerm entries leaderCommit -> pBody p = AppendEntries (currentTerm d) n pli plt es ci -> eTerm e = eTerm e' -> eIndex e = eIndex e' -> In e entries -> In e' es -> e = e'.