Proof using.
start_update; simpl in *;
match goal with
| H : nwState ?net ?h = (?gd, ?d) |- _ =>
replace gd with (fst (nwState net h)) in * by (rewrite H; reflexivity);
replace d with (snd (nwState net h)) in * by (rewrite H; reflexivity);
clear H
end;
try find_erewrite_lem doGenericServer_log; eauto;
find_apply_hyp_hyp; intuition; eauto;
find_apply_lem_hyp doGenericServer_packets; subst; simpl in *; intuition.
Qed.

(* Specifications: *)
Lemma allEntries_log_matching_state_same_packet_subset :
refined_raft_net_invariant_state_same_packet_subset allEntries_log_matching_inductive.