module Duplicate

-- duplicate name should fail
-- FIXME FC is wrong here
data Either : U -> U -> U where
  Left : {a b : U} -> a -> Either a b
  Left : {a b : U} -> b -> Either a b