msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

Transfer: derive instances, not functions.

Browse Source
This commit is contained in:
bringert
2005-11-30 18:42:45 +00:00
parent 01d1715994
commit 12ca29b32b
6 changed files with 47 additions and 47 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
transfer/examples/widesnake.tr
View File

@@ -9,11 +9,11 @@ monoid_Bool = rec
isSnake : (A : Tree) -> Tree A -> Bool
isSnake _ x = case x of
Snake -> True
_ -> composFold_Tree Bool monoid_Bool ? isSnake x
_ -> composFold ? ? compos_Tree Bool monoid_Bool ? isSnake x
wideSnake : (A : Cat) -> Tree A -> Tree A
wideSnake _ x = case x of
Wide y -> let y' : CN = wideSnake ? y
in if isSnake CN y' then Thick y' else Wide y'
_ -> composOp_Tree ? wideSnake x
_ -> composOp ? ? compos_Tree ? wideSnake x