Ltac rewrite_goal :=
    match goal with
      | H: _ = _ |- _ => rewrite H
    end.Definition no_entries_past_current_term_host_lifted net :=
    forall (h : name) e,
      In e (log (snd (nwState net h))) ->
      eTerm e <= currentTerm (snd (nwState net h)).

Lemma handleAppendEntries_currentTerm_monotonic: forall h st (d : raft_data) (m : msg) (t : term) (n : name) (pli : logIndex) (plt : term) (es : list entry) (ci : logIndex), handleAppendEntries h st t n pli plt es ci = (d, m) -> currentTerm st <= currentTerm d.