mirror of
https://github.com/c-cube/sidekick.git
synced 2025-12-09 04:35:35 -05:00
5feb5d8e73
interface variables are terms claimed by >= 2 theories. Theories now have a unique ID attributed at their creation.
12 lines
150 B
OCaml
12 lines
150 B
OCaml
include CCInt
|
|
|
|
type state = int ref
|
|
|
|
let create () = ref 1
|
|
|
|
let fresh (self : state) =
|
|
let n = !self in
|
|
incr self;
|
|
n
|
|
|
|
module Set = Util.Int_set
|