mirror of
https://github.com/GrammaticalFramework/gf-rgl.git
synced 2026-06-21 01:06:21 -06:00
19 lines
287 B
Plaintext
19 lines
287 B
Plaintext
concrete RelativeHrv of Relative = CatHrv ** open
|
|
ParadigmsHrv,
|
|
ResHrv,
|
|
Prelude in {
|
|
|
|
lin
|
|
RelVP rp vp = vp ** {
|
|
subj =
|
|
let rel = (adjFormsAdjective rp).s
|
|
in \\a => case a of {
|
|
Ag g n _ => rel ! g ! n ! Nom
|
|
}
|
|
} ;
|
|
|
|
IdRP = mkA "koji" ;
|
|
|
|
|
|
}
|