(** Proof of safety of the FineConc machine*)

      Notation fsafe := (@HybridFineMachine.fsafe _ _ _ _ FineDilMem).

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)).