{-# OPTIONS -fglasgow-exts #-}

{- |

Module : $EmptyHeader$

Description : <optional short description entry>

Copyright : (c) <Authors or Affiliations>

License : GPLv2 or higher

Maintainer : <email>

Stability : unstable | experimental | provisional | stable | frozen

Portability : portable | non-portable (<reason>)

<optional description>

-}

module Kripke where

import Data.Set as Set

{------------------------------------------------------------------------------}

{- -}

{- Kripke Structure -}

{- -}

{------------------------------------------------------------------------------}

class Kripke k a s | k -> a s where

states :: k -> Set s

initial :: k -> Set s

next :: k -> s -> Set s

labels :: k -> s -> Set a

{------------------------------------------------------------------------------}