Section TermSanityProof.
Context {orig_base_params : BaseParams}.
Context {one_node_params : OneNodeParams orig_base_params}.
Context {raft_params : RaftParams orig_base_params}.
Proof using.
unfold no_entries_past_current_term_nw in *. intros.
simpl in *. find_apply_hyp_hyp. intuition eauto.
Qed.
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').