diff options
Diffstat (limited to 'transfer/examples/stoneage.tr')
| -rw-r--r-- | transfer/examples/stoneage.tr | 16 |
1 files changed, 0 insertions, 16 deletions
diff --git a/transfer/examples/stoneage.tr b/transfer/examples/stoneage.tr index f67aa66e7..2b7257f65 100644 --- a/transfer/examples/stoneage.tr +++ b/transfer/examples/stoneage.tr @@ -1,5 +1,3 @@ -import bool - data Cat : Type where { CN : Cat ; NP : Cat ; @@ -207,17 +205,3 @@ data Tree : (_ : Cat)-> Type where { derive composOp Tree derive composFold Tree - -monoid_Bool = { zero = False; plus = \x -> \y -> x && y } - -isSnake : (A : Tree) -> Tree A -> Bool -isSnake _ x = case x of - Snake -> True - _ -> composFold_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 - |