Ltac start := red; unfold candidate_term_gt_log; simpl; intros;
    find_higher_order_rewrite; update_destruct; subst; rewrite_update; [|auto].

(* Specifications: *)
Lemma candidate_term_gt_log_append_entries_reply : raft_net_invariant_append_entries_reply candidate_term_gt_log.
Lemma candidate_term_gt_log_request_vote : raft_net_invariant_request_vote candidate_term_gt_log.
Lemma candidate_term_gt_log_request_vote_reply : raft_net_invariant_request_vote_reply candidate_term_gt_log.
Lemma candidate_term_gt_log_do_leader : raft_net_invariant_do_leader candidate_term_gt_log.
Lemma candidate_term_gt_log_do_generic_server : raft_net_invariant_do_generic_server candidate_term_gt_log.
Lemma candidate_term_gt_log_state_same_packet_subset : raft_net_invariant_state_same_packet_subset candidate_term_gt_log.
Lemma candidate_term_gt_log_reboot : raft_net_invariant_reboot candidate_term_gt_log.
Lemma candidate_term_gt_log_invariant : forall net, raft_intermediate_reachable net -> candidate_term_gt_log net.