diff options
| author | bringert <bringert@cs.chalmers.se> | 2005-11-30 18:42:45 +0000 |
|---|---|---|
| committer | bringert <bringert@cs.chalmers.se> | 2005-11-30 18:42:45 +0000 |
| commit | 12ca29b32b50fd924c5f69a30d204e4332dff4f9 (patch) | |
| tree | 0515af794def1a1737e1edf9fffad5becc5d73e7 /transfer/examples/widesnake.tr | |
| parent | 01d1715994d2e7c58ef97fdd81dd7015a9118b17 (diff) | |
Transfer: derive instances, not functions.
Diffstat (limited to 'transfer/examples/widesnake.tr')
| -rw-r--r-- | transfer/examples/widesnake.tr | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/transfer/examples/widesnake.tr b/transfer/examples/widesnake.tr index 23ffac631..e27bd5981 100644 --- a/transfer/examples/widesnake.tr +++ b/transfer/examples/widesnake.tr @@ -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 |