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/Proof.gf | 23 +++++++++++++++++++++++
 1 file changed, 23 insertions(+)
 create mode 100644 examples/systemS/Proof.gf

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

diff --git a/examples/systemS/Proof.gf b/examples/systemS/Proof.gf
new file mode 100644
index 000000000..06a6f1c68
--- /dev/null
+++ b/examples/systemS/Proof.gf
@@ -0,0 +1,23 @@
+abstract Proof = Formula ** {
+
+  cat
+    Text ;
+    Proof ;
+    [Formula] ;
+
+  fun
+    Start : [Formula] -> Formula -> Proof -> Text ;
+
+    Hypo : Proof ;
+    Implic : [Formula] -> Formula -> Proof -> Proof ;
+    RedAbs : Formula -> Proof -> Proof ;
+    ExFalso : Formula -> Proof ;
+    ConjSplit : Formula -> Formula -> Formula -> Proof -> Proof ;
+    ModPon : [Formula] -> Formula -> Proof -> Proof ;
+    Forget : [Formula] -> Formula -> Proof -> Proof ;
+
+    DeMorgan1, DeMorgan2 : Formula -> Formula -> Proof -> Proof ;
+    ImplicNeg : [Formula] -> Formula -> Proof -> Proof ;
+    NegRewrite : Formula -> [Formula] -> Proof -> Proof ;
+
+}
-- 
cgit v1.2.3