Section OneLeaderPerTermProof.
Context {orig_base_params : BaseParams}.
Context {one_node_params : OneNodeParams orig_base_params}.
Context {raft_params : RaftParams orig_base_params}.
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.
Context {rri : raft_refinement_interface}.
Context {vci : votes_correct_interface}.
Context {cci : cronies_correct_interface}.

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