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
28 lines
616 B
Text
28 lines
616 B
Text
import data.matrix
|
|
open algebra fin nat
|
|
|
|
namespace matrix
|
|
|
|
attribute [reducible]
|
|
definition vector (A : Type) (n : nat) := fin n → A
|
|
|
|
attribute [reducible] [coercion]
|
|
definition to_cvec {A : Type} {n : nat} (v : vector A n)
|
|
: matrix A n 1 := λ i o, v i
|
|
|
|
attribute [reducible] [coercion]
|
|
definition to_rvec {A : Type} {n : nat} (v : vector A n)
|
|
: matrix A 1 n := λ o i, v i
|
|
|
|
variables (A : Type) (n : nat)
|
|
variable [r : comm_ring A]
|
|
include r
|
|
variables (M : matrix A n n) (v : vector A n)
|
|
|
|
print "----------------"
|
|
|
|
check matrix.mul M v
|
|
check (λ f, f v) (matrix.mul M)
|
|
check (λ v, matrix.mul M v) v
|
|
|
|
end matrix
|