data These : Type -> Type -> TypefromEither : Either a b -> These a bfromThis : These a b -> Maybe afromThat : These a b -> Maybe bthese : (a -> c) -> (b -> c) -> (a -> b -> c) -> These a b -> cswap : These a b -> These b abifold : Monoid m => These m m -> m