Skip to content
Closed
Changes from all commits
Commits
File filter

Filter by extension

Filter by extension

Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
25 changes: 25 additions & 0 deletions Mathlib/LinearAlgebra/Matrix/SpecialLinearGroup.lean
Original file line number Diff line number Diff line change
Expand Up @@ -6,6 +6,7 @@ Authors: Anne Baanen, Wen Yang
module

public import Mathlib.Data.Fintype.Parity
public import Mathlib.Data.Matrix.Action
public import Mathlib.LinearAlgebra.Matrix.Adjugate
public import Mathlib.LinearAlgebra.Matrix.ToLin
public import Mathlib.LinearAlgebra.Matrix.Transvection
Expand Down Expand Up @@ -461,6 +462,30 @@ lemma mulVecSL {v : Fin 2 → R} (hab : IsCoprime (v 0) (v 1)) (A : SL(2, R)) :

end IsCoprime

namespace Matrix

section Action
Comment thread
Whysoserioushah marked this conversation as resolved.

variable {F : Type*} [CommRing F] {ι : Type*} [DecidableEq ι] [Fintype ι]

instance : DistribMulAction (Matrix.SpecialLinearGroup ι F) (ι → F) where
smul m v := m.1 • v
smul_zero _ := smul_zero (M := Matrix ι ι F) _
Comment thread
Whysoserioushah marked this conversation as resolved.
smul_add _ := smul_add (M := Matrix ι ι F) _
one_smul _ := one_smul (M := Matrix ι ι F) _
mul_smul _ _ _ := SemigroupAction.mul_smul (α := Matrix ι ι F) _ _ _

instance : SMulCommClass (Matrix.SpecialLinearGroup ι F) F (ι → F) where
smul_comm m k v := show m.1 • k • v = k • m.1 • v from smul_comm _ _ _

protected lemma SpecialLinearGroup.smul_def
(m : Matrix.SpecialLinearGroup ι F) (v : ι → F) :
m • v = m.1 • v := rfl

end Action

end Matrix

namespace ModularGroup

open MatrixGroups
Expand Down
Loading