Proof using.
intros.
destruct (pBody p) eqn:?; simpl in *; repeat break_let; repeat find_inversion.
- find_erewrite_lem handleRequestVote_same_log. eauto using aiis_intro_state.
- find_erewrite_lem handleRequestVoteReply_same_log. eauto using aiis_intro_state.
- find_apply_lem_hyp handleAppendEntries_log. intuition; find_rewrite.
+ eauto using aiis_intro_state.
+ subst. eauto using mEntries_intro, aiis_intro_packet.
+ do_in_app. intuition.
* eauto using mEntries_intro, aiis_intro_packet.
* find_apply_lem_hyp removeAfterIndex_in.
eauto using aiis_intro_state.
- find_erewrite_lem handleAppendEntriesReply_same_log. eauto using aiis_intro_state.
Qed.

Lemma handleRequestVote_doesn't_send_AE :
forall h st t n lli llt d m,
handleRequestVote h st t n lli llt = (d, m) ->
~ is_append_entries m.