Section FineGrainedExecutions.
Context
{Sem : Semantics}
{initU : seq.seq nat}
{SemAx : CoreLanguage.SemAxioms}.
Existing Instance dryResources.
Existing Instance HybridFineMachine.scheduler.
Existing Instance OrdinalPool.OrdinalThreadPool.
Existing Instance DryHybridMachineSig.
Existing Instance FineDilMem.
Existing Instance dryFineMach.

Lemma multi_step_mem_compatible :
forall U tr tp m U' tr' tp' m'
(Hexec: multi_step (U, tr, tp) m (U', tr', tp') m'),
mem_compatible tp m \/ tp = tp' /\ m = m' /\ U = U' /\ tr = tr'.