Definition the_ge := Globalenvs.Genv.globalenv the_program.Instance X86Sem: Semantics:=
      { semG:= Asm.genv;
         semC:= Asm.state;
         semSem:= Asm_EvSem the_ge Hsafe;
         the_ge := the_ge
      }.Definition AsmHybridMachine    := @dryCoarseMach X86Sem.Definition AsmConcurSem    := HybridMachineSig.HybridMachineSig.ConcurMachineSemantics
                                  (HybridMachine:= AsmHybridMachine).Definition AsmFineHybridMachine    := @dryFineMach X86Sem.Definition AsmFineConcurSem    := HybridMachineSig.HybridMachineSig.ConcurMachineSemantics
                                  (HybridMachine:= AsmFineHybridMachine).(** The initial state 
      There are three, but all should be equivalent. *)
  Definition Asm_initial_state := tpc_init(asmSem:=X86Sem).Definition Asm_initial_state_fine := tpf_init(asmSem:=X86Sem).Definition Asm_initial_state_bare := bare_init(asmSem:=X86Sem).Notation the_ge := (@the_ge the_program).Instance X86Sem: Semantics := @X86Sem the_program Hsafe.

Lemma corestep_decay: forall c c' m m', corestep semSem c m c' m' -> decay m m'.