mirror of
https://github.com/c-cube/sidekick.git
synced 2025-12-06 11:15:43 -05:00
15 lines
314 B
OCaml
15 lines
314 B
OCaml
(*
|
|
MSAT is free software, using the Apache license, see file LICENSE
|
|
Copyright 2014 Guillaume Bury
|
|
Copyright 2014 Simon Cruanes
|
|
*)
|
|
|
|
type ('a, 'b) t =
|
|
| Left of 'a
|
|
| Right of 'b
|
|
|
|
val mk_left : 'a -> ('a, 'b) t
|
|
val mk_right : 'b -> ('a, 'b) t
|
|
|
|
val destruct : ('a, 'b) t ->
|
|
('a -> 'c) -> ('b -> 'c) -> 'c
|