Proof using.
intros.
eauto using simulation_1.
Qed.

(* Specifications: *)
Lemma step_failure_star_raft_intermediate_reachable_extend :
forall f net f' net' tr,
@step_failure_star _ _ raft_msg_refined_failure_params (f, net) (f', net') tr ->
msg_refined_raft_intermediate_reachable net ->
msg_refined_raft_intermediate_reachable net'.
Theorem simulation_2 :
forall net,
raft_intermediate_reachable net ->
exists rnet,
net = deghost rnet /\
refined_raft_intermediate_reachable rnet.