summaryrefslogtreecommitdiff
path: root/examples/logic/LogicI.gf
diff options
context:
space:
mode:
authoraarne <aarne@cs.chalmers.se>2008-06-25 16:54:35 +0000
committeraarne <aarne@cs.chalmers.se>2008-06-25 16:54:35 +0000
commite9e80fc389365e24d4300d7d5390c7d833a96c50 (patch)
treef0b58473adaa670bd8fc52ada419d8cad470ee03 /examples/logic/LogicI.gf
parentb96b36f43de3e2f8b58d5f539daa6f6d47f25870 (diff)
changed names of resource-1.3; added a note on homepage on release
Diffstat (limited to 'examples/logic/LogicI.gf')
-rw-r--r--examples/logic/LogicI.gf59
1 files changed, 0 insertions, 59 deletions
diff --git a/examples/logic/LogicI.gf b/examples/logic/LogicI.gf
deleted file mode 100644
index 3598022ac..000000000
--- a/examples/logic/LogicI.gf
+++ /dev/null
@@ -1,59 +0,0 @@
-incomplete concrete LogicI of Logic =
- open
- LexTheory,
- Prooftext,
- Grammar,
- Constructors,
- Combinators
- in {
-
-lincat
- Prop = Prooftext.Prop ;
- Proof = Prooftext.Proof ;
- Dom = Typ ;
- Elem = Object ;
- Hypo = Label ;
- Text = Section ;
-
-lin
- ThmWithProof = theorem ;
-
- Conj = coord and_Conj ;
- Disj = coord or_Conj ;
- Impl = coord ifthen_DConj ;
-
- Abs =
- mkS (pred have_V2 (mkNP we_Pron) (mkNP (mkDet IndefArt) contradiction_N)) ;
-
- Univ A B =
- AdvS
- (mkAdv for_Prep (mkNP all_Predet
- (mkNP (mkDet (PlQuant IndefArt)) (mkCN A (symb B.$0)))))
- B ;
-
- DisjIl A B a = proof a (proof afortiori (coord or_Conj A B)) ;
- DisjIr A B b = proof b (proof afortiori (coord or_Conj A B)) ;
-
- DisjE A B C c d e =
- appendText
- c
- (appendText
- (appendText
- (cases (mkNum n2))
- (proofs
- (appendText (assumption A) d)
- (appendText (assumption B) e)))
- (proof therefore C)) ;
-
- ImplI A B b =
- proof
- (assumption A)
- (appendText b (proof therefore (coord ifthen_DConj A B))) ;
-
- Hypoth A h = proof hypothesis A ;
-
-
-lindef
- Elem = defNP ;
-
-}