lean2/tests/lean/run/eq8.lean

6 lines
214 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