(** Simulation for all states *)

(* Specifications: *)
Theorem step_simulation:
forall S1 t S2,
step S1 t S2 -> plus Csem.step ge S1 t S2.
Theorem progress:
forall S,
safe S -> (exists r, final_state S r) \/ (exists t, exists S', step S t S').
Theorem step_simulation:
forall S1 t S2,
step S1 t S2 -> plus Csem.step ge S1 t S2.
Theorem progress:
forall S,
safe S -> (exists r, final_state S r) \/ (exists t, exists S', step S t S').