Set Bullet Behavior "Strict Subproofs".

Lemma Clight_new_Clight_safety_gen:
forall n sch tr tp m tp' (Hmem: mem_ok tp m),
csafe
(Sem := Clight_newSem ge)
(machineSig:= HybridMachine.DryHybridMachine.DryHybridMachineSig)
(sch, tr, tp) m (n * 2) ->
match_st tp tp' ->
csafe
(Sem := ClightSem ge)
(ThreadPool:= OrdinalPool.OrdinalThreadPool(Sem:=ClightSem ge))
(machineSig:= HybridMachine.DryHybridMachine.DryHybridMachineSig)
(sch, tr, tp') m n.