unsafeLiftRightCollapsed ::
    ([(a, NonEmpty b)] -> [(c, NonEmpty d)]) -> RightCollapsed a b -> RightCollapsed c d
unsafeLiftRightCollapsed f = RightCollapsed . f . unRightCollapsed
unsafeLiftRightCollapsed ::
    ([(a, NonEmpty b)] -> [(c, NonEmpty d)]) -> RightCollapsed a b -> RightCollapsed c d
unsafeLiftRightCollapsed f = RightCollapsed . f . unRightCollapsed
unsafeLiftRightCollapsed f = RightCollapsed . f . unRightCollapsed