2015-08-12 22:05:14 +00:00
|
|
|
import data.examples.vector
|
2014-12-12 23:43:20 +00:00
|
|
|
open nat vector
|
|
|
|
|
|
|
|
|
|
set_option pp.implicit true
|
|
|
|
|
set_option pp.notation false
|
|
|
|
|
|
|
|
|
|
definition diag {A : Type} : Π {n}, vector (vector A n) n → vector A n,
|
|
|
|
|
diag nil := nil,
|
|
|
|
|
diag ((a :: va) :: vs) := a :: diag (map tail vs)
|
