mirror of
https://github.com/GrammaticalFramework/gf-rgl.git
synced 2026-09-28 13:13:39 -06:00
added type signature for GF3
This commit is contained in:
@@ -33,7 +33,7 @@ lin
|
|||||||
is_wrong_VP = mkVP (mkA079 "грешен") ;
|
is_wrong_VP = mkVP (mkA079 "грешен") ;
|
||||||
n_units_AP card cn a = mkAP (lin AdA (mkUtt (mkNP <lin Card card : Card> (lin CN cn)))) (lin A a) ;
|
n_units_AP card cn a = mkAP (lin AdA (mkUtt (mkNP <lin Card card : Card> (lin CN cn)))) (lin A a) ;
|
||||||
n_units_of_NP card cn np =
|
n_units_of_NP card cn np =
|
||||||
let unit = mkNP <lin Card card : Card> (lin CN cn)
|
let unit : NP = mkNP <lin Card card : Card> (lin CN cn)
|
||||||
in {
|
in {
|
||||||
s = \\role => unit.s ! role ++ np.s ! R.RObj R.CPrep ;
|
s = \\role => unit.s ! role ++ np.s ! R.RObj R.CPrep ;
|
||||||
gn = unit.gn ;
|
gn = unit.gn ;
|
||||||
|
|||||||
Reference in New Issue
Block a user