Ltac start :=
    red; unfold leaders_have_leaderLogs_strong; intros;
    subst; simpl in *; find_higher_order_rewrite;
    update_destruct; subst; rewrite_update; eauto; simpl in *.

Lemma handleClientRequest_type : forall h st client id c out st' l, handleClientRequest h st client id c = (out, st', l) -> type st' = type st /\ currentTerm st' = currentTerm st /\ (log st' = log st \/ exists e, eTerm e = currentTerm st /\ log st' = e :: log st).