String pattern handling

This commit is contained in:
aarne
2004-03-23 12:06:12 +00:00
parent dc65a16767
commit 8f829331f6
5 changed files with 8 additions and 3 deletions

View File

@@ -77,6 +77,7 @@ isInConstantForm trm = case trm of
Abs _ _ -> True
App c a -> isInConstantForm c && isInConstantForm a
R r -> all (isInConstantForm . snd . snd) r
K _ -> True
Alias _ _ t -> isInConstantForm t
_ -> False ---- isInArgVarForm trm