root/logic
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

minor: substatements function, comments

Browse source
This commit is contained in:
hi 2025-08-12 03:57:13 +00:00
parent 0d13b807f0
commit d0ba6ce9d4
2 changed files with 20 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

8
Logic/Statement.hs
View file

@ -20,3 +20,11 @@ atoms = toAscList . mkSet
mkSet (Or s1 s2) = union (mkSet s1) (mkSet s2)
mkSet (Implies s1 s2) = union (mkSet s1) (mkSet s2)
mkSet (Iff s1 s2) = union (mkSet s1) (mkSet s2)
substatements :: Statement -> [Statement]
substatements s@(Atom _) = [s]
substatements s@(Not s1) = s:(substatements s1)
substatements s@(And s1 s2) = (s:) $ substatements s1 ++ substatements s2
substatements s@(Or s1 s2) = (s:) $ substatements s1 ++ substatements s2
substatements s@(Implies s1 s2) = (s:) $ substatements s1 ++ substatements s2
substatements s@(Iff s1 s2) = (s:) $ substatements s1 ++ substatements s2