From fb1d9b7d2c3c8261fc5a2ce3698e6749458b207a Mon Sep 17 00:00:00 2001
From: aarne <aarne@cs.chalmers.se>
Date: Thu, 26 Jun 2008 21:05:01 +0000
Subject: removed transfer from gf3

---
 transfer/examples/widesnake.tra | 21 ---------------------
 1 file changed, 21 deletions(-)
 delete mode 100644 transfer/examples/widesnake.tra

(limited to 'transfer/examples/widesnake.tra')

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
-- 
cgit v1.2.3