forked from GitHub/gf-rgl
added invarA
This commit is contained in:
@@ -507,6 +507,10 @@ oper
|
||||
mkA : Str -> Str -> A = reg2A -- s;Masc;Sg;Nom s;Masc;Sg;Dat
|
||||
} ;
|
||||
|
||||
invarA : Str -> A = \s -> lin A {
|
||||
s = \\_,_,_ => s
|
||||
} ;
|
||||
|
||||
mkA2 = overload {
|
||||
mkA2 : A -> A2 = \a -> lin A2 (a ** {c2 = noPrep}) ;
|
||||
mkA2 : A -> Prep -> A2 = \a,p -> lin A2 (a ** {c2 = p}) ;
|
||||
|
||||
Reference in New Issue
Block a user