Product.hs

{-# LANGUAGE TypeOperators, MultiParamTypeClasses, FlexibleInstances, IncoherentInstances, TemplateHaskell #-}
--------------------------------------------------------------------------------
-- |
-- Module      :  Data.Comp.Automata.Product
-- Copyright   :  (c) 2011 Patrick Bahr
-- License     :  BSD3
-- Maintainer  :  Patrick Bahr <paba@diku.dk>
-- Stability   :  experimental
-- Portability :  non-portable (GHC Extensions)
--
--
--------------------------------------------------------------------------------

module Data.Comp.Automata.Product ((:<)(..)) where

import Data.Comp.Automata.Product.Derive


instance a :< a where
    pr = id
    up = const

$(genAllInsts 7)

instance (c :< b) => c :< (a,b) where
    pr = pr . snd
    up z (x,y) = (x,up z y)