Section FineConcSafe.
Context {Sem : Semantics}
{semAx: CoreLanguage.SemAxioms}
{semDet: CoreLanguage.SemDet}
{CI : CoreInj}
{FI : FineInit}.
(** Excluded middle is required, but can be easily lifted*)
Variable em : ClassicalFacts.excluded_middle.
(* Is this the right instance? *)
Existing Instance DryHybridMachine.dryResources.
Existing Instance DryHybridMachine.DryHybridMachineSig.
Existing Instance OrdinalPool.OrdinalThreadPool.
Existing Instance dryFineMach.
Existing Instance FineDilMem.
Existing Instance dryCoarseMach.
Existing Instance HybridFineMachine.scheduler.
Existing Instance HybridCoarseMachine.scheduler.
Existing Instance HybridCoarseMachine.DilMem.

Lemma init_tp_wd:
forall pmap v args m' tp (ARGS:valid_val_list (id_ren init_mem) args),
@init_mach DryHybridMachine.dryResources _ _ _ pmap init_mem tp m' v args ->
tp_wd (id_ren m') tp /\ valid_mem m'.