diff options
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 |