Instance Sem : Semantics := ClightSemanticsForMachines.Clight_newSem ge.Instance JR : Resources := LocksAndResources.Instance JTP : ThreadPool.ThreadPool := OrdinalPool.OrdinalThreadPool.Instance JMS : MachineSig := Concur.JuicyMachineShell.Instance DilMem : DiluteMem := HybridMachineSig.HybridCoarseMachine.DilMem.Instance scheduler : Scheduler := HybridCoarseMachine.scheduler.Instance JuicyMachine : HybridMachine := HybridCoarseMachine.HybridCoarseMachine.Definition jstate := jstate ge.Instance DR : Resources := DryHybridMachine.dryResources.Instance DTP : ThreadPool.ThreadPool := OrdinalPool.OrdinalThreadPool.Instance DMS : MachineSig := DryHybridMachine.DryHybridMachineSig.Instance DryMachine : HybridMachine := HybridCoarseMachine.HybridCoarseMachine.Definition dstate := ThreadPool.t
                         (ThreadPool := OrdinalPool.OrdinalThreadPool)
                         (*
                         @t dryResources DSem (@OrdinalPool.OrdinalThreadPool dryResources DSem)
                          *).Definition dmachine_state:= MachState(ThreadPool := OrdinalPool.OrdinalThreadPool).Definition match_st:= match_st'.

Lemma sync_step_diagram: forall (m m':Memory.mem) (U:seq nat) js js' ds i ev (MATCH: match_st js ds) (dinv: invariant ds) (Hi: containsThread js i) (Hcmpt: mem_compatible js m) (HschedN: schedPeek U = Some i) (Htstep: syncStep true Hi Hcmpt js' m' ev), exists ds' : dstate, exists ev', invariant ds' /\ match_st js' ds' /\ syncStep true (MTCH_cnt MATCH Hi) (MTCH_compat _ _ _ MATCH Hcmpt) ds' m' ev'.