mirror of
https://github.com/c-cube/sidekick.git
synced 2025-12-07 03:35:38 -05:00
16 lines
324 B
OCaml
16 lines
324 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
|
|
|
|
let mk_left a = Left a
|
|
let mk_right b = Right b
|
|
|
|
let destruct e f_left f_right = match e with
|
|
| Left a -> f_left a
|
|
| Right b -> f_right b
|