(Dut) Add inflected form of past participle + WIP on PastPartAP in ExtendDut

This commit is contained in:
Inari Listenmaa
2018-04-18 16:30:41 +02:00
parent f2a02c438d
commit de5ce221b6
2 changed files with 73 additions and 24 deletions
+7 -2
View File
@@ -2,7 +2,7 @@
concrete ExtendDut of Extend =
CatDut ** ExtendFunctor
-- - [] -- put the names of your own definitions here
- [PastPartAP]
with
(Grammar = GrammarDut) **
open
@@ -11,6 +11,11 @@ concrete ExtendDut of Extend =
Coordination,
Prelude,
ParadigmsDut in {
-- put your own definitions here
lin
PastPartAP vp = {
s = \\agr,af => (infClause [] agr vp).s ! Past ! Anter ! Pos ! Sub ;
isPre = notB vp.inf.p2
} ;
}