comparison paper/src/AgdaTreeDebugReturnNode4.agda.replaced @ 3:959f4b34d6f4

add final thesis
author soto
date Tue, 09 Feb 2021 18:44:53 +0900
parents
children
comparison
equal deleted inserted replaced
2:2c50fd1d115e 3:959f4b34d6f4
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 -- C-c C-n test31 return
9 -- Just
10 -- (record
11 -- { key = 4
12 -- ; value = 4
13 -- ; right = Nothing
14 -- ; left = Nothing
15 -- ; color = Red
16 -- })