{-# LANGUAGE ConstraintKinds #-}
{-# LANGUAGE FlexibleInstances #-}
{-# LANGUAGE RankNTypes #-}
{-# LANGUAGE ScopedTypeVariables #-}
{-# LANGUAGE Trustworthy #-}
{-# LANGUAGE UndecidableInstances #-}

-- |
-- Module      :   Grisette.Internal.Core.Control.Monad.Class.Union
-- Copyright   :   (c) Sirui Lu 2021-2024
-- License     :   BSD-3-Clause (see the LICENSE file)
--
-- Maintainer  :   siruilu@cs.washington.edu
-- Stability   :   Experimental
-- Portability :   GHC only
module Grisette.Internal.Core.Control.Monad.Class.Union
  ( -- * MonadUnion
    MonadUnion,
  )
where

import Grisette.Internal.Core.Data.Class.SimpleMergeable (SymBranching)

-- $setup
-- >>> import Grisette.Core
-- >>> import Grisette.SymPrim

-- | Class for monads that support union-like operations and
-- 'Grisette.Core.Data.Class.Mergeable' knowledge propagation.
type MonadUnion u = (SymBranching u, Monad u)