Commit 983ff33f authored by POTTIER Francois's avatar POTTIER Francois

Fix the type of [handle_NonDisjointUnion].

parent cb9e6377
......@@ -35,7 +35,7 @@ module Set : sig
exception NonDisjointUnion of atom
val disjoint_union: t -> t -> t
val handle_NonDisjointUnion: ('a -> 'b) -> 'a -> bool
val handle_NonDisjointUnion: ('a -> unit) -> 'a -> bool
(* Sets of atoms form monoids under union and disjoint union. *)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment