semantics extended to questions

This commit is contained in:
aarne
2007-10-20 09:51:26 +00:00
parent 2fb6c59444
commit 55f387d067
6 changed files with 187 additions and 17 deletions

View File

@@ -12,7 +12,7 @@ iS s = case s of
iNP :: GNP -> (Exp -> Prop) -> Prop
iNP np p = case np of
GEvery cn -> All (If (iCN cn var) (p var)) ----
GEvery cn -> All (If (iCN cn var) (liftProp 0 (p var))) ----
GSome cn -> Exist (And (iCN cn var) (p var)) ----
GConjNP c np1 np2 -> iConj c (iNP np1 p) (iNP np2 p)
GUseInt (GInt i) -> p (int i)