comparison Paper/src/AgdaTreeDebug.agda.replaced @ 0:c59202657321

init
author soto <soto@cr.ie.u-ryukyu.ac.jp>
date Tue, 02 Nov 2021 06:55:58 +0900
parents
children 339fb67b4375
comparison
equal deleted inserted replaced
-1:000000000000 0:c59202657321
1 test31 = putTree1 {_} {_} {@$\mathbb{N}$@} {@$\mathbb{N}$@} (createEmptyRedBlackTree@$\mathbb{N}$@ @$\mathbb{N}$@ ) 1 1
2 $ \t @$\rightarrow$@ putTree1 t 2 2
3 $ \t @$\rightarrow$@ putTree1 t 3 3
4 $ \t @$\rightarrow$@ putTree1 t 4 4
5 $ \t @$\rightarrow$@ getRedBlackTree t 4
6 $ \t x @$\rightarrow$@ x
7
8 -- Just
9 -- (record
10 -- { key = 4
11 -- ; value = 4
12 -- ; right = Nothing
13 -- ; left = Nothing
14 -- ; color = Red
15 -- })