Proof using rmri rlmli.
intros.
find_apply_lem_hyp in_mgv_ghost_packet.
match goal with
| _ : snd (pBody ?p) = ?x |- _ =>
assert (pBody (@mgv_deghost_packet _ _ ghost_log_params p) = x)
by (rewrite pBody_mgv_deghost_packet; auto)
end.
find_eapply_lem_hyp entries_sorted_nw_invariant; eauto.
eapply msg_lift_prop; eauto.
Qed.

(* Specifications: *)
Lemma update_elections_data_appendEntries_preserves_allEntries' :
forall st h t n pli plt es ci x,
In x (allEntries (fst st)) ->
In x (allEntries (update_elections_data_appendEntries h st t n pli plt es ci)).