From 25b31684378d3b0668b65939fc7b30b0c1e8d130 Mon Sep 17 00:00:00 2001
From: aarne <aarne@cs.chalmers.se>
Date: Tue, 20 Dec 2005 14:20:42 +0000
Subject: CS's system S

---
 examples/systemS/Formula.gf | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)
 create mode 100644 examples/systemS/Formula.gf

(limited to 'examples/systemS/Formula.gf')

diff --git a/examples/systemS/Formula.gf b/examples/systemS/Formula.gf
new file mode 100644
index 000000000..62bc67eb7
--- /dev/null
+++ b/examples/systemS/Formula.gf
@@ -0,0 +1,20 @@
+-- 20 Dec 2005, 9.45
+
+abstract Formula = {
+
+  cat 
+    Formula ;
+    Term ;
+
+  fun
+    And, Or, If : (_,_ : Formula) -> Formula ;
+    Not : Formula -> Formula ;
+    Abs : Formula ;
+
+----    All, Exist : (Term -> Formula) -> Formula ;
+
+  -- to test
+
+    A, B, C : Formula ;
+
+}
\ No newline at end of file
-- 
cgit v1.2.3