Proof using naetsi rri.
unfold no_append_entries_to_self'. intros.
find_apply_lem_hyp ghost_packet.
find_eapply_lem_hyp lift_no_append_entries_to_self; auto.
simpl in *. eauto.
Qed.

(* Specifications: *)
Lemma no_append_entries_to_leader_invariant' :
forall net,
refined_raft_intermediate_reachable net ->
no_append_entries_to_leader' net.