Proof using rri.
unfold votes_correct, cronies_correct, one_leader_per_term in *.
intuition.
repeat match goal with
| H : context [ nwState (deghost _) _ ] |- _ =>
rewrite deghost_spec in H
end.
match goal with
| h : type _ = _, h' : type _ = _ |- _ =>
copy_eapply_prop_hyp votes_received_leaders h;
copy_eapply_prop_hyp votes_received_leaders h'
end.
match goal with
| H : wonElection _ = _ |- _ =>
find_eapply_lem_hyp wonElection_one_in_common; [|clear H; eauto]
end.
break_exists; intuition.
eapply_prop one_vote_per_term;
eapply_prop cronies_votes;
[eapply_prop votes_received_cronies|];
intuition eauto.
unfold raft_data in *. unfold raft_refined_base_params, raft_refined_multi_params in *.
repeat find_rewrite.
eapply_prop votes_received_cronies; intuition eauto.
Qed.

(* Specifications: *)
Theorem one_leader_per_term_invariant :
forall net,
raft_intermediate_reachable net -> one_leader_per_term net.