Proof using.
intros.
find_apply_lem_hyp handleClientRequest_type.
intuition.
Qed.

(* Specifications: *)
Lemma handleTimeout_type :
forall h st out st' l,
handleTimeout h st = (out, st', l) ->
(type st' = type st /\ currentTerm st' = currentTerm st) \/
type st' = Candidate.