summaryrefslogtreecommitdiff
path: root/gf-book/examples/chapter9/LogicSymb.gf
diff options
context:
space:
mode:
authoraarne <aarne@chalmers.se>2011-01-11 15:46:43 +0000
committeraarne <aarne@chalmers.se>2011-01-11 15:46:43 +0000
commite7439d65b0e153434d3acc07df6e2a0972ee79ca (patch)
tree36716eec18256eeb600b4a552d9cc80f8ad7f16f /gf-book/examples/chapter9/LogicSymb.gf
parent276327f7f264e770478a6d8c6e683266505b0a55 (diff)
gf-book web page index and toc
Diffstat (limited to 'gf-book/examples/chapter9/LogicSymb.gf')
-rw-r--r--gf-book/examples/chapter9/LogicSymb.gf13
1 files changed, 13 insertions, 0 deletions
diff --git a/gf-book/examples/chapter9/LogicSymb.gf b/gf-book/examples/chapter9/LogicSymb.gf
new file mode 100644
index 000000000..14932fe9b
--- /dev/null
+++ b/gf-book/examples/chapter9/LogicSymb.gf
@@ -0,0 +1,13 @@
+concrete LogicSymb of Logic = open Formal, Prelude in {
+
+lincat
+ Prop, Ind = TermPrec ;
+lin
+ And = infixl 2 "\\&" ;
+ Or = infixl 2 "\\vee" ;
+ If = infixr 1 "\\sup" ;
+ Not = prefix 3 "\\sim" ;
+ All P = prefix 3 (parenth ("\\forall" ++ P.$0)) P ;
+ Exist P = prefix 3 (parenth ("\\exists" ++ P.$0)) P ;
+ Past = prefix 3 "P" ;
+}