toki/numidr
1
0
Fork 0
Code Issues Pull requests Activity

Shape view

Browse source
This commit is contained in:
Kiana Sheibani 2022-06-15 11:45:06 -04:00
parent 4b293d7e2a
commit cb0157cd8c
Signed by: toki
GPG key ID: 6CB106C25E86A9F7
4 changed files with 56 additions and 46 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/Data/NumIdr/Vector.idr
View file

@ -19,9 +19,6 @@ export
dimEq : (v : Vector n a) -> n = dim v
dimEq v = cong head $ shapeEq v
export
withDim : {0 n' : Nat} -> Vector n' a -> ((n : Nat) -> Vector n a -> b) -> b
withDim v f = f (dim v) (rewrite sym (dimEq v) in v)
--------------------------------------------------------------------------------
-- Vector constructors