michael/lean2
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

test(tests/lean/run): define vector map using recursive equations

Browse source
This commit is contained in:
Leonardo de Moura 2015-01-04 19:56:50 -08:00
parent 576c053c25
commit f07475667b
1 changed files with 6 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
tests/lean/run/eq8.lean Normal file
View file

@ -0,0 +1,6 @@
import data.vector
open vector
definition map {A B C : Type} (f : A → B → C) : Π {n}, vector A n → vector B n → vector C n,
map nil nil := nil,
map (a :: va) (b :: vb) := f a b :: map va vb