Transfer: changed syntax to remove the mandatory type annotation in let.

This commit is contained in:
bringert committed 2005-12-09 11:45:57 +00:00
1 parent ce8376885c
commit ccfe7fb119
21 files changed
+80 -95

No files matched your search

+1 -1
View File
@@ -13,7 +13,7 @@ isSnake _ x = case x of
wideSnake : (A : Cat) -> Tree A -> Tree A
wideSnake _ x = case x of
Wide y -> let y' : CN = wideSnake ? y
Wide y -> let y' = wideSnake ? y
in if isSnake CN y' then Thick y' else Wide y'
_ -> composOp ? ? compos_Tree ? wideSnake x