Ltac packet_simpl :=
    first [do_in_map; subst; simpl in *;
           unfold add_ghost_msg in *;
           do_in_map; subst; simpl in *|subst; simpl in *].

Lemma ghost_log_entries_match_state_same_packet_subset : msg_refined_raft_net_invariant_state_same_packet_subset ghost_log_entries_match.