added QuestIComp to Pred

2014-02-14 14:36:03 +00:00
parent 22f817262f
commit 35395c22b6
10 changed files with 47 additions and 12 deletions
--- a/lib/src/experimental/PredInstanceEng.gf
+++ b/lib/src/experimental/PredInstanceEng.gf
@@ -47,6 +47,7 @@ oper
  NAgr = Number ;
  IPAgr = Number ;
  RPAgr = ResEng.RAgr ;
+  ICAgr = Unit ;

  defaultAgr : Agr = AgP3Sg Neutr ;

@@ -66,6 +67,8 @@ oper
    AgP3Pl => Pl
    } ;

+  agr2icagr : Agr -> ICAgr = \a -> UUnit ;
+
 -- restoring full Agr
  ipagr2agr : IPAgr -> Agr = \n -> case n of {
    Sg => AgP3Sg Neutr ; ---- gender