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))).

(* Specifications: *)
Lemma lifted_allEntries_leader_sublog_invariant : forall (net : @network _ raft_msg_refined_multi_params), msg_refined_raft_intermediate_reachable net -> lifted_allEntries_leader_sublog net.
Lemma ghost_log_entries_match_init : msg_refined_raft_net_invariant_init ghost_log_entries_match.
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).
Lemma ghost_log_entries_match_append_entries : msg_refined_raft_net_invariant_append_entries' ghost_log_entries_match.