Proof using taifoli rri.
intros.
pose proof (lift_prop _ terms_and_indices_from_one_log_invariant).
unfold terms_and_indices_from_one_log in *.
rewrite <- deghost_spec with (net0 := net). auto.
Qed.

Lemma lifted_leader_sublog_nw :
forall net p t n pli plt es ci h e,
refined_raft_intermediate_reachable net ->
In p (nwPackets net) ->
pBody p = AppendEntries t n pli plt es ci ->
type (snd (nwState net h)) = Leader ->
eTerm e = currentTerm (snd (nwState net h)) ->
In e es ->
In e (log (snd (nwState net h))).