Lemma no_entries_past_current_term_unaffected_1 : forall net st' ps' xs p ys d m, nwPackets net = xs ++ p :: ys -> no_entries_past_current_term net -> (forall h : Net.name, st' h = update name_eq_dec (nwState net) (pDst p) d h) -> (forall p' : packet, In p' ps' -> In p' (xs ++ ys) \/ p' = m) -> currentTerm (nwState net (pDst p)) <= currentTerm d -> log d = log (nwState net (pDst p)) -> ~ is_append_entries (pBody m) -> no_entries_past_current_term {| nwPackets := ps'; nwState := st' |}.