simplify the code and allow for non-standard pronouns

2026-06-30 11:08:35 -06:00 · 2021-04-27 08:42:57 +02:00
parent 6bf2555a4a
commit b3cc234c14
8 changed files with 65 additions and 90 deletions
@@ -54,11 +54,8 @@ concrete CatPol of Cat = CommonX - [CAdv] ** open ResPol, Prelude, (R = ParamX)
  
    CN = { s : Number => Case => Str; g : Gender };

--   NounPhrase : Type = { s : PronForm => Str; n : Number; g: Gender; p : Person };
    NP = NounPhrase;

--  oper Pron = { s : PronForm => Str ; sp: AForm => Str ; n : Number ; p : Person ;
-- 		   g: PronGen } ;
    Pron = ResPol.Pron;
    
    Det = Determiner;