Definition lifted_entries_sorted_nw' (net : ghost_log_network) :=
    forall p t n pli plt es ci,
      In p (nwPackets net) ->
      snd (pBody p) = AppendEntries t n pli plt es ci ->
      sorted es.

Lemma haveQuorum_directly_committed : forall net h e, refined_raft_intermediate_reachable net -> type (snd (nwState net h)) = Leader -> In e (log (snd (nwState net h))) -> haveQuorum (snd (nwState net h)) h (eIndex e) = true -> eTerm e = currentTerm (snd (nwState net h)) -> directly_committed net e.