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.

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