mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-11 05:49:31 -06:00
57 lines
1.2 KiB
Plaintext
57 lines
1.2 KiB
Plaintext
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 ;
|
|
|
|
}
|