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 initial_core_nextblock : forall (i : nat) (v : Values.val) (args : list Values.val) (c : semC) (m m' : mem), initial_core semSem i m c m' v args -> (Mem.nextblock m <= Mem.nextblock m')%positive.