Definition lifted_allEntries_leader_sublog (net : network) :=
    forall leader e h,
      type (snd (nwState net leader)) = Leader ->
      In e (map snd (allEntries (fst (nwState net h)))) ->
      eTerm e = currentTerm (snd (nwState net leader)) ->
      In e (log (snd (nwState net leader))).

Lemma handleAppendEntries_ghost_log: forall (p : packet) (net : network) (d : raft_data) (m : msg) (t : term) (n : name) (pli : logIndex) (plt : term) (es : list entry) (ci : logIndex) (h : Net.name), msg_refined_raft_intermediate_reachable net -> entries_match (log (snd (nwState net h))) (fst (pBody p)) -> handleAppendEntries h (snd (nwState net h)) t n pli plt es ci = (d, m) -> snd (pBody p) = AppendEntries t n pli plt es ci -> In p (nwPackets net) -> log d = log (snd (nwState net h)) \/ log d = fst (pBody p).