Proof using.
unfold raft_net_invariant_do_leader, current_term_gt_zero.
simpl. intuition. find_higher_order_rewrite. update_destruct; subst; rewrite_update.
- find_apply_lem_hyp doLeader_type. intuition.
repeat find_rewrite. auto.
- auto.
Qed.

(* Specifications: *)
Lemma current_term_gt_zero_do_generic_server :
raft_net_invariant_do_generic_server current_term_gt_zero.