GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-21 09:02:50 -06:00
Code Issues Packages Projects Releases Wiki Activity

Transfer: derive instances, not functions.

Browse Source
This commit is contained in:
bringert
2005-11-30 18:42:45 +00:00
parent 01d1715994
commit 12ca29b32b
6 changed files with 47 additions and 47 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
transfer/examples/widesnake.tr
View File

@@ -9,11 +9,11 @@ monoid_Bool = rec
isSnake : (A : Tree) -> Tree A -> Bool
isSnake _ x = case x of
Snake -> True
_ -> composFold_Tree Bool monoid_Bool ? isSnake x
_ -> 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_Tree ? wideSnake x
_ -> composOp ? ? compos_Tree ? wideSnake x