Ltac copy_eapply_prop_hyp P H :=
    match goal with
      | H' : P _ |- _ =>
        let x := fresh in
        pose proof H as x;
          apply H' in x
    end.

(* Specifications: *)
Lemma one_leader_per_term_invariant' : forall net, votes_correct net -> cronies_correct net -> one_leader_per_term (deghost net).
Theorem one_leader_per_term_invariant : forall net, raft_intermediate_reachable net -> one_leader_per_term net.