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 ghost_log_entries_match_append_entries : msg_refined_raft_net_invariant_append_entries' ghost_log_entries_match.