mirror of
https://github.com/edwinb/Idris2-boot.git
synced 2024-12-18 18:31:43 +03:00
2a2a20849d
These are part of the core QTT now, so any substitutions or dependencies will be dealt with as they should.
6 lines
112 B
Idris
6 lines
112 B
Idris
import Data.Vect
|
|
|
|
dvec : (n : Nat) -> {default (replicate n 1) xs : Vect n Nat} -> Nat
|
|
dvec n = foldr (+) Z xs
|
|
|