You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
18 lines
402 B
18 lines
402 B
module Elab.Eval.Formula where
|
|
|
|
import Syntax
|
|
import Data.Map.Strict (Map)
|
|
import Data.Set (Set)
|
|
|
|
toDnf :: Value -> Maybe Value
|
|
|
|
type Nf = Set (Set Value)
|
|
|
|
normalise :: Value -> Nf
|
|
compareDNFs :: Value -> Value -> Bool
|
|
|
|
swap :: Ord b => b -> b -> (b, b)
|
|
|
|
possible :: Map Head Bool -> Value -> (Bool, Map Head Bool)
|
|
|
|
truthAssignments :: NFEndp -> Map Name (NFType, NFEndp) -> [Map Name (NFType, NFEndp)]
|