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

(** *** Safety preservation for the FineConc machine starting from the initial state*)
Theorem init_fine_safe:
forall sched n tpf m'
(Hinit: tpf_init sched init_mem (sched, [::], tpf) m' f arg)
(ARG: valid_val_list (id_ren init_mem) arg),
fsafe tpf (@diluteMem FineDilMem m') sched n.