summaryrefslogtreecommitdiff
path: root/transfer/examples/widesnake.tr
diff options
context:
space:
mode:
authorbringert <bringert@cs.chalmers.se>2005-12-06 16:33:40 +0000
committerbringert <bringert@cs.chalmers.se>2005-12-06 16:33:40 +0000
commitc703a92136ce579282c63c6e31fff76cc84b37ce (patch)
treee0dedf8972756fa1322bb4d8a0c621a629bedc1e /transfer/examples/widesnake.tr
parentee4adf5ba8ff50b4580a18d197f9e05d36195ede (diff)
Transfer: Changed transfer program file extension from .tr to .tra to avoid collision with Troff file extension.
Diffstat (limited to 'transfer/examples/widesnake.tr')
-rw-r--r--transfer/examples/widesnake.tr19
1 files changed, 0 insertions, 19 deletions
diff --git a/transfer/examples/widesnake.tr b/transfer/examples/widesnake.tr
deleted file mode 100644
index e27bd5981..000000000
--- a/transfer/examples/widesnake.tr
+++ /dev/null
@@ -1,19 +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' : CN = wideSnake ? y
- in if isSnake CN y' then Thick y' else Wide y'
- _ -> composOp ? ? compos_Tree ? wideSnake x
-