mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-09 04:59:31 -06:00
few more fixes in the NLG grammar
This commit is contained in:
@@ -1,5 +1,5 @@
|
||||
--# -path=present
|
||||
concrete LogicEng of Logic = open (Eng=GrammarEng), ParadigmsEng, ResEng in {
|
||||
concrete LogicCnc of Logic = {
|
||||
|
||||
lincat
|
||||
Ind = {s : Str};
|
||||
@@ -58,7 +58,7 @@ fun
|
||||
CompNP : ({np} : (Ind -> Prop) -> Prop) ->
|
||||
NP np -> Comp (\x -> np (\y -> eq x y)) ;
|
||||
|
||||
UsePN : (i : Ind) -> PN i -> NP (\f -> f i) ;
|
||||
UsePN : ({i} : Ind) -> PN i -> NP (\f -> f i) ;
|
||||
|
||||
DetCN : ({det} : (Ind -> Prop) -> (Ind -> Prop) -> Prop) ->
|
||||
({cn} : Ind -> Prop) ->
|
||||
@@ -110,6 +110,6 @@ fun
|
||||
({p} : Prop -> Prop) ->
|
||||
Pol p -> Cl cl -> S (p cl);
|
||||
|
||||
UttS : ({s} : Prop) -> S s -> Utt;
|
||||
UttS : (s : Prop) -> S s -> Utt;
|
||||
|
||||
}
|
||||
|
||||
@@ -1,5 +1,5 @@
|
||||
--# -path=present
|
||||
concrete NLGEng of NLG = LogicEng ** open (Eng=GrammarEng), ParadigmsEng, ResEng in {
|
||||
concrete NLGEng of NLG = LogicCnc ** open (Eng=GrammarEng), ParadigmsEng, ResEng in {
|
||||
|
||||
lincat
|
||||
Det = Eng.Det;
|
||||
|
||||
Reference in New Issue
Block a user