Proof using.
unfold leaderLogs_currentTerm_sanity. intros. find_higher_order_rewrite.
update_destruct; subst; rewrite_update.
- simpl in *. find_rewrite. find_apply_hyp_hyp. omega.
- eauto.
Qed.
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.

(* Specifications: *)
Lemma leaderLogs_currentTerm_sanity_init :
refined_raft_net_invariant_init leaderLogs_currentTerm_sanity.