Mercurial > hg > Gears > GearsAgda

annotate work.agda~ @ 956:bfc7007177d0 default tip

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
safe and cubical compatible with no warning done
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Sat, 19 Oct 2024 09:48:48 +0900
parents 68904fdaab71
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
781
Moririn < Moririn@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
1 module work where
Moririn < Moririn@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
2
Moririn < Moririn@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
3 open import Level hiding (suc ; zero ; _⊔_ )
Moririn < Moririn@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
4
Moririn < Moririn@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
5 open import Data.Nat hiding (compare)
Moririn < Moririn@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
6 open import Data.Nat.Properties as NatProp
Moririn < Moririn@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
7 open import Data.Maybe
Moririn < Moririn@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
8 -- open import Data.Maybe.Properties
Moririn < Moririn@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
9 open import Data.Empty
Moririn < Moririn@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
10 open import Data.List
Moririn < Moririn@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
11 open import Data.Product
Moririn < Moririn@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
12
Moririn < Moririn@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
13 open import Function as F hiding (const)
Moririn < Moririn@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
14
Moririn < Moririn@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
15 open import Relation.Binary
Moririn < Moririn@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
16 open import Relation.Binary.PropositionalEquality
Moririn < Moririn@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
17 open import Relation.Nullary
Moririn < Moririn@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
18 open import logic
Moririn < Moririn@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
19
Moririn < Moririn@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
20 data bt {n : Level} (A : Set n) : Set n where
Moririn < Moririn@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
21 leaf : bt A
Moririn < Moririn@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
22 node : (key : ℕ) → (value : A) → (left : bt A) → (right : bt A) → bt A