7 lines
212 B
Text
7 lines
212 B
Text
|
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
|