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

Lemma lifted_leader_sublog_invariant : forall net, refined_raft_intermediate_reachable net -> leader_sublog net.