16 lines
379 B
Text
16 lines
379 B
Text
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)
|