Proof using.
unfold refined_raft_net_invariant_do_generic_server, allEntries_indices_gt_0.
intros. simpl in *.
repeat find_higher_order_rewrite.
update_destruct_max_simplify; eauto.
match goal with
| [ H : nwState ?net ?h = (?x, _) |- _ ] =>
replace (x) with (fst (nwState net h)) in * by (rewrite H; auto)
end.
eauto.
Qed.

(* Specifications: *)
Lemma allEntries_indices_gt_0_state_same_packet_subset :
refined_raft_net_invariant_state_same_packet_subset allEntries_indices_gt_0.