GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-22 17:42:51 -06:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
bringert
2005-11-29 18:15:15 +00:00
parent f6159d4bff
commit 5b9249a422
4 changed files with 24 additions and 21 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
transfer/examples/stoneage.tr
View File

@@ -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