forked from GitHub/gf-core
11 lines
317 B
Plaintext
11 lines
317 B
Plaintext
concrete PhraseBul of Phrase = CatBul ** open Prelude, ResBul in {
|
|
|
|
lin
|
|
UttS s = s ;
|
|
UttQS qs = {s = qs.s ! QDir} ;
|
|
UttImpSg pol imp = {s = pol.s ++ imp.s ! pol.p ! GSg Masc} ;
|
|
UttImpPl pol imp = {s = pol.s ++ imp.s ! pol.p ! GPl} ;
|
|
UttImpPol pol imp = {s = pol.s ++ imp.s ! pol.p ! GPl} ;
|
|
|
|
}
|