removed transfer from gf3

1 files changed, 0 insertions, 21 deletions

diff --git a/transfer/examples/widesnake.tra b/transfer/examples/widesnake.tra
deleted file mode 100644
index f68ed9013..000000000
--- a/transfer/examples/widesnake.tra
+++ /dev/null
@@ -1,21 +0,0 @@
-import bool
-import stoneage
-
-monoid_Bool : sig { zero : Bool; plus : Bool -> Bool -> Bool }
-monoid_Bool = rec
-	        zero = False
-	        plus = \x -> \y -> x && y
-
-isSnake : (A : Tree) -> Tree A -> Bool
-isSnake _ x = case x of
-		Snake -> True
-		_ -> composFold ? ? compos_Tree Bool monoid_Bool ? isSnake x
-
-wideSnake : (A : Cat) -> Tree A -> Tree A
-wideSnake _ x = case x of
-		    Wide y -> let y' = wideSnake ? y
-                               in if isSnake CN y' then Thick y' else Wide y'
-		    _ -> composOp ? ? compos_Tree ? wideSnake x
-		
-wideSnakeNP : Tree NP -> Tree NP
-wideSnakeNP = wideSnake NP