You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
This repo is archived. You can view files and clone it, but cannot push or open issues/pull-requests.
|
type ('a, 'b) or_ =
|
|
| Inl of 'a
|
|
| Inr of 'b;;
|
|
|
|
let f1 x = match snd x with
|
|
|Inl y -> Inl (fst x, y)
|
|
| Inr z -> Inr (fst x, z);;
|
|
|
|
let f2 x = match x with
|
|
|Inl y -> (fst y, Inl (snd y))
|
|
|Inr z -> (fst z, Inr (snd z));;
|