Section DrySafety.
(* combining results from semax_to_juicy_machine and erasure_proof *)
Variable (CPROOF : CSL_proof).
Instance Sem : Semantics := ClightSemanticsForMachines.Clight_newSem (Clight.globalenv CPROOF.(CSL_prog)).
Definition ge := Clight.globalenv CPROOF.(CSL_prog).
Instance DTP : threadPool.ThreadPool.ThreadPool := Parching.DTP ge.
Instance DMS : HybridMachineSig.MachineSig := Parching.DMS ge.
Definition init_mem := proj1_sig (init_mem CPROOF).
Definition init_rmap n := m_phi (initial_jm CPROOF n).

Lemma init_no_locks n : Parching.no_locks_perm (init_rmap n).