summaryrefslogtreecommitdiff
path: root/examples/logic/TheoryI.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/TheoryI.gf
parentb96b36f43de3e2f8b58d5f539daa6f6d47f25870 (diff)
changed names of resource-1.3; added a note on homepage on release
Diffstat (limited to 'examples/logic/TheoryI.gf')
-rw-r--r--examples/logic/TheoryI.gf56
1 files changed, 0 insertions, 56 deletions
diff --git a/examples/logic/TheoryI.gf b/examples/logic/TheoryI.gf
deleted file mode 100644
index 9ab457536..000000000
--- a/examples/logic/TheoryI.gf
+++ /dev/null
@@ -1,56 +0,0 @@
-incomplete concrete TheoryI of Theory =
- open
- LexTheory,
- Grammar,
- Symbolic,
- Symbol,
- Combinators,
- Constructors,
- (C=ConstructX),
- Prelude
- in {
-
-lincat
- Chapter = Text ;
- Jment = Text ;
- Decl = Text ;
- Prop = S ;
- Branch = S ;
- Proof = Text ;
- [Proof] = Text ;
- Typ = CN ;
- Obj = NP ;
- Label = NP ;
- Adverb = PConj ;
- Ref = NP ;
- [Ref] = [NP] ;
- Number = Num ;
-
-lin
- Chap title jments =
- appendText (mkText (mkPhr (mkUtt title)) TEmpty) jments ;
-
- JDefObj decl a b =
- appendText decl (mkUtt (mkS (pred b a))) ;
-
- DProp p =
- mkText (mkPhr (mkUtt (mkImp (mkVP assume_VS p)))) TEmpty ;
- DTyp a ty = --- x pro a: refresh bug
- mkText (mkPhr (mkUtt (mkImp (mkVP assume_VS (mkS (pred ty a)))))) TEmpty ;
-
- PProp p = mkText (mkPhr p) TEmpty ;
- PAdvProp a p = mkText (mkPhr a (mkUtt p) NoVoc) TEmpty ;
- PDecl d = d ;
- PBranch b ps = mkText (mkPhr b) ps ;
-
- BCases n =
- mkS (pred have_V2 (mkNP we_Pron) (mkNP (mkDet (mkNum n2)) case_N)) ;
-
- ARef h = mkAdv by8means_Prep h ;
- AHence = therefore_PConj ;
- AAFort = C.mkPConj ["a fortiori"] ;
-
- RLabel h = h ;
- RMany rs = mkNP and_Conj rs ;
-
-}