composOp should iterate under ImplArg

This commit is contained in:
krasimir committed 2010-05-28 12:19:04 +00:00
1 parent ee6fdbf68f
commit f9f2491fcc
1 file changed
+4
+4
View File
@@ -534,6 +534,10 @@ composOp co trm =
ELin c ty ->
do ty' <- co ty
return (ELin c ty')
ImplArg t ->
do t' <- co t
return (ImplArg t')
_ -> return trm -- covers K, Vr, Cn, Sort, EPatt