Proof using si rri.
intros.
pose proof (lift_prop _ logs_sorted_invariant).
find_insterU. conclude_using eauto.
unfold logs_sorted in *. break_and.
unfold logs_sorted_host in *.
find_insterU.
find_rewrite_lem deghost_spec.
eauto.
Qed.

(* Specifications: *)
Lemma leaderLogs_entries_match_nw_packet_set :
forall net net',
leaderLogs_entries_match_nw net ->
(forall p, In p (nwPackets net') ->
is_append_entries (pBody p) ->
In p (nwPackets net)) ->
(forall h, leaderLogs (fst (nwState net' h)) = leaderLogs (fst (nwState net h))) ->
leaderLogs_entries_match_nw net'.