Split widesnake example. Changed examples to use rec and sig keywords.

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
-