Proof using rri.
unfold maxIndex_sanity, lifted_maxIndex_sanity, maxIndex_lastApplied, maxIndex_commitIndex.
intuition; rewrite deghost_spec; rewrite msg_deghost_spec';
repeat match goal with
| [ H : forall _, _, h : Net.name |- _ ] => specialize (H h)
end; intuition.
Qed.
Definition everything (net : ghost_log_network) : Prop :=
lifted_maxIndex_sanity net /\
commit_invariant net /\
state_machine_safety (deghost (mgv_deghost net)).

(* Specifications: *)
Lemma everything_init :
msg_refined_raft_net_invariant_init everything.