mirror of
https://github.com/c-cube/sidekick.git
synced 2025-12-10 21:24:06 -05:00
15 lines
212 B
OCaml
15 lines
212 B
OCaml
|
|
open Solver_types
|
|
|
|
type t = explanation
|
|
|
|
let compare = cmp_exp
|
|
let equal a b = cmp_exp a b = 0
|
|
|
|
let pp = pp_explanation
|
|
|
|
module Set = CCSet.Make(struct
|
|
type t = explanation
|
|
let compare = compare
|
|
end)
|
|
|