forked from GitHub/gf-rgl
12 lines
224 B
Plaintext
12 lines
224 B
Plaintext
--# -path=.:alltenses
|
|
concrete MorphoDictEng of MorphoDictEngAbs =
|
|
CatEng [N,A,V,Adv,Prep] **
|
|
open
|
|
ParadigmsEng
|
|
in
|
|
{
|
|
|
|
oper mkAMost : Str -> Str -> A = \ajar,ly -> mkA ajar ("more" ++ ajar) ("most" ++ ajar) ly ;
|
|
|
|
|