(Ara) Add various functions to make SymbolicAra work.

This commit is contained in:
Inari Listenmaa
2018-09-18 11:30:58 +02:00
parent c660dd6aa5
commit db0bbfd1fb
5 changed files with 41 additions and 30 deletions

View File

@@ -41,14 +41,14 @@ concrete CatAra of Cat = CommonX - [Utt] ** open ResAra, Prelude, ParamX in {
--
-- Adjective
AP = {s : Species => Gender => NTable } ;
AP = ResAra.AP ;
-- Noun
CN = ResAra.Noun ** {adj : NTable};
NP, Pron = ResAra.NP; --{s : Case => Str ; a : Agr } ;
Num, Ord, Card = {s : Gender => State => Case => Str ;
n : Size };
Num, Ord, Card = ResAra.NumOrdCard ;
Predet = ResAra.Predet ;
-- DEPRECATED