DB
Size: a a a
DB
AG
к
_≡[] : (e : List⁰ A) → e ≡ []
([] ≡[]) j = []
-- список из x :: e в точке j равен тому чему равен del x (e = j) в точке j
((x
∷ e) ≡[]) j = del x ((e ≡[]) j) j
-- тут строится квадрат, это уже нужно рисовать
(del x e i ≡[]) j = del x ((e ≡[]) j) (i ∨ j)
к
AG
AG
DB
_≡[] : (e : List⁰ A) → e ≡ []
([] ≡[]) j = []
-- список из x :: e в точке j равен тому чему равен del x (e = j) в точке j
((x
∷ e) ≡[]) j = del x ((e ≡[]) j) j
-- тут строится квадрат, это уже нужно рисовать
(del x e i ≡[]) j = del x ((e ≡[]) j) (i ∨ j)
AG
AG
к
AG
AG
к
к
DB
к
к
к
DB
к