Ltac finish := solve [eapply_prop_hyp In In; eauto].

(* Specifications: *)
Lemma log_properties_hold_on_leader_logs_request_vote_reply : refined_raft_net_invariant_request_vote_reply log_properties_hold_on_leader_logs.
Lemma log_properties_hold_on_leader_logs_append_entries : refined_raft_net_invariant_append_entries log_properties_hold_on_leader_logs.
Lemma log_properties_hold_on_leader_logs_append_entries_reply : refined_raft_net_invariant_append_entries_reply log_properties_hold_on_leader_logs.
Lemma log_properties_hold_on_leader_logs_request_vote : refined_raft_net_invariant_request_vote log_properties_hold_on_leader_logs.
Lemma log_properties_hold_on_leader_logs_do_leader : refined_raft_net_invariant_do_leader log_properties_hold_on_leader_logs.
Lemma log_properties_hold_on_leader_logs_do_generic_server : refined_raft_net_invariant_do_generic_server log_properties_hold_on_leader_logs.
Lemma log_properties_hold_on_leader_logs_reboot : refined_raft_net_invariant_reboot log_properties_hold_on_leader_logs.
Lemma log_properties_hold_on_leader_logs_client_request : refined_raft_net_invariant_client_request log_properties_hold_on_leader_logs.
Lemma log_properties_hold_on_leader_logs_timeout : refined_raft_net_invariant_timeout log_properties_hold_on_leader_logs.
Lemma log_properties_hold_on_leader_logs_state_same_packet_subset : refined_raft_net_invariant_state_same_packet_subset log_properties_hold_on_leader_logs.
Theorem log_properties_hold_on_leader_logs_invariant : forall net, refined_raft_intermediate_reachable net -> log_properties_hold_on_leader_logs net.