Proof using si rri.
intros.
eapply lift_prop; eauto using logs_sorted_invariant.
Qed.

(* Specifications: *)
Theorem lift_logs_sorted :
forall net h,
refined_raft_intermediate_reachable net ->
sorted (log (snd (nwState net h))).
Theorem lift_logs_sorted :
forall net h,
refined_raft_intermediate_reachable net ->
sorted (log (snd (nwState net h))).
Lemma ghost_packet :
forall (net : network (params := raft_refined_multi_params)) p,
In p (nwPackets net) ->
In (deghost_packet p) (nwPackets (deghost net)).