Proof using si rri.
intros.
pose proof (lift_prop _ logs_sorted_invariant).
forward_invariant.
unfold entries_sorted, logs_sorted, logs_sorted_host in *. break_and.
match goal with
| [ H : _ |- _ ] => setoid_rewrite deghost_spec in H
end.
eauto.
Qed.

(* Specifications: *)
Lemma entries_match_invariant :
forall net h h',
refined_raft_intermediate_reachable net ->
entries_match (log (snd (nwState net h))) (log (snd (nwState net h'))).