Instance ClightAxioms : @CoreLanguage.SemAxioms (ClightSem ge).

Lemma CoreSafe_star: forall n U tr tp m tid (c : @semC (ClightSem ge)) c' tp' m' ev
(HschedN: schedPeek U = Some tid)
(Htid: containsThread tp tid)
(Hm: fst (getThreadR(resources:=dryResources) Htid) = getCurPerm m)
(Hcmpt: mem_compatible tp m)
(Hinv: invariant tp)
(Hcode: getThreadC Htid = Krun c)
(Hcoresteps: ev_star ge c m ev c' m')
(Htp': tp' = updThread Htid (Krun c') (getCurPerm m', snd (getThreadR Htid)))
(Hsafe: csafe(ThreadPool:= OrdinalPool.OrdinalThreadPool(Sem:=ClightSem ge))
(machineSig:= HybridMachine.DryHybridMachine.DryHybridMachineSig)
(yield U, seq.cat tr (map (fun mev => Events.internal tid mev) ev), tp') (diluteMem m') n),
csafe(ThreadPool:= OrdinalPool.OrdinalThreadPool(Sem:=ClightSem ge))
(machineSig:= HybridMachine.DryHybridMachine.DryHybridMachineSig)
(U, tr, tp) m n.