mirror of
https://github.com/idris-lang/Idris2.git
synced 2024-12-25 04:33:45 +03:00
16 lines
490 B
Idris
16 lines
490 B
Idris
|
data List' a = Nil | Cons a (List' a)
|
||
|
|
|
||
|
|
-- Generated with `:gd 4 mapList'`
|
||
|
|
mapList' : ((1 x : a) -> b) -> (1 xs : List' a) -> List' b
|
||
|
|
mapList' f [] = []
|
||
|
|
mapList' f (Cons x y) = Cons (f x) (mapList' f y)
|
||
|
|
|
||
|
|
data Tree1 a = Nil1 | Node1 a (Tree1 a) (Tree1 a)
|
||
|
|
|
||
|
|
mapTree1 : ((1 x : a) -> b) -> (1 t : Tree1 a) -> Tree1 b
|
||
|
|
|
||
|
|
data Tree2 a = Nil2 | Node2 a (List' (Tree2 a))
|
||
|
|
|
||
|
|
-- TODO: Fix not entirly appropriate definition (nulls list of Node2)
|
||
|
|
mapTree2 : ((1 x : a) -> b) -> (1 t : Tree2 a) -> Tree2 b
|