forked from GitHub/gf-rgl
(Cat) new instance of prefA
This commit is contained in:
@@ -340,7 +340,10 @@ oper
|
|||||||
prefA = overload {
|
prefA = overload {
|
||||||
prefA : A -> A = \a -> a ** {isPre = True} ;
|
prefA : A -> A = \a -> a ** {isPre = True} ;
|
||||||
prefA : Str -> Str -> A = \bo,bon ->
|
prefA : Str -> Str -> A = \bo,bon ->
|
||||||
let adj : A = compADeg (adjBo bo bon) ;
|
let adj : A = compADeg (adjBo bo bon (bon+"ament")) ; -- not sure if there is any actual adjective that behaves like this /IL
|
||||||
|
in adj ** {isPre = True} ;
|
||||||
|
prefA : (bo,bon,be : Str) -> A = \bo,bon,be ->
|
||||||
|
let adj : A = compADeg (adjBo bo bon be) ;
|
||||||
in adj ** {isPre = True} ;
|
in adj ** {isPre = True} ;
|
||||||
} ;
|
} ;
|
||||||
|
|
||||||
|
|||||||
Reference in New Issue
Block a user