diff options
| author | aarne <aarne@cs.chalmers.se> | 2008-06-25 16:54:35 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2008-06-25 16:54:35 +0000 |
| commit | e9e80fc389365e24d4300d7d5390c7d833a96c50 (patch) | |
| tree | f0b58473adaa670bd8fc52ada419d8cad470ee03 /examples/logic/Prooftext.gf | |
| parent | b96b36f43de3e2f8b58d5f539daa6f6d47f25870 (diff) | |
changed names of resource-1.3; added a note on homepage on release
Diffstat (limited to 'examples/logic/Prooftext.gf')
| -rw-r--r-- | examples/logic/Prooftext.gf | 86 |
1 files changed, 0 insertions, 86 deletions
diff --git a/examples/logic/Prooftext.gf b/examples/logic/Prooftext.gf deleted file mode 100644 index 1833d6308..000000000 --- a/examples/logic/Prooftext.gf +++ /dev/null @@ -1,86 +0,0 @@ -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 (mkText (mkPhr (mkUtt (mkS (pred b a)))) TEmpty) ; - - theorem : Prop -> Proof -> Section - = \prop,prf -> appendText (mkText (mkPhr prop) TEmpty) prf ; - - 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 : Str -> Proof - = \s -> {s = s ++ "." ; lock_Text = <>} ; - proof : Adverb -> Prop -> Proof - = \a,p -> mkText (mkPhr a (mkUtt p) NoVoc) TEmpty ; - proof : Decl -> Proof - = \d -> d ; - proof : Proof -> Proof -> Proof - = appendText ; - proof : Branching -> Proofs -> Proof - = \b,ps -> mkText (mkPhr b) ps - } ; - - proofs : Proof -> Proof -> Proofs - = appendText ; - - cases : Num -> Branching - = \n -> - mkS (pred have_V2 (mkNP we_Pron) (mkNP (mkDet n) case_N)) ; - - by : Ref -> Adverb - = \h -> C.mkPConj (mkAdv by8means_Prep h).s ; - therefore : Adverb - = therefore_PConj ; - afortiori : Adverb - = C.mkPConj ["a fortiori"] ; - hypothesis : Adverb - = C.mkPConj (mkAdv by8means_Prep (mkNP (mkDet DefArt) hypothesis_N)).s ; - - ref : Label -> Ref - = \h -> h ; - refs : Refs -> Ref - = \rs -> mkNP and_Conj rs ; - - mkLabel : Str -> Label ; - -} |
