8bbcbb14cf
sed -E -i 's/(attribute(\s*(\w|\.)+)* \[[^]]+)\] \[/\1, /' {library,tests}/**/*.lean # repeat as needed
28 lines
614 B
Text
28 lines
614 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
|