1
0
Fork 0
This repository has been archived on 2024-05-03. You can view files and clone it, but cannot push or open issues or pull requests.
unification-pfa/lib/identifier.ml
2024-03-28 17:17:47 +01:00

10 lines
180 B
OCaml

type t = string [@@deriving eq, ord, show]
(** Generate new unique id *)
let fresh =
let r = ref 0 in
fun () ->
let id = "id_" ^ string_of_int !r in
incr r;
id
;;