Ltac currentTerm_sanity_unchanged :=
    red; intros; eapply leaderLogs_currentTerm_sanity_unchanged; subst; eauto.Ltac currentTerm_sanity_break_update :=
    currentTerm_sanity_start_update;
    match goal with
      h : _ |- _ => eapply h
    end; [| eauto];
    match goal with
      h : _ |- _ => solve [rewrite h; auto]
    end.

Lemma leaderLogs_currentTerm_sanity_do_leader : refined_raft_net_invariant_do_leader leaderLogs_currentTerm_sanity.