mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-23 19:42:50 -06:00
10 lines
341 B
Plaintext
10 lines
341 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 ! ImpF Sg False} ;
|
|
UttImpPl pol imp = {s = pol.s ++ imp.s ! pol.p ! ImpF Pl False} ;
|
|
UttImpPol pol imp = {s = pol.s ++ imp.s ! pol.p ! ImpF Sg True } ;
|
|
}
|