open Preamble

open Fetch

open Hide

open Division

open Z

open BitVectorZ

open Pointers

open Coqlib

open Values

open Events

open IOMonad

open IO

open Sets

open Listb

open StructuredTraces

open AbstractStatus

open BitVectorTrie

open String

open Exp

open Arithmetic

open Vector

open FoldStuff

open BitVector

open Extranat

open Integers

open AST

open LabelledObjects

open Proper

open PositiveMap

open Deqsets

open ErrorMessages

open PreIdentifiers

open Errors

open Extralib

open Setoids

open Monad

open Option

open Div_and_mod

open Util

open List

open Lists

open Bool

open Relations

open Nat

open Positive

open Identifiers

open CostLabel

open ASM

open Types

open Hints_declaration

open Core_notation

open Pts

open Logic

open Jmeq

open Russell

open Status

open StatusProofs

open Interpret

open ASMCosts

open Stacksize

open SmallstepExec

open Executions

open Measurable

val mk_trans_system_of_abstract_status :
  StructuredTraces.abstract_status -> (__ -> __ Monad.max_def__o__monad) ->
  (IO.io_out, IO.io_in) SmallstepExec.trans_system

val mk_fullexec_of_abstract_status :
  StructuredTraces.abstract_status -> (__ -> __ Monad.max_def__o__monad) ->
  __ -> (IO.io_out, IO.io_in) SmallstepExec.fullexec

val mk_preclassified_system_of_abstract_status :
  StructuredTraces.abstract_status -> (__ -> __ Monad.max_def__o__monad) ->
  __ -> Measurable.preclassified_system

val oC_preclassified_system :
  ASM.labelled_object_code -> Measurable.preclassified_system

open Assembly

val execute_1_pseudo_instruction' :
  ASM.pseudo_assembly_program -> (ASM.identifier -> BitVector.word) ->
  (ASM.identifier -> BitVector.word) -> (BitVector.word -> BitVector.word) ->
  (BitVector.word -> Bool.bool) -> Status.pseudoStatus -> Status.pseudoStatus

val classify_pseudo_instruction :
  ASM.pseudo_instruction -> StructuredTraces.status_class

val aSM_classify :
  ASM.pseudo_assembly_program -> Status.pseudoStatus ->
  StructuredTraces.status_class

val aSM_as_label_of_pc :
  ASM.pseudo_assembly_program -> BitVector.word -> CostLabel.costlabel
  Types.option

val aSM_as_result :
  ASM.pseudo_assembly_program -> (ASM.identifier -> BitVector.word) ->
  Status.pseudoStatus -> Integers.int Types.option

open AssocList

val aSM_as_call_ident :
  ASM.pseudo_assembly_program -> (ASM.identifier -> BitVector.word) ->
  (ASM.identifier -> BitVector.word) -> (BitVector.word -> BitVector.word) ->
  (BitVector.word -> Bool.bool) -> Status.pseudoStatus Types.sig0 ->
  AST.ident

val aSM_abstract_status :
  ASM.pseudo_assembly_program -> (ASM.identifier -> BitVector.word) ->
  (ASM.identifier -> BitVector.word) -> (BitVector.word -> BitVector.word) ->
  (BitVector.word -> Bool.bool) -> StructuredTraces.abstract_status

val aSM_preclassified_system :
  ASM.pseudo_assembly_program -> (BitVector.word -> BitVector.word) ->
  (BitVector.word -> Bool.bool) -> Measurable.preclassified_system

val aSM_status :
  ASM.pseudo_assembly_program -> (BitVector.word -> BitVector.word) ->
  (BitVector.word -> Bool.bool) -> StructuredTraces.abstract_status