forked from GitHub/gf-core
changed names of resource-1.3; added a note on homepage on release
This commit is contained in:
56
old-examples/logic/TheoryI.gf
Normal file
56
old-examples/logic/TheoryI.gf
Normal file
@@ -0,0 +1,56 @@
|
||||
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 ;
|
||||
|
||||
}
|
||||
Reference in New Issue
Block a user