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