Hi,

Why isn't possible to do the following?

type b = [`A of [`B of bool]]
type c = [`A of [`C of char]]
type a = [b|c]

I expect the last declaration to be equivalent to:

type a = [`A of [`B of bool | `C of char]]


Thanks,

-- 
Stephane Glondu