Ltac forward_invariant :=
    match goal with
    | [ H : refined_raft_intermediate_reachable _, H' : _ |- _ ] =>
      apply H' in H; clear H'
    end.Ltac forward_nw_invariant :=
    match goal with
    | [ H : forall _ _ _ _ _ _ _, In _ _ -> pBody _ = _ -> _,
        H' : In _ _,
        H'' : pBody _ = _ |- _ ] =>
      specialize (H _ _ _ _ _ _ _ H' H'')
    end.

Lemma allEntries_gt_0_invariant : forall net h e, refined_raft_intermediate_reachable net -> In e (map snd (allEntries (fst (nwState net h)))) -> eIndex e > 0.