Ltac currentTerm_sanity_start :=
    red; unfold leaderLogs_currentTerm_sanity; simpl; intros.Ltac currentTerm_sanity_start_update :=
    currentTerm_sanity_start;
    repeat find_higher_order_rewrite; update_destruct; rewrite_update; [|eauto].

(* Specifications: *)
Lemma leaderLogs_currentTerm_sanity_unchanged : forall net st' h gd d ps', leaderLogs_currentTerm_sanity net -> (forall h' : Net.name, st' h' = update name_eq_dec (nwState net) h (gd, d) h') -> leaderLogs gd = leaderLogs (fst (nwState net h)) -> currentTerm d >= currentTerm (snd (nwState net h)) -> leaderLogs_currentTerm_sanity {| nwPackets := ps'; nwState := st' |}.