module DuplicateProperties where

foreign import data Test :: # * -> *

foreign import subtractX "" :: forall r. Test (x :: Unit | r) -> Test r

foreign import hasX "" :: forall r. Test (x :: Unit, y :: Unit | r)

baz = subtractX (subtractX hasX)