Proof using rmri rri.
unfold maxIndex_sanity, lifted_maxIndex_sanity, maxIndex_lastApplied, maxIndex_commitIndex.
intros. intuition;
repeat match goal with
| [ H : forall _, _, h : Net.name |- _ ] => specialize (H h)
end;
repeat find_rewrite_lem deghost_spec;
repeat find_rewrite_lem msg_deghost_spec;
auto.
Qed.

Lemma maxIndex_sanity_lower :
forall net,
lifted_maxIndex_sanity net ->
maxIndex_sanity (deghost (mgv_deghost net)).