Add case for when pre is not followed by anything

This commit is contained in:
John J. Camilleri
2021-02-16 21:01:01 +01:00
parent 7227ede24b
commit 4c06c3f825
5 changed files with 11 additions and 1 deletions

View File

@@ -4,4 +4,5 @@ abstract Pre = {
ant, dog: N ;
a, the: Det ;
mkS : Det -> N -> S;
detS : Det -> S;
}

View File

@@ -10,3 +10,8 @@ PreCnc: a dog
Pre: mkS the dog
PreCnc: the dog
Pre: detS a
PreCnc: a
Pre: detS the
PreCnc: the

View File

@@ -2,3 +2,5 @@ mkS a ant
mkS the ant
mkS a dog
mkS the dog
detS a
detS the

View File

@@ -12,4 +12,5 @@ concrete PreCnc of Pre = {
} } ;
the = { s = "the" } ;
mkS det n = { s = det.s ++ n.s } ;
detS det = { s = det.s } ;
}