comparison Paper/src/bt_impl/bt_env.agda @ 0:14a0e409d574

ADD fast commit
author soto <soto@cr.ie.u-ryukyu.ac.jp>
date Sun, 24 Apr 2022 23:13:44 +0900
parents
children
comparison
equal deleted inserted replaced
-1:000000000000 0:14a0e409d574
1 data bt {n : Level} (A : Set n) : Set n where
2 leaf : bt A
3 node : (key : ℕ) → (value : A) →
4 (left : bt A ) → (right : bt A ) → bt A
5
6 record Env {n : Level} (A : Set n) : Set n where
7 field
8 varn : ℕ
9 varv : A
10 vart : bt A
11 varl : List (bt A)
12 open Env