Source file `dkBasic.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
(** Part of the Dedukti source file kernel/basic.ml. *)

type ident = string

let ident_eq s1 s2 = s1 == s2 || s1 = s2

type mident = string

module WS = Weak.Make (struct
  type t = ident
  let equal = ident_eq
  let hash = Hashtbl.hash
end)

let hash_ident = WS.create 251

let mk_ident = WS.merge hash_ident

let underscore = mk_ident "_"

let hash_mident = WS.create 251

let mk_mident md = WS.merge hash_mident md