Proof using.
unfold refined_raft_net_invariant_timeout, allEntries_indices_gt_0.
intros. simpl in *.
repeat find_higher_order_rewrite.
update_destruct_max_simplify; eauto.
find_rewrite_lem update_elections_data_timeout_allEntries.
eauto.
Qed.

(* Specifications: *)
Lemma ghost_packet :
forall (net : network (params := raft_refined_multi_params)) p,
In p (nwPackets net) ->
In (deghost_packet p) (nwPackets (deghost net)).