type error in ExtensionsChi fixed

This commit is contained in:
aarne
2014-08-25 19:00:45 +00:00
parent 20d5a89664
commit c93e2780d3

View File

@@ -95,7 +95,7 @@ lin
CompS s = insertObj s (predV copula []) ; ----
CompQS qs = insertObj qs (predV copula []) ; ----
CompQS qs = insertObj (ss (qs.s ! False)) (predV copula []) ; ----
CompVP ant p vp = insertObj (ss (infVP vp)) (predV copula []) ; ----
{-