Lemma update_elections_data_appendEntries_log_allEntries_leader : forall (h : name) (st : electionsData * raft_data) (t : term) (n : name) (pli : logIndex) (plt : term) (es : list entry) (ci : logIndex) (st' : raft_data) (ps : msg), handleAppendEntries h (snd st) t n pli plt es ci = (st', ps) -> type st' = Leader -> (currentTerm st' = currentTerm (snd st) /\ type (snd st) = Leader /\ log st' = log (snd st) /\ allEntries (update_elections_data_appendEntries h st t n pli plt es ci) = allEntries (fst st)).