extracted/blocks.mli

   1 open Preamble
   2
   3 open Extra_bool
   4
   5 open Coqlib
   6
   7 open Values
   8
   9 open FrontEndVal
  10
  11 open GenMem
  12
  13 open FrontEndMem
  14
  15 open Globalenvs
  16
  17 open String
  18
  19 open Sets
  20
  21 open Listb
  22
  23 open LabelledObjects
  24
  25 open BitVectorTrie
  26
  27 open Graphs
  28
  29 open I8051
  30
  31 open Order
  32
  33 open Registers
  34
  35 open CostLabel
  36
  37 open Hide
  38
  39 open Proper
  40
  41 open PositiveMap
  42
  43 open Deqsets
  44
  45 open ErrorMessages
  46
  47 open PreIdentifiers
  48
  49 open Errors
  50
  51 open Extralib
  52
  53 open Lists
  54
  55 open Identifiers
  56
  57 open Integers
  58
  59 open AST
  60
  61 open Division
  62
  63 open Exp
  64
  65 open Arithmetic
  66
  67 open Setoids
  68
  69 open Monad
  70
  71 open Option
  72
  73 open Extranat
  74
  75 open Vector
  76
  77 open Div_and_mod
  78
  79 open Jmeq
  80
  81 open Russell
  82
  83 open List
  84
  85 open Util
  86
  87 open FoldStuff
  88
  89 open BitVector
  90
  91 open Types
  92
  93 open Bool
  94
  95 open Relations
  96
  97 open Nat
  98
  99 open Hints_declaration
 100
 101 open Core_notation
 102
 103 open Pts
 104
 105 open Logic
 106
 107 open Positive
 108
 109 open Z
 110
 111 open BitVectorZ
 112
 113 open Pointers
 114
 115 open ByteValues
 116
 117 open BackEndOps
 118
 119 open Joint
 120
 121 open State
 122
 123 open Bind_new
 124
 125 open BindLists
 126
 127 val bindNewP : Monad.monadPred
 128
 129 val split_on_last :
 130   'a1 List.list -> ('a1 List.list, 'a1) Types.prod Types.option
 131
 132 type step_block =
 133   (((__ -> Joint.joint_seq) List.list, __ -> Joint.joint_step) Types.prod,
 134   Joint.joint_seq List.list) Types.prod
 135
 136 type fin_block = (Joint.joint_seq List.list, Joint.joint_fin_step) Types.prod
 137
 138 type bind_step_block = (Registers.register, step_block) Bind_new.bind_new
 139
 140 type bind_fin_block = (Registers.register, fin_block) Bind_new.bind_new
 141
 142 type bind_seq_list =
 143   (Registers.register, Joint.joint_seq List.list) Bind_new.bind_new
 144
 145 val add_dummy_variance : 'a2 List.list -> ('a1 -> 'a2) List.list
 146
 147 val ensure_step_block :
 148   Joint.params -> AST.ident List.list -> Joint.joint_seq List.list ->
 149   step_block
 150
 151 val map_eval : ('a1 -> 'a2) List.list -> 'a1 -> 'a2 List.list
 152