Proof using lsi rri.
intros.
pose proof (lift_prop _ leader_sublog_invariant_invariant _ ltac:(eauto)) as Hinv.
unfold leader_sublog_invariant, leader_sublog_nw_invariant in *.
destruct Hinv as [Hhost Hnw].
find_apply_lem_hyp ghost_packet.
eapply_prop_hyp In In; eauto; try find_rewrite_lem deghost_spec; try rewrite deghost_spec; eauto.
Qed.

Lemma invalid_index :
forall net h e,
refined_raft_intermediate_reachable net ->
In e (log (snd (nwState net h))) ->
eIndex e = S (maxIndex (log (snd (nwState net h)))) ->
False.