Ltac fix_data :=
    do 2 (unfold raft_data in *; simpl in *).Ltac contradict_maxIndex :=
    exfalso; find_apply_lem_hyp maxIndex_is_max;
    try (fix_data; omega);
    eapply entries_sorted_invariant; eauto.

Lemma allEntries_log_matching_unchanged : forall net st' h gd d ps', allEntries_log_matching net -> (forall h' : Net.name, st' h' = update name_eq_dec (nwState net) h (gd, d) h') -> log d = log (snd (nwState net h)) -> allEntries gd = allEntries (fst (nwState net h)) -> allEntries_log_matching {| nwPackets := ps'; nwState := st' |}.