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

big tidy

Browse source
This commit is contained in:
hi 2025-08-15 10:06:31 +00:00
parent bd9b58c405
commit 687b5f1040
6 changed files with 54 additions and 39 deletions
Download patch file Download diff file Expand all files Collapse all files

3
Logic/Language/Impl/L.hs
View file

@ -93,7 +93,7 @@ lRule1 theorem1 theorem2 = maybeToList $ do
s2 <- fromEither $ eof parseL $ mkInput theorem2
case s1 of
Implies s1a s1b
| s2 == s1a -> Just $ fromJust $ serializeL s1b
| s1a == s2 -> Just $ fromJust $ serializeL s1b
| otherwise -> Nothing
_ -> Nothing
where
@ -142,6 +142,7 @@ serializeL (Implies s1 s2) = do
l1 <- serializeL s1
l2 <- serializeL s2
return $ [Open] ++ l1 ++ [Arrow] ++ l2 ++ [Close]
serializeL _ = Nothing
deriveLExample1 :: Derivation AlphaL
deriveLExample1 = step5