2 ||M|| This file is part of HELM, an Hypertextual, Electronic
3 ||A|| Library of Mathematics, developed at the Computer Science
4 ||T|| Department, University of Bologna, Italy.
6 ||T|| HELM is free software; you can redistribute it and/or
7 ||A|| modify it under the terms of the GNU General Public License
8 \ / version 2 or (at your option) any later version.
9 \ / This software is distributed as is, NO WARRANTY.
10 V_______________________________________________________________ *)
14 val empty_machine: machine
16 val get: (unit -> 'a) -> (Brg.bind -> 'a) -> machine -> int -> 'a
18 val push: (machine -> 'a) -> machine -> Brg.bind -> 'a
20 val xwhd: (machine -> Brg.term -> 'a) -> machine -> Brg.term -> 'a
22 (* arguments: expected type, inferred type *)
24 (unit -> 'a) -> (unit -> 'a) ->
25 ?si:bool -> machine -> Brg.term -> machine -> Brg.term -> 'a
27 type message = (machine, Brg.term) Log.item list
29 val specs: (machine, Brg.term) Log.specs