scandinavian topological sentence model

This commit is contained in:
aarne
2005-02-27 09:27:12 +00:00
parent b416bba047
commit 36edab3fd5
34 changed files with 568 additions and 33 deletions

View File

@@ -77,7 +77,7 @@ lin
UseRCl tp cl =
{s = \\gn,p => tp.s ++ cl.s ! tp.b ! VFinite tp.t tp.a ! gn ! p} ;
UseQCl tp cl = {s = \\q => tp.s ++ cl.s ! tp.b ! VFinite tp.t tp.a ! q} ;
PosTP t a = {s = t.s ++ a.s ; b = True ; t = t.t ; a = a.a} ;
NegTP t a = {s = t.s ++ a.s ; b = False ; t = t.t ; a = a.a} ;