diff options
| author | Jed Barber <jjbarber@y7mail.com> | 2016-12-15 14:28:31 +1100 |
|---|---|---|
| committer | Jed Barber <jjbarber@y7mail.com> | 2016-12-15 14:28:31 +1100 |
| commit | 5395287cc2f758d94bec8befe8956ba2dcc3940c (patch) | |
| tree | fca41713cd7f8a27d41ba0d186adc1e616cf447b /src/Library/Theorem.hs | |
| parent | 2fc745bef05860e16a2e89e465a30dc59b5ec2e5 (diff) | |
Old uncommitted changes
Diffstat (limited to 'src/Library/Theorem.hs')
| -rw-r--r-- | src/Library/Theorem.hs | 38 |
1 files changed, 19 insertions, 19 deletions
diff --git a/src/Library/Theorem.hs b/src/Library/Theorem.hs index fc66cc2..a976549 100644 --- a/src/Library/Theorem.hs +++ b/src/Library/Theorem.hs @@ -1,19 +1,19 @@ -module Library.Theorem ( - Theorem(..), - ) where - - - -import qualified Data.Set as Set -import Library.TypeVar -import Library.Term - - - -data Theorem = Theorem { thmHyp :: Set.Set Term - , thmCon :: Term } deriving (Eq, Ord) - - - -instance Show Theorem where - show a = (show . Set.toList . thmHyp $ a) ++ " |- " ++ (show . thmCon $ a) +module Library.Theorem (
+ Theorem(..),
+ ) where
+
+
+
+import qualified Data.Set as Set
+import Library.TypeVar
+import Library.Term
+
+
+
+data Theorem = Theorem { thmHyp :: Set.Set Term
+ , thmCon :: Term } deriving (Eq, Ord)
+
+
+
+instance Show Theorem where
+ show a = (show . Set.toList . thmHyp $ a) ++ " |- " ++ (show . thmCon $ a)
|