part of Logic implemented generically

2006-11-27 10:54:26 +00:00
parent c75688651e
commit a5232f7e5b
7 changed files with 224 additions and 1 deletions
--- a/examples/logic/Prooftext.gf
+++ b/examples/logic/Prooftext.gf
@@ -0,0 +1,79 @@
+interface Prooftext = open 
+  Grammar, 
+  LexTheory,
+  Symbolic,
+  Symbol, 
+  (C=ConstructX),
+  Constructors, 
+  Combinators 
+  in {
+
+oper
+  Chapter  = Text ;
+  Section  = Text ;
+  Sections = Text ;
+  Decl     = Text ;
+  Decls    = Text ;
+  Prop     = S ;
+  Branching= S ;
+  Proof    = Text ;
+  Proofs   = Text ;
+  Typ      = CN ;
+  Object   = NP ;
+  Label    = NP ;
+  Adverb   = PConj ;
+  Ref      = NP ;
+  Refs     = [NP] ;
+  Number   = Num ;
+
+  chapter : Label -> Sections -> Chapter 
+    = \title,jments -> 
+        appendText (mkText (mkPhr (mkUtt title)) TEmpty) jments ;
+
+  definition : Decls -> Object -> Object -> Section 
+    = \decl,a,b -> 
+        appendText decl (mkUtt (mkS (pred b a))) ;
+
+  assumption : Prop -> Decl 
+    = \p -> 
+        mkText (mkPhr (mkUtt (mkImp (mkVP assume_VS p)))) TEmpty ;
+
+  declaration : Object -> Typ -> Decl
+    = \a,ty ->
+        mkText (mkPhr (mkUtt (mkImp (mkVP assume_VS (mkS (pred ty a)))))) TEmpty ;
+
+  proof = overload {
+    proof : Prop -> Proof 
+      = \p -> mkText (mkPhr p) TEmpty ;
+    proof : Adverb -> Prop -> Proof
+      = \a,p -> mkText (mkPhr a (mkUtt p) NoVoc) TEmpty ;
+    proof : Decl -> Proof
+      = \d -> d ;
+    proof : Proof -> Proof -> Proof
+      = \p,q -> appendText p q ;
+    proof : Branching -> Proofs -> Proof
+      = \b,ps -> mkText (mkPhr b) ps
+    } ;
+
+  proofs : Proof -> Proof -> Proofs 
+    = appendText ;
+
+  cases : Num -> Branching 
+    = \nu -> 
+        mkS (pred have_V2 (mkNP we_Pron) (mkNP (mkDet nu) case_N)) ;
+
+  by : Ref -> Adverb 
+    = \h -> mkAdv by8means_Prep h ;
+  therefore : Adverb
+    = therefore_PConj ;
+  afortiori : Adverb
+    = C.mkPConj ["a fortiori"] ;
+  hypothesis : Adverb
+    = mkAdv by8means_Prep (mkNP (mkDet DefArt) hypothesis_N) ;
+
+  ref : Label -> Ref
+    = \h -> h ;
+  refs : Refs -> Ref
+    = \rs -> mkNP and_Conj rs ;
+
+}