fd2c42a8bf
sed -Ei 's/^(\s*)((private |protected )?(noncomputable )?(abbreviation|definition|meta_definition|theorem|lemma|proposition|corollary)\s+\S+\s*)((\s*\[(\S+(\s+[0-9]+)*|priority.*)\])+)\s*/\1attribute \6\n\1\2/' library/**/*.lean tests/**/*.lean sed -Ei 's/\s+$//' library/**/*.lean # remove trailing whitespace
19 lines
490 B
Text
19 lines
490 B
Text
import data.matrix data.list
|
|
open matrix nat list
|
|
|
|
variables {A : Type} {m n : nat}
|
|
|
|
attribute [reducible]
|
|
definition row_vector (A : Type) (n : nat) := matrix A 1 n
|
|
attribute [reducible]
|
|
definition get_row (M : matrix A m n) (row : fin m) : row_vector A n :=
|
|
λ i j, M row j
|
|
|
|
variables (M : matrix A m n) (row : fin m) (col : fin n)
|
|
|
|
notation M `[` i `,` j `]` := val M i j
|
|
check M[row,col]
|
|
notation M `[` i `,` `:` `]` := get_row M i
|
|
check M[row,:]
|
|
check M[row,col]
|
|
check [(1:nat), 2, 3]
|