view Paper/src/bt_impl/bt_env.agda.replaced @ 5:339fb67b4375

INIT rbt.agda
author soto <soto@cr.ie.u-ryukyu.ac.jp>
date Sun, 07 Nov 2021 00:51:16 +0900
parents
children
line wrap: on
line source

data bt {n : Level} (A : Set n) : Set n where
  leaf : bt A
  node :  (key : !$\mathbb{N}$!) !$\rightarrow$! (value : A) !$\rightarrow$!
    (left : bt A ) !$\rightarrow$! (right : bt A ) !$\rightarrow$! bt A

record Env {n : Level} (A : Set n) : Set n where
  field
    varn : !$\mathbb{N}$!
    varv : A
    vart : bt A
    varl : List (bt A)
open Env