mirror of
https://github.com/GrammaticalFramework/gf-rgl.git
synced 2026-06-12 16:40:11 -06:00
19 lines
289 B
Plaintext
19 lines
289 B
Plaintext
concrete RelativeSlo of Relative = CatSlo ** open
|
|
ParadigmsSlo,
|
|
ResSlo,
|
|
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 "který" ;
|
|
|
|
|
|
}
|