awhecmu/canonical-drafter-extract-mathlib huggingface dataset:
-- Module: Mathlib.LinearAlgebra.Alternating.DomCoprod
Goal:
ιa : Type u_1
ιb : Type u_2
inst : Fintype ιa
inst_1 : Fintype ιb
R' : Type u_3
Mᵢ : Type u_4
N₁ : Type u_5
N₂ : Type u_6
inst_2 : CommSemiring R'
inst_3 : AddCommGroup N₁
inst_4 : Module R' N₁
inst_5 : AddCommGroup N₂
inst_6 : Module R' N₂
inst_7 : AddCommMonoid Mᵢ
inst_8 : Module R' Mᵢ
inst_9 : DecidableEq ιa
inst_10 : DecidableEq ιb
a : Mᵢ [⋀^ιa]→ₗ[R'] N₁
b : Mᵢ [⋀^ιb]→ₗ[R'] N₂
v : ιa ⊕ ιb → Mᵢ
i j : ιa ⊕ ιb
hv : v i = v j
hij : i ≠ j
σ : Perm (ιa ⊕ ιb)
hσ_1 : HSMul.hSMul (β := Perm.ModSumCongr ιa ιb) (swap i j) (Quotient.mk'' σ) = Quotient.mk'' σ
sl : Perm ιa
sr : Perm ιb
hσ :
  (Perm.sumCongrHom ιa ιb : (a : Perm ιa × Perm ιb) → Perm (ιa ⊕ ιb)) (sl, sr) =
    ((fun (x : Perm (ιa ⊕ ιb)) ↦ swap i j • x) σ)⁻¹ * σ
i' : ιa
hi : i = (σ : (a : ιa ⊕ ιb) → ιa ⊕ ιb) (Sum.inl i')
j' : ιa
hj : j = (σ : (a : ιa ⊕ ιb) → ιa ⊕ ιb) (Sum.inl j')
hv₁ : v ((σ : (a : ιa ⊕ ιb) → ιa ⊕ ιb) (Sum.inl i')) = v ((σ : (a : ιa ⊕ ιb) → ιa ⊕ ιb) (Sum.inl j'))
hij₁ :
  Ne (α := ιa ⊕ ιb) ((σ : (a : ιa ⊕ ιb) → ιa ⊕ ιb) (Sum.inl i') : ιa ⊕ ιb)
    ((σ : (a : ιa ⊕ ιb) → ιa ⊕ ιb) (Sum.inl j') : ιa ⊕ ιb)
hσ₁ :
  HSMul.hSMul (α := Perm (ιa ⊕ ιb)) (β := Perm.ModSumCongr ιa ιb)
      (swap ((σ : (a : ιa ⊕ ιb) → ιa ⊕ ιb) (Sum.inl i')) ((σ : (a : ιa ⊕ ιb) → ιa ⊕ ιb) (Sum.inl j')) : Perm (ιa ⊕ ιb))
      (Quotient.mk'' σ) =
    Quotient.mk'' σ
⊢ (Perm.sumCongrHom ιa ιb : (a : Perm ιa × Perm ιb) → Perm (ιa ⊕ ιb)) (sl, sr) =
    ((fun (x : Perm (ιa ⊕ ιb)) ↦
            HSMul.hSMul (α := Perm (ιa ⊕ ιb))
              (swap ((σ : (a : ιa ⊕ ιb) → ιa ⊕ ιb) (Sum.inl i')) ((σ : (a : ιa ⊕ ιb) → ιa ⊕ ιb) (Sum.inl j')) :
                Perm (ιa ⊕ ιb))
              x)
          σ)⁻¹ *
      σ

Tactic:
substs hi hj
-- Module: Mathlib.LinearAlgebra.Alternating.DomCoprod
Goal:
ιa : Type u_1
ιb : Type u_2
inst : Fintype ιa
inst_1 : Fintype ιb
R' : Type u_3
Mᵢ : Type u_4
N₁ : Type u_5
N₂ : Type u_6
inst_2 : CommSemiring R'
inst_3 : AddCommGroup N₁
inst_4 : Module R' N₁
inst_5 : AddCommGroup N₂
inst_6 : Module R' N₂
inst_7 : AddCommMonoid Mᵢ
inst_8 : Module R' Mᵢ
inst_9 : DecidableEq ιa
inst_10 : DecidableEq ιb
a : Mᵢ [⋀^ιa]→ₗ[R'] N₁
b : Mᵢ [⋀^ιb]→ₗ[R'] N₂
v : ιa ⊕ ιb → Mᵢ
i j : ιa ⊕ ιb
hv : v i = v j
hij : i ≠ j
σ : Perm (ιa ⊕ ιb)
hσ_1 : HSMul.hSMul (β := Perm.ModSumCongr ιa ιb) (swap i j) (Quotient.mk'' σ) = Quotient.mk'' σ
sl : Perm ιa
sr : Perm ιb
hσ :
  (Perm.sumCongrHom ιa ιb : (a : Perm ιa × Perm ιb) → Perm (ιa ⊕ ιb)) (sl, sr) =
    ((fun (x : Perm (ιa ⊕ ιb)) ↦ swap i j • x) σ)⁻¹ * σ
i' : ιa
hi : i = (σ : (a : ιa ⊕ ιb) → ιa ⊕ ιb) (Sum.inl i')
j' : ιb
hj : j = (σ : (a : ιa ⊕ ιb) → ιa ⊕ ιb) (Sum.inr j')
⊢ v ((σ : (a : ιa ⊕ ιb) → ιa ⊕ ιb) (Sum.inl i')) = v ((σ : (a : ιa ⊕ ιb) → ιa ⊕ ιb) (Sum.inr j'))

Tactic:
substs hi hj
-- Module: Mathlib.LinearAlgebra.Alternating.DomCoprod
Goal:
ιa : Type u_1
ιb : Type u_2
inst : Fintype ιa
inst_1 : Fintype ιb
R' : Type u_3
Mᵢ : Type u_4
N₁ : Type u_5
N₂ : Type u_6
inst_2 : CommSemiring R'
inst_3 : AddCommGroup N₁
inst_4 : Module R' N₁
inst_5 : AddCommGroup N₂
inst_6 : Module R' N₂
inst_7 : AddCommMonoid Mᵢ
inst_8 : Module R' Mᵢ
inst_9 : DecidableEq ιa
inst_10 : DecidableEq ιb
a : Mᵢ [⋀^ιa]→ₗ[R'] N₁
b : Mᵢ [⋀^ιb]→ₗ[R'] N₂
v : ιa ⊕ ιb → Mᵢ
i j : ιa ⊕ ιb
hv : v i = v j
hij : i ≠ j
σ : Perm (ιa ⊕ ιb)
hσ_1 : HSMul.hSMul (β := Perm.ModSumCongr ιa ιb) (swap i j) (Quotient.mk'' σ) = Quotient.mk'' σ
sl : Perm ιa
sr : Perm ιb
hσ :
  (Perm.sumCongrHom ιa ιb : (a : Perm ιa × Perm ιb) → Perm (ιa ⊕ ιb)) (sl, sr) =
    ((fun (x : Perm (ιa ⊕ ιb)) ↦ swap i j • x) σ)⁻¹ * σ
i' : ιa
hi : i = (σ : (a : ιa ⊕ ιb) → ιa ⊕ ιb) (Sum.inl i')
j' : ιb
hj : j = (σ : (a : ιa ⊕ ιb) → ιa ⊕ ιb) (Sum.inr j')
hv₁ : v ((σ : (a : ιa ⊕ ιb) → ιa ⊕ ιb) (Sum.inl i')) = v ((σ : (a : ιa ⊕ ιb) → ιa ⊕ ιb) (Sum.inr j'))
⊢ Ne (α := ιa ⊕ ιb) ((σ : (a : ιa ⊕ ιb) → ιa ⊕ ιb) (Sum.inl i') : ιa ⊕ ιb)
    ((σ : (a : ιa ⊕ ιb) → ιa ⊕ ιb) (Sum.inr j') : ιa ⊕ ιb)

Tactic:
substs hi hj
-- Module: Mathlib.LinearAlgebra.Alternating.DomCoprod
Goal:
ιa : Type u_1
ιb : Type u_2
inst : Fintype ιa
inst_1 : Fintype ιb
R' : Type u_3
Mᵢ : Type u_4
N₁ : Type u_5
N₂ : Type u_6
inst_2 : CommSemiring R'
inst_3 : AddCommGroup N₁
inst_4 : Module R' N₁
inst_5 : AddCommGroup N₂
inst_6 : Module R' N₂
inst_7 : AddCommMonoid Mᵢ
inst_8 : Module R' Mᵢ
inst_9 : DecidableEq ιa
inst_10 : DecidableEq ιb
a : Mᵢ [⋀^ιa]→ₗ[R'] N₁
b : Mᵢ [⋀^ιb]→ₗ[R'] N₂
v : ιa ⊕ ιb → Mᵢ
i j : ιa ⊕ ιb
hv : v i = v j
hij : i ≠ j
σ : Perm (ιa ⊕ ιb)
hσ_1 : HSMul.hSMul (β := Perm.ModSumCongr ιa ιb) (swap i j) (Quotient.mk'' σ) = Quotient.mk'' σ
sl : Perm ιa
sr : Perm ιb
hσ :
  (Perm.sumCongrHom ιa ιb : (a : Perm ιa × Perm ιb) → Perm (ιa ⊕ ιb)) (sl, sr) =
    ((fun (x : Perm (ιa ⊕ ιb)) ↦ swap i j • x) σ)⁻¹ * σ
i' : ιa
hi : i = (σ : (a : ιa ⊕ ιb) → ιa ⊕ ιb) (Sum.inl i')
j' : ιb
hj : j = (σ : (a : ιa ⊕ ιb) → ιa ⊕ ιb) (Sum.inr j')
hv₁ : v ((σ : (a : ιa ⊕ ιb) → ιa ⊕ ιb) (Sum.inl i')) = v ((σ : (a : ιa ⊕ ιb) → ιa ⊕ ιb) (Sum.inr j'))
hij₁ :
  Ne (α := ιa ⊕ ιb) ((σ : (a : ιa ⊕ ιb) → ιa ⊕ ιb) (Sum.inl i') : ιa ⊕ ιb)
    ((σ : (a : ιa ⊕ ιb) → ιa ⊕ ιb) (Sum.inr j') : ιa ⊕ ιb)
⊢ HSMul.hSMul (α := Perm (ιa ⊕ ιb)) (β := Perm.ModSumCongr ιa ιb)
      (swap ((σ : (a : ιa ⊕ ιb) → ιa ⊕ ιb) (Sum.inl i')) ((σ : (a : ιa ⊕ ιb) → ιa ⊕ ιb) (Sum.inr j')) : Perm (ιa ⊕ ιb))
      (Quotient.mk'' σ) =
    Quotient.mk'' σ

Tactic:
substs hi hj
-- Module: Mathlib.LinearAlgebra.Alternating.DomCoprod
Goal:
ιa : Type u_1
ιb : Type u_2
inst : Fintype ιa
inst_1 : Fintype ιb
R' : Type u_3
Mᵢ : Type u_4
N₁ : Type u_5
N₂ : Type u_6
inst_2 : CommSemiring R'
inst_3 : AddCommGroup N₁
inst_4 : Module R' N₁
inst_5 : AddCommGroup N₂
inst_6 : Module R' N₂
inst_7 : AddCommMonoid Mᵢ
inst_8 : Module R' Mᵢ
inst_9 : DecidableEq ιa
inst_10 : DecidableEq ιb
a : Mᵢ [⋀^ιa]→ₗ[R'] N₁
b : Mᵢ [⋀^ιb]→ₗ[R'] N₂
v : ιa ⊕ ιb → Mᵢ
i j : ιa ⊕ ιb
hv : v i = v j
hij : i ≠ j
σ : Perm (ιa ⊕ ιb)
hσ_1 : HSMul.hSMul (β := Perm.ModSumCongr ιa ιb) (swap i j) (Quotient.mk'' σ) = Quotient.mk'' σ
sl : Perm ιa
sr : Perm ιb
hσ :
  (Perm.sumCongrHom ιa ιb : (a : Perm ιa × Perm ιb) → Perm (ιa ⊕ ιb)) (sl, sr) =
    ((fun (x : Perm (ιa ⊕ ιb)) ↦ swap i j • x) σ)⁻¹ * σ
i' : ιa
hi : i = (σ : (a : ιa ⊕ ιb) → ιa ⊕ ιb) (Sum.inl i')
j' : ιb
hj : j = (σ : (a : ιa ⊕ ιb) → ιa ⊕ ιb) (Sum.inr j')
hv₁ : v ((σ : (a : ιa ⊕ ιb) → ιa ⊕ ιb) (Sum.inl i')) = v ((σ : (a : ιa ⊕ ιb) → ιa ⊕ ιb) (Sum.inr j'))
hij₁ :
  Ne (α := ιa ⊕ ιb) ((σ : (a : ιa ⊕ ιb) → ιa ⊕ ιb) (Sum.inl i') : ιa ⊕ ιb)
    ((σ : (a : ιa ⊕ ιb) → ιa ⊕ ιb) (Sum.inr j') : ιa ⊕ ιb)
hσ₁ :
  HSMul.hSMul (α := Perm (ιa ⊕ ιb)) (β := Perm.ModSumCongr ιa ιb)
      (swap ((σ : (a : ιa ⊕ ιb) → ιa ⊕ ιb) (Sum.inl i')) ((σ : (a : ιa ⊕ ιb) → ιa ⊕ ιb) (Sum.inr j')) : Perm (ιa ⊕ ιb))
      (Quotient.mk'' σ) =
    Quotient.mk'' σ
⊢ (Perm.sumCongrHom ιa ιb : (a : Perm ιa × Perm ιb) → Perm (ιa ⊕ ιb)) (sl, sr) =
    ((fun (x : Perm (ιa ⊕ ιb)) ↦
            HSMul.hSMul (α := Perm (ιa ⊕ ιb))
              (swap ((σ : (a : ιa ⊕ ιb) → ιa ⊕ ιb) (Sum.inl i')) ((σ : (a : ιa ⊕ ιb) → ιa ⊕ ιb) (Sum.inr j')) :
                Perm (ιa ⊕ ιb))
              x)
          σ)⁻¹ *
      σ

Tactic:
substs hi hj
-- Module: Mathlib.LinearAlgebra.Alternating.DomCoprod
Goal:
ιa : Type u_1
ιb : Type u_2
inst : Fintype ιa
inst_1 : Fintype ιb
R' : Type u_3
Mᵢ : Type u_4
N₁ : Type u_5
N₂ : Type u_6
inst_2 : CommSemiring R'
inst_3 : AddCommGroup N₁
inst_4 : Module R' N₁
inst_5 : AddCommGroup N₂
inst_6 : Module R' N₂
inst_7 : AddCommMonoid Mᵢ
inst_8 : Module R' Mᵢ
inst_9 : DecidableEq ιa
inst_10 : DecidableEq ιb
a : Mᵢ [⋀^ιa]→ₗ[R'] N₁
b : Mᵢ [⋀^ιb]→ₗ[R'] N₂
v : ιa ⊕ ιb → Mᵢ
i j : ιa ⊕ ιb
hv : v i = v j
hij : i ≠ j
σ : Perm (ιa ⊕ ιb)
hσ_1 : HSMul.hSMul (β := Perm.ModSumCongr ιa ιb) (swap i j) (Quotient.mk'' σ) = Quotient.mk'' σ
sl : Perm ιa
sr : Perm ιb
hσ :
  (Perm.sumCongrHom ιa ιb : (a : Perm ιa × Perm ιb) → Perm (ιa ⊕ ιb)) (sl, sr) =
    ((fun (x : Perm (ιa ⊕ ιb)) ↦ swap i j • x) σ)⁻¹ * σ
i' : ιb
hi : i = (σ : (a : ιa ⊕ ιb) → ιa ⊕ ιb) (Sum.inr i')
j' : ιa
hj : j = (σ : (a : ιa ⊕ ιb) → ιa ⊕ ιb) (Sum.inl j')
⊢ v ((σ : (a : ιa ⊕ ιb) → ιa ⊕ ιb) (Sum.inr i')) = v ((σ : (a : ιa ⊕ ιb) → ιa ⊕ ιb) (Sum.inl j'))

Tactic:
substs hi hj
-- Module: Mathlib.LinearAlgebra.Alternating.DomCoprod
Goal:
ιa : Type u_1
ιb : Type u_2
inst : Fintype ιa
inst_1 : Fintype ιb
R' : Type u_3
Mᵢ : Type u_4
N₁ : Type u_5
N₂ : Type u_6
inst_2 : CommSemiring R'
inst_3 : AddCommGroup N₁
inst_4 : Module R' N₁
inst_5 : AddCommGroup N₂
inst_6 : Module R' N₂
inst_7 : AddCommMonoid Mᵢ
inst_8 : Module R' Mᵢ
inst_9 : DecidableEq ιa
inst_10 : DecidableEq ιb
a : Mᵢ [⋀^ιa]→ₗ[R'] N₁
b : Mᵢ [⋀^ιb]→ₗ[R'] N₂
v : ιa ⊕ ιb → Mᵢ
i j : ιa ⊕ ιb
hv : v i = v j
hij : i ≠ j
σ : Perm (ιa ⊕ ιb)
hσ_1 : HSMul.hSMul (β := Perm.ModSumCongr ιa ιb) (swap i j) (Quotient.mk'' σ) = Quotient.mk'' σ
sl : Perm ιa
sr : Perm ιb
hσ :
  (Perm.sumCongrHom ιa ιb : (a : Perm ιa × Perm ιb) → Perm (ιa ⊕ ιb)) (sl, sr) =
    ((fun (x : Perm (ιa ⊕ ιb)) ↦ swap i j • x) σ)⁻¹ * σ
i' : ιb
hi : i = (σ : (a : ιa ⊕ ιb) → ιa ⊕ ιb) (Sum.inr i')
j' : ιa
hj : j = (σ : (a : ιa ⊕ ιb) → ιa ⊕ ιb) (Sum.inl j')
hv₁ : v ((σ : (a : ιa ⊕ ιb) → ιa ⊕ ιb) (Sum.inr i')) = v ((σ : (a : ιa ⊕ ιb) → ιa ⊕ ιb) (Sum.inl j'))
⊢ Ne (α := ιa ⊕ ιb) ((σ : (a : ιa ⊕ ιb) → ιa ⊕ ιb) (Sum.inr i') : ιa ⊕ ιb)
    ((σ : (a : ιa ⊕ ιb) → ιa ⊕ ιb) (Sum.inl j') : ιa ⊕ ιb)

Tactic:
substs hi hj
-- Module: Mathlib.LinearAlgebra.Alternating.DomCoprod
Goal:
ιa : Type u_1
ιb : Type u_2
inst : Fintype ιa
inst_1 : Fintype ιb
R' : Type u_3
Mᵢ : Type u_4
N₁ : Type u_5
N₂ : Type u_6
inst_2 : CommSemiring R'
inst_3 : AddCommGroup N₁
inst_4 : Module R' N₁
inst_5 : AddCommGroup N₂
inst_6 : Module R' N₂
inst_7 : AddCommMonoid Mᵢ
inst_8 : Module R' Mᵢ
inst_9 : DecidableEq ιa
inst_10 : DecidableEq ιb
a : Mᵢ [⋀^ιa]→ₗ[R'] N₁
b : Mᵢ [⋀^ιb]→ₗ[R'] N₂
v : ιa ⊕ ιb → Mᵢ
i j : ιa ⊕ ιb
hv : v i = v j
hij : i ≠ j
σ : Perm (ιa ⊕ ιb)
hσ_1 : HSMul.hSMul (β := Perm.ModSumCongr ιa ιb) (swap i j) (Quotient.mk'' σ) = Quotient.mk'' σ
sl : Perm ιa
sr : Perm ιb
hσ :
  (Perm.sumCongrHom ιa ιb : (a : Perm ιa × Perm ιb) → Perm (ιa ⊕ ιb)) (sl, sr) =
    ((fun (x : Perm (ιa ⊕ ιb)) ↦ swap i j • x) σ)⁻¹ * σ
i' : ιb
hi : i = (σ : (a : ιa ⊕ ιb) → ιa ⊕ ιb) (Sum.inr i')
j' : ιa
hj : j = (σ : (a : ιa ⊕ ιb) → ιa ⊕ ιb) (Sum.inl j')
hv₁ : v ((σ : (a : ιa ⊕ ιb) → ιa ⊕ ιb) (Sum.inr i')) = v ((σ : (a : ιa ⊕ ιb) → ιa ⊕ ιb) (Sum.inl j'))
hij₁ :
  Ne (α := ιa ⊕ ιb) ((σ : (a : ιa ⊕ ιb) → ιa ⊕ ιb) (Sum.inr i') : ιa ⊕ ιb)
    ((σ : (a : ιa ⊕ ιb) → ιa ⊕ ιb) (Sum.inl j') : ιa ⊕ ιb)
⊢ HSMul.hSMul (α := Perm (ιa ⊕ ιb)) (β := Perm.ModSumCongr ιa ιb)
      (swap ((σ : (a : ιa ⊕ ιb) → ιa ⊕ ιb) (Sum.inr i')) ((σ : (a : ιa ⊕ ιb) → ιa ⊕ ιb) (Sum.inl j')) : Perm (ιa ⊕ ιb))
      (Quotient.mk'' σ) =
    Quotient.mk'' σ

Tactic:
substs hi hj
-- Module: Mathlib.LinearAlgebra.Alternating.DomCoprod
Goal:
ιa : Type u_1
ιb : Type u_2
inst : Fintype ιa
inst_1 : Fintype ιb
R' : Type u_3
Mᵢ : Type u_4
N₁ : Type u_5
N₂ : Type u_6
inst_2 : CommSemiring R'
inst_3 : AddCommGroup N₁
inst_4 : Module R' N₁
inst_5 : AddCommGroup N₂
inst_6 : Module R' N₂
inst_7 : AddCommMonoid Mᵢ
inst_8 : Module R' Mᵢ
inst_9 : DecidableEq ιa
inst_10 : DecidableEq ιb
a : Mᵢ [⋀^ιa]→ₗ[R'] N₁
b : Mᵢ [⋀^ιb]→ₗ[R'] N₂
v : ιa ⊕ ιb → Mᵢ
i j : ιa ⊕ ιb
hv : v i = v j
hij : i ≠ j
σ : Perm (ιa ⊕ ιb)
hσ_1 : HSMul.hSMul (β := Perm.ModSumCongr ιa ιb) (swap i j) (Quotient.mk'' σ) = Quotient.mk'' σ
sl : Perm ιa
sr : Perm ιb
hσ :
  (Perm.sumCongrHom ιa ιb : (a : Perm ιa × Perm ιb) → Perm (ιa ⊕ ιb)) (sl, sr) =
    ((fun (x : Perm (ιa ⊕ ιb)) ↦ swap i j • x) σ)⁻¹ * σ
i' : ιb
hi : i = (σ : (a : ιa ⊕ ιb) → ιa ⊕ ιb) (Sum.inr i')
j' : ιa
hj : j = (σ : (a : ιa ⊕ ιb) → ιa ⊕ ιb) (Sum.inl j')
hv₁ : v ((σ : (a : ιa ⊕ ιb) → ιa ⊕ ιb) (Sum.inr i')) = v ((σ : (a : ιa ⊕ ιb) → ιa ⊕ ιb) (Sum.inl j'))
hij₁ :
  Ne (α := ιa ⊕ ιb) ((σ : (a : ιa ⊕ ιb) → ιa ⊕ ιb) (Sum.inr i') : ιa ⊕ ιb)
    ((σ : (a : ιa ⊕ ιb) → ιa ⊕ ιb) (Sum.inl j') : ιa ⊕ ιb)
hσ₁ :
  HSMul.hSMul (α := Perm (ιa ⊕ ιb)) (β := Perm.ModSumCongr ιa ιb)
      (swap ((σ : (a : ιa ⊕ ιb) → ιa ⊕ ιb) (Sum.inr i')) ((σ : (a : ιa ⊕ ιb) → ιa ⊕ ιb) (Sum.inl j')) : Perm (ιa ⊕ ιb))
      (Quotient.mk'' σ) =
    Quotient.mk'' σ
⊢ (Perm.sumCongrHom ιa ιb : (a : Perm ιa × Perm ιb) → Perm (ιa ⊕ ιb)) (sl, sr) =
    ((fun (x : Perm (ιa ⊕ ιb)) ↦
            HSMul.hSMul (α := Perm (ιa ⊕ ιb))
              (swap ((σ : (a : ιa ⊕ ιb) → ιa ⊕ ιb) (Sum.inr i')) ((σ : (a : ιa ⊕ ιb) → ιa ⊕ ιb) (Sum.inl j')) :
                Perm (ιa ⊕ ιb))
              x)
          σ)⁻¹ *
      σ

Tactic:
substs hi hj
-- Module: Mathlib.LinearAlgebra.Alternating.DomCoprod
Goal:
ιa : Type u_1
ιb : Type u_2
inst : Fintype ιa
inst_1 : Fintype ιb
R' : Type u_3
Mᵢ : Type u_4
N₁ : Type u_5
N₂ : Type u_6
inst_2 : CommSemiring R'
inst_3 : AddCommGroup N₁
inst_4 : Module R' N₁
inst_5 : AddCommGroup N₂
inst_6 : Module R' N₂
inst_7 : AddCommMonoid Mᵢ
inst_8 : Module R' Mᵢ
inst_9 : DecidableEq ιa
inst_10 : DecidableEq ιb
a : Mᵢ [⋀^ιa]→ₗ[R'] N₁
b : Mᵢ [⋀^ιb]→ₗ[R'] N₂
v : ιa ⊕ ιb → Mᵢ
i j : ιa ⊕ ιb
hv : v i = v j
hij : i ≠ j
σ : Perm (ιa ⊕ ιb)
hσ_1 : HSMul.hSMul (β := Perm.ModSumCongr ιa ιb) (swap i j) (Quotient.mk'' σ) = Quotient.mk'' σ
sl : Perm ιa
sr : Perm ιb
hσ :
  (Perm.sumCongrHom ιa ιb : (a : Perm ιa × Perm ιb) → Perm (ιa ⊕ ιb)) (sl, sr) =
    ((fun (x : Perm (ιa ⊕ ιb)) ↦ swap i j • x) σ)⁻¹ * σ
i' : ιb
hi : i = (σ : (a : ιa ⊕ ιb) → ιa ⊕ ιb) (Sum.inr i')
j' : ιb
hj : j = (σ : (a : ιa ⊕ ιb) → ιa ⊕ ιb) (Sum.inr j')
⊢ v ((σ : (a : ιa ⊕ ιb) → ιa ⊕ ιb) (Sum.inr i')) = v ((σ : (a : ιa ⊕ ιb) → ιa ⊕ ιb) (Sum.inr j'))

Tactic:
substs hi hj
-- Module: Mathlib.LinearAlgebra.Alternating.DomCoprod
Goal:
ιa : Type u_1
ιb : Type u_2
inst : Fintype ιa
inst_1 : Fintype ιb
R' : Type u_3
Mᵢ : Type u_4
N₁ : Type u_5
N₂ : Type u_6
inst_2 : CommSemiring R'
inst_3 : AddCommGroup N₁
inst_4 : Module R' N₁
inst_5 : AddCommGroup N₂
inst_6 : Module R' N₂
inst_7 : AddCommMonoid Mᵢ
inst_8 : Module R' Mᵢ
inst_9 : DecidableEq ιa
inst_10 : DecidableEq ιb
a : Mᵢ [⋀^ιa]→ₗ[R'] N₁
b : Mᵢ [⋀^ιb]→ₗ[R'] N₂
v : ιa ⊕ ιb → Mᵢ
i j : ιa ⊕ ιb
hv : v i = v j
hij : i ≠ j
σ : Perm (ιa ⊕ ιb)
hσ_1 : HSMul.hSMul (β := Perm.ModSumCongr ιa ιb) (swap i j) (Quotient.mk'' σ) = Quotient.mk'' σ
sl : Perm ιa
sr : Perm ιb
hσ :
  (Perm.sumCongrHom ιa ιb : (a : Perm ιa × Perm ιb) → Perm (ιa ⊕ ιb)) (sl, sr) =
    ((fun (x : Perm (ιa ⊕ ιb)) ↦ swap i j • x) σ)⁻¹ * σ
i' : ιb
hi : i = (σ : (a : ιa ⊕ ιb) → ιa ⊕ ιb) (Sum.inr i')
j' : ιb
hj : j = (σ : (a : ιa ⊕ ιb) → ιa ⊕ ιb) (Sum.inr j')
hv₁ : v ((σ : (a : ιa ⊕ ιb) → ιa ⊕ ιb) (Sum.inr i')) = v ((σ : (a : ιa ⊕ ιb) → ιa ⊕ ιb) (Sum.inr j'))
⊢ Ne (α := ιa ⊕ ιb) ((σ : (a : ιa ⊕ ιb) → ιa ⊕ ιb) (Sum.inr i') : ιa ⊕ ιb)
    ((σ : (a : ιa ⊕ ιb) → ιa ⊕ ιb) (Sum.inr j') : ιa ⊕ ιb)

Tactic:
substs hi hj
-- Module: Mathlib.LinearAlgebra.Alternating.DomCoprod
Goal:
ιa : Type u_1
ιb : Type u_2
inst : Fintype ιa
inst_1 : Fintype ιb
R' : Type u_3
Mᵢ : Type u_4
N₁ : Type u_5
N₂ : Type u_6
inst_2 : CommSemiring R'
inst_3 : AddCommGroup N₁
inst_4 : Module R' N₁
inst_5 : AddCommGroup N₂
inst_6 : Module R' N₂
inst_7 : AddCommMonoid Mᵢ
inst_8 : Module R' Mᵢ
inst_9 : DecidableEq ιa
inst_10 : DecidableEq ιb
a : Mᵢ [⋀^ιa]→ₗ[R'] N₁
b : Mᵢ [⋀^ιb]→ₗ[R'] N₂
v : ιa ⊕ ιb → Mᵢ
i j : ιa ⊕ ιb
hv : v i = v j
hij : i ≠ j
σ : Perm (ιa ⊕ ιb)
hσ_1 : HSMul.hSMul (β := Perm.ModSumCongr ιa ιb) (swap i j) (Quotient.mk'' σ) = Quotient.mk'' σ
sl : Perm ιa
sr : Perm ιb
hσ :
  (Perm.sumCongrHom ιa ιb : (a : Perm ιa × Perm ιb) → Perm (ιa ⊕ ιb)) (sl, sr) =
    ((fun (x : Perm (ιa ⊕ ιb)) ↦ swap i j • x) σ)⁻¹ * σ
i' : ιb
hi : i = (σ : (a : ιa ⊕ ιb) → ιa ⊕ ιb) (Sum.inr i')
j' : ιb
hj : j = (σ : (a : ιa ⊕ ιb) → ιa ⊕ ιb) (Sum.inr j')
hv₁ : v ((σ : (a : ιa ⊕ ιb) → ιa ⊕ ιb) (Sum.inr i')) = v ((σ : (a : ιa ⊕ ιb) → ιa ⊕ ιb) (Sum.inr j'))
hij₁ :
  Ne (α := ιa ⊕ ιb) ((σ : (a : ιa ⊕ ιb) → ιa ⊕ ιb) (Sum.inr i') : ιa ⊕ ιb)
    ((σ : (a : ιa ⊕ ιb) → ιa ⊕ ιb) (Sum.inr j') : ιa ⊕ ιb)
⊢ HSMul.hSMul (α := Perm (ιa ⊕ ιb)) (β := Perm.ModSumCongr ιa ιb)
      (swap ((σ : (a : ιa ⊕ ιb) → ιa ⊕ ιb) (Sum.inr i')) ((σ : (a : ιa ⊕ ιb) → ιa ⊕ ιb) (Sum.inr j')) : Perm (ιa ⊕ ιb))
      (Quotient.mk'' σ) =
    Quotient.mk'' σ

Tactic:
substs hi hj
-- Module: Mathlib.LinearAlgebra.Alternating.DomCoprod
Goal:
ιa : Type u_1
ιb : Type u_2
inst : Fintype ιa
inst_1 : Fintype ιb
R' : Type u_3
Mᵢ : Type u_4
N₁ : Type u_5
N₂ : Type u_6
inst_2 : CommSemiring R'
inst_3 : AddCommGroup N₁
inst_4 : Module R' N₁
inst_5 : AddCommGroup N₂
inst_6 : Module R' N₂
inst_7 : AddCommMonoid Mᵢ
inst_8 : Module R' Mᵢ
inst_9 : DecidableEq ιa
inst_10 : DecidableEq ιb
a : Mᵢ [⋀^ιa]→ₗ[R'] N₁
b : Mᵢ [⋀^ιb]→ₗ[R'] N₂
v : ιa ⊕ ιb → Mᵢ
i j : ιa ⊕ ιb
hv : v i = v j
hij : i ≠ j
σ : Perm (ιa ⊕ ιb)
hσ_1 : HSMul.hSMul (β := Perm.ModSumCongr ιa ιb) (swap i j) (Quotient.mk'' σ) = Quotient.mk'' σ
sl : Perm ιa
sr : Perm ιb
hσ :
  (Perm.sumCongrHom ιa ιb : (a : Perm ιa × Perm ιb) → Perm (ιa ⊕ ιb)) (sl, sr) =
    ((fun (x : Perm (ιa ⊕ ιb)) ↦ swap i j • x) σ)⁻¹ * σ
i' : ιb
hi : i = (σ : (a : ιa ⊕ ιb) → ιa ⊕ ιb) (Sum.inr i')
j' : ιb
hj : j = (σ : (a : ιa ⊕ ιb) → ιa ⊕ ιb) (Sum.inr j')
hv₁ : v ((σ : (a : ιa ⊕ ιb) → ιa ⊕ ιb) (Sum.inr i')) = v ((σ : (a : ιa ⊕ ιb) → ιa ⊕ ιb) (Sum.inr j'))
hij₁ :
  Ne (α := ιa ⊕ ιb) ((σ : (a : ιa ⊕ ιb) → ιa ⊕ ιb) (Sum.inr i') : ιa ⊕ ιb)
    ((σ : (a : ιa ⊕ ιb) → ιa ⊕ ιb) (Sum.inr j') : ιa ⊕ ιb)
hσ₁ :
  HSMul.hSMul (α := Perm (ιa ⊕ ιb)) (β := Perm.ModSumCongr ιa ιb)
      (swap ((σ : (a : ιa ⊕ ιb) → ιa ⊕ ιb) (Sum.inr i')) ((σ : (a : ιa ⊕ ιb) → ιa ⊕ ιb) (Sum.inr j')) : Perm (ιa ⊕ ιb))
      (Quotient.mk'' σ) =
    Quotient.mk'' σ
⊢ (Perm.sumCongrHom ιa ιb : (a : Perm ιa × Perm ιb) → Perm (ιa ⊕ ιb)) (sl, sr) =
    ((fun (x : Perm (ιa ⊕ ιb)) ↦
            HSMul.hSMul (α := Perm (ιa ⊕ ιb))
              (swap ((σ : (a : ιa ⊕ ιb) → ιa ⊕ ιb) (Sum.inr i')) ((σ : (a : ιa ⊕ ιb) → ιa ⊕ ιb) (Sum.inr j')) :
                Perm (ιa ⊕ ιb))
              x)
          σ)⁻¹ *
      σ

Tactic:
substs hi hj
-- Module: Mathlib.LinearAlgebra.Alternating.DomCoprod
Goal:
ιa : Type u_1
ιb : Type u_2
inst : Fintype ιa
inst_1 : Fintype ιb
R' : Type u_3
Mᵢ : Type u_4
N₁ : Type u_5
N₂ : Type u_6
inst_2 : CommSemiring R'
inst_3 : AddCommGroup N₁
inst_4 : Module R' N₁
inst_5 : AddCommGroup N₂
inst_6 : Module R' N₂
inst_7 : AddCommMonoid Mᵢ
inst_8 : Module R' Mᵢ
inst_9 : DecidableEq ιa
inst_10 : DecidableEq ιb
a : Mᵢ [⋀^ιa]→ₗ[R'] N₁
b : Mᵢ [⋀^ιb]→ₗ[R'] N₂
v : ιa ⊕ ιb → Mᵢ
σ : Perm (ιa ⊕ ιb)
sl : Perm ιa
sr : Perm ιb
i' : ιa
j' : ιb
hv : v ((σ : (a : ιa ⊕ ιb) → ιa ⊕ ιb) (Sum.inl i')) = v ((σ : (a : ιa ⊕ ιb) → ιa ⊕ ιb) (Sum.inr j'))
hij :
  Ne (α := ιa ⊕ ιb) ((σ : (a : ιa ⊕ ιb) → ιa ⊕ ιb) (Sum.inl i') : ιa ⊕ ιb)
    ((σ : (a : ιa ⊕ ιb) → ιa ⊕ ιb) (Sum.inr j') : ιa ⊕ ιb)
hσ_1 :
  HSMul.hSMul (α := Perm (ιa ⊕ ιb)) (β := Perm.ModSumCongr ιa ιb)
      (swap ((σ : (a : ιa ⊕ ιb) → ιa ⊕ ιb) (Sum.inl i')) ((σ : (a : ιa ⊕ ιb) → ιa ⊕ ιb) (Sum.inr j')) : Perm (ιa ⊕ ιb))
      (Quotient.mk'' σ) =
    Quotient.mk'' σ
hσ :
  (Perm.sumCongrHom ιa ιb : (a : Perm ιa × Perm ιb) → Perm (ιa ⊕ ιb)) (sl, sr) =
    ((fun (x : Perm (ιa ⊕ ιb)) ↦
            HSMul.hSMul (α := Perm (ιa ⊕ ιb))
              (swap ((σ : (a : ιa ⊕ ιb) → ιa ⊕ ιb) (Sum.inl i')) ((σ : (a : ιa ⊕ ιb) → ιa ⊕ ιb) (Sum.inr j')) :
                Perm (ιa ⊕ ιb))
              x)
          σ)⁻¹ *
      σ
⊢ HSMul.hSMul (α := ℤˣ) (β := N₁ ⊗[R'] N₂) (((Perm.sign : Perm (ιa ⊕ ιb) →* ℤˣ) : (a : Perm (ιa ⊕ ιb)) → ℤˣ) σ : ℤˣ)
      ((((↑a : MultilinearMap R' (fun (x : ιa) ↦ Mᵢ) N₁) : (a : (i : ιa) → Mᵢ) → N₁) fun (i₁ : ιa) ↦
            v ((σ : (a : ιa ⊕ ιb) → ιa ⊕ ιb) (Sum.inl i₁))) ⊗ₜ[R']
          ((↑b : MultilinearMap R' (fun (x : ιb) ↦ Mᵢ) N₂) : (a : (i : ιb) → Mᵢ) → N₂) fun (i₂ : ιb) ↦
            v ((σ : (a : ιa ⊕ ιb) → ιa ⊕ ιb) (Sum.inr i₂)) :
        N₁ ⊗[R'] N₂) =
    0

Tactic:
simpa using Equiv.congr_fun hσ (Sum.inl i')

Premises used: Equiv.congr_fun, Sum.inl
-- Module: Mathlib.LinearAlgebra.Alternating.DomCoprod
Goal:
ιa : Type u_1
ιb : Type u_2
inst : Fintype ιa
inst_1 : Fintype ιb
R' : Type u_3
Mᵢ : Type u_4
N₁ : Type u_5
N₂ : Type u_6
inst_2 : CommSemiring R'
inst_3 : AddCommGroup N₁
inst_4 : Module R' N₁
inst_5 : AddCommGroup N₂
inst_6 : Module R' N₂
inst_7 : AddCommMonoid Mᵢ
inst_8 : Module R' Mᵢ
inst_9 : DecidableEq ιa
inst_10 : DecidableEq ιb
a : Mᵢ [⋀^ιa]→ₗ[R'] N₁
b : Mᵢ [⋀^ιb]→ₗ[R'] N₂
v : ιa ⊕ ιb → Mᵢ
σ : Perm (ιa ⊕ ιb)
sl : Perm ιa
sr : Perm ιb
i' : ιa
j' : ιb
hv : v ((σ : (a : ιa ⊕ ιb) → ιa ⊕ ιb) (Sum.inl i')) = v ((σ : (a : ιa ⊕ ιb) → ιa ⊕ ιb) (Sum.inr j'))
hij :
  Ne (α := ιa ⊕ ιb) ((σ : (a : ιa ⊕ ιb) → ιa ⊕ ιb) (Sum.inl i') : ιa ⊕ ιb)
    ((σ : (a : ιa ⊕ ιb) → ιa ⊕ ιb) (Sum.inr j') : ιa ⊕ ιb)
hσ_1 :
  HSMul.hSMul (α := Perm (ιa ⊕ ιb)) (β := Perm.ModSumCongr ιa ιb)
      (swap ((σ : (a : ιa ⊕ ιb) → ιa ⊕ ιb) (Sum.inl i')) ((σ : (a : ιa ⊕ ιb) → ιa ⊕ ιb) (Sum.inr j')) : Perm (ιa ⊕ ιb))
      (Quotient.mk'' σ) =
    Quotient.mk'' σ
hσ :
  (Perm.sumCongrHom ιa ιb : (a : Perm ιa × Perm ιb) → Perm (ιa ⊕ ιb)) (sl, sr) =
    ((fun (x : Perm (ιa ⊕ ιb)) ↦
            HSMul.hSMul (α := Perm (ιa ⊕ ιb))
              (swap ((σ : (a : ιa ⊕ ιb) → ιa ⊕ ιb) (Sum.inl i')) ((σ : (a : ιa ⊕ ιb) → ιa ⊕ ιb) (Sum.inr j')) :
                Perm (ιa ⊕ ιb))
              x)
          σ)⁻¹ *
      σ
⊢ HSMul.hSMul (α := ℤˣ) (β := N₁ ⊗[R'] N₂) (((Perm.sign : Perm (ιa ⊕ ιb) →* ℤˣ) : (a : Perm (ιa ⊕ ιb)) → ℤˣ) σ : ℤˣ)
      ((((↑a : MultilinearMap R' (fun (x : ιa) ↦ Mᵢ) N₁) : (a : (i : ιa) → Mᵢ) → N₁) fun (i₁ : ιa) ↦
            v ((σ : (a : ιa ⊕ ιb) → ιa ⊕ ιb) (Sum.inl i₁))) ⊗ₜ[R']
          ((↑b : MultilinearMap R' (fun (x : ιb) ↦ Mᵢ) N₂) : (a : (i : ιb) → Mᵢ) → N₂) fun (i₂ : ιb) ↦
            v ((σ : (a : ιa ⊕ ιb) → ιa ⊕ ιb) (Sum.inr i₂)) :
        N₁ ⊗[R'] N₂) =
    0

Tactic:
case inl.inr => simpa using Equiv.congr_fun hσ (Sum.inl i')

Premises used: Equiv.congr_fun, Sum.inl
-- Module: Mathlib.LinearAlgebra.Alternating.DomCoprod
Goal:
ιa : Type u_1
ιb : Type u_2
inst : Fintype ιa
inst_1 : Fintype ιb
R' : Type u_3
Mᵢ : Type u_4
N₁ : Type u_5
N₂ : Type u_6
inst_2 : CommSemiring R'
inst_3 : AddCommGroup N₁
inst_4 : Module R' N₁
inst_5 : AddCommGroup N₂
inst_6 : Module R' N₂
inst_7 : AddCommMonoid Mᵢ
inst_8 : Module R' Mᵢ
inst_9 : DecidableEq ιa
inst_10 : DecidableEq ιb
a : Mᵢ [⋀^ιa]→ₗ[R'] N₁
b : Mᵢ [⋀^ιb]→ₗ[R'] N₂
v : ιa ⊕ ιb → Mᵢ
σ : Perm (ιa ⊕ ιb)
sl : Perm ιa
sr : Perm ιb
i' : ιb
j' : ιa
hv : v ((σ : (a : ιa ⊕ ιb) → ιa ⊕ ιb) (Sum.inr i')) = v ((σ : (a : ιa ⊕ ιb) → ιa ⊕ ιb) (Sum.inl j'))
hij :
  Ne (α := ιa ⊕ ιb) ((σ : (a : ιa ⊕ ιb) → ιa ⊕ ιb) (Sum.inr i') : ιa ⊕ ιb)
    ((σ : (a : ιa ⊕ ιb) → ιa ⊕ ιb) (Sum.inl j') : ιa ⊕ ιb)
hσ_1 :
  HSMul.hSMul (α := Perm (ιa ⊕ ιb)) (β := Perm.ModSumCongr ιa ιb)
      (swap ((σ : (a : ιa ⊕ ιb) → ιa ⊕ ιb) (Sum.inr i')) ((σ : (a : ιa ⊕ ιb) → ιa ⊕ ιb) (Sum.inl j')) : Perm (ιa ⊕ ιb))
      (Quotient.mk'' σ) =
    Quotient.mk'' σ
hσ :
  (Perm.sumCongrHom ιa ιb : (a : Perm ιa × Perm ιb) → Perm (ιa ⊕ ιb)) (sl, sr) =
    ((fun (x : Perm (ιa ⊕ ιb)) ↦
            HSMul.hSMul (α := Perm (ιa ⊕ ιb))
              (swap ((σ : (a : ιa ⊕ ιb) → ιa ⊕ ιb) (Sum.inr i')) ((σ : (a : ιa ⊕ ιb) → ιa ⊕ ιb) (Sum.inl j')) :
                Perm (ιa ⊕ ιb))
              x)
          σ)⁻¹ *
      σ
⊢ HSMul.hSMul (α := ℤˣ) (β := N₁ ⊗[R'] N₂) (((Perm.sign : Perm (ιa ⊕ ιb) →* ℤˣ) : (a : Perm (ιa ⊕ ιb)) → ℤˣ) σ : ℤˣ)
      ((((↑a : MultilinearMap R' (fun (x : ιa) ↦ Mᵢ) N₁) : (a : (i : ιa) → Mᵢ) → N₁) fun (i₁ : ιa) ↦
            v ((σ : (a : ιa ⊕ ιb) → ιa ⊕ ιb) (Sum.inl i₁))) ⊗ₜ[R']
          ((↑b : MultilinearMap R' (fun (x : ιb) ↦ Mᵢ) N₂) : (a : (i : ιb) → Mᵢ) → N₂) fun (i₂ : ιb) ↦
            v ((σ : (a : ιa ⊕ ιb) → ιa ⊕ ιb) (Sum.inr i₂)) :
        N₁ ⊗[R'] N₂) =
    0

Tactic:
simpa using Equiv.congr_fun hσ (Sum.inr i')

Premises used: Equiv.congr_fun, Sum.inr