From 12ca29b32b50fd924c5f69a30d204e4332dff4f9 Mon Sep 17 00:00:00 2001 From: bringert Date: Wed, 30 Nov 2005 18:42:45 +0000 Subject: Transfer: derive instances, not functions. --- transfer/examples/widesnake.tr | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'transfer/examples/widesnake.tr') 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 -- cgit v1.2.3