refined the check whether a complement has a preposition by adding a parameter, in Ger

This commit is contained in:
aarne
2013-03-08 08:02:06 +00:00
parent defdba3d27
commit dc6812c304
4 changed files with 14 additions and 14 deletions

View File

@@ -17,7 +17,7 @@ oper
-- For $StructuralGer$.
mkPrep : Str -> PCase -> Preposition = \s,c ->
{s = s ; c = c} ;
{s = s ; c = c ; isPrep = True} ;
nameNounPhrase : {s : Case => Str} -> {s : PCase => Str ; a : Agr ; isPron : Bool} = \name -> heavyNP {
s = \\c => usePrepC c (\k -> name.s ! k) ;