mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-05-02 07:42:50 -06:00
21 lines
567 B
Plaintext
21 lines
567 B
Plaintext
concrete ExtraFin of ExtraFinAbs = CatFin ** open ResFin, Prelude in {
|
|
|
|
lin
|
|
GenNP np = {
|
|
s1 = \\_,_ => np.s ! NPCase Gen ;
|
|
s2 = [] ;
|
|
isNum = False ;
|
|
isPoss = False ;
|
|
isDef = True --- "Jussin kolme autoa ovat" ; thus "...on" is missing
|
|
} ;
|
|
|
|
AdvExistNP adv np =
|
|
mkClause (\_ -> adv.s) np.a (insertObj
|
|
(\\_,b,_ => np.s ! NPCase Nom) (predV (verbOlla ** {sc = NPCase Nom}))) ;
|
|
|
|
AdvPredNP adv v np =
|
|
mkClause (\_ -> adv.s) np.a (insertObj
|
|
(\\_,b,_ => np.s ! NPCase Nom) (predV v)) ;
|
|
|
|
}
|