(** Proof of safety of the FineConc machine*)
Notation fsafe := (@HybridFineMachine.fsafe _ _ _ _ FineDilMem).

(** Simulation between the two machines implies safety*)
Lemma fine_safe_sched:
forall tpf trf tpc trc mf mc (g fg : memren) fp xs sched
(Hsim: SimDefs.sim tpc trc mc tpf trf mf xs g fg fp (S (size sched))),
@fsafe tpf mf sched (S (size sched)).