Proof using.
intros. eapply no_entries_past_current_term_nw_only_new_packets_matter; eauto.
unfold no_entries_past_current_term_nw. intros. simpl in *.
do_in_map. subst. simpl in *.
find_apply_hyp_hyp.
exfalso. match goal with H : _ |- _ => apply H end.
repeat eexists; eauto.
Qed.

(* Specifications: *)
Theorem no_entries_past_current_term_nw_not_append_entries :
forall net ps' p' st',
no_entries_past_current_term_nw net ->
(forall p, In p ps' -> In p (nwPackets net) \/ p = p') ->
~ is_append_entries (pBody p') ->
no_entries_past_current_term_nw (mkNetwork ps' st').