GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-21 17:12: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

7
transfer/examples/exp.tr
View File

@@ -1,3 +1,5 @@
import prelude
data Cat : Type where
Stm : Cat
Exp : Cat
@@ -20,11 +22,12 @@ data Tree : Cat -> Type where
NilStm : Tree ListStm
ConsStm : Tree Stm -> Tree ListStm -> Tree ListStm
derive composOp Tree
derive Compos Tree
rename : (String -> String) -> (C : Type) -> Tree C -> Tree C
rename f C t = case t of
V x -> V (f x)
_ -> composOp_Tree C (rename f) t
_ -> composOp ? ? compos_Tree C (rename f) t
main = rename (const ? ? "apa") Stm (SAss (V "y") (EAdd (EVar (V "x")) (EInt 2)))