Proof using rmri si rri.
intros.
eapply handleAppendEntries_logs_sorted with (p0 := deghost_packet (mgv_deghost_packet p)).
- eauto using all_the_way_simulation_1.
- apply lift_prop.
+ apply logs_sorted_invariant.
+ auto using msg_simulation_1.
- rewrite <- all_the_way_deghost_spec.
rewrite pDst_deghost_packet.
rewrite pDst_mgv_deghost_packet.
eauto.
- rewrite pBody_deghost_packet.
rewrite pBody_mgv_deghost_packet.
auto.
- apply in_ghost_packet. apply in_mgv_ghost_packet. auto.
Qed.

(* Specifications: *)
Lemma contiguous_range_exact_lo_elim_exists :
forall es lo i,
contiguous_range_exact_lo es lo ->
lo < i <= maxIndex es -> exists e, eIndex e = i /\ In e es.