Proof using.
unfold no_entries_past_current_term_nw. intros. simpl in *.
find_apply_hyp_hyp. intuition eauto.
Qed.

Theorem no_entries_past_current_term_nw_no_append_entries :
forall net ps' h l st',
no_entries_past_current_term_nw net ->
(forall p, In p ps' -> In p (nwPackets net) \/ In p (send_packets h l)) ->
(forall m, In m l -> ~ is_append_entries (snd m)) ->
no_entries_past_current_term_nw (mkNetwork ps' st').