Proof using rmri.
unfold msg_refined_raft_net_invariant_state_same_packet_subset, state_machine_safety'.
intuition.
- unfold state_machine_safety_host' in *. intuition.
repeat find_apply_lem_hyp committed_lifted_committed.
eauto 6 using lifted_committed_committed, lifted_committed_state_same.
- unfold state_machine_safety_nw' in *. intuition.
find_apply_lem_hyp exists_in_mgv_deghost_packet. break_exists. break_and.
find_apply_hyp_hyp.
find_apply_lem_hyp in_mgv_ghost_packet.
match goal with
| [ H : context [ pBody ] |- _ ] =>
eapply H; eauto
end.
+ rewrite pBody_mgv_deghost_packet. repeat find_rewrite. eauto.
+ apply lifted_committed_committed.
eapply lifted_committed_state_same; eauto using committed_lifted_committed.
Qed.

(* Specifications: *)
Lemma CRC_state_same_packet_subset :
msg_refined_raft_net_invariant_state_same_packet_subset
(fun net : ghost_log_network => commit_recorded_committed (mgv_deghost net)).