Proof using.
intros.
pose proof dup_drop_reorder _ packet_eq_dec _ _ ltac:(eauto).
match goal with
| [ H : dup_drop_step_star _ _ _ |- _ ] =>
eapply step_failure_dup_drop_step with (f := []) (Sigma := nwState net) in H
end.
eapply step_failure_star_raft_intermediate_reachable_extend with (f := []) (f' := []) (tr := []); [|eauto].
destruct net, net'. simpl in *. subst.
auto.
Qed.

(* Specifications: *)
Lemma append_entries_request_reply_correspondence_state_same_packet_subset :
raft_net_invariant_state_same_packet_subset append_entries_request_reply_correspondence.