Set: pp::colors
Set: pp::unicode
Assumed: vec
Assumed: concat
Assumed: concat_assoc
Assumed: empty
Assumed: concat_empty
λ (n : ℕ) (v : vec n), v
Assumed: f
λ n : ℕ, f
Defined: TypeM
Assumed: lheq
λ val : ℕ, (λ (n : ℕ) (v : vec (n + 0)), f v ; empty) val === (λ (n : ℕ) (v : vec (n + 0)), v) val
=====>
λ val : ℕ, f === (λ v : vec val, v)
