forked from GitHub/gf-rgl
19 lines
295 B
Plaintext
19 lines
295 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").posit ;
|
|
|
|
|
|
}
|