awhecmu/canonical-drafter-extract-mathlib huggingface dataset:
-- Lean 4 proof step from Mathlib.LinearAlgebra.TensorProduct.Basic (goal)
Goal:
R : Type u_1
R₂ : Type u_2
R₃ : Type u_3
R' : Type u_4
R'' : Type u_5
inst : CommSemiring R
inst_1 : CommSemiring R₂
inst_2 : CommSemiring R₃
inst_3 : Monoid R'
inst_4 : Semiring R''
σ₁₂ : R →+* R₂
σ₂₃ : R₂ →+* R₃
σ₁₃ : R →+* R₃
A : Type u_6
M : Type u_7
N : Type u_8
P : Type u_9
Q : Type u_10
S : Type u_11
M₂ : Type u_12
M₃ : Type u_13
N₂ : Type u_14
N₃ : Type u_15
P' : Type u_16
P₂ : Type u_17
P₃ : Type u_18
Q' : Type u_19
Q₂ : Type u_20
Q₃ : Type u_21
inst_5 : AddCommMonoid M
inst_6 : AddCommMonoid N
inst_7 : AddCommMonoid P
inst_8 : AddCommMonoid Q
inst_9 : AddCommMonoid S
inst_10 : AddCommMonoid P'
inst_11 : AddCommMonoid Q'
inst_12 : AddCommMonoid M₂
inst_13 : AddCommMonoid N₂
inst_14 : AddCommMonoid P₂
inst_15 : AddCommMonoid Q₂
inst_16 : AddCommMonoid M₃
inst_17 : AddCommMonoid N₃
inst_18 : AddCommMonoid P₃
inst_19 : AddCommMonoid Q₃
inst_20 : DistribMulAction R' M
inst_21 : Module R'' M
inst_22 : Module R M
inst_23 : Module R N
inst_24 : Module R S
inst_25 : Module R P'
inst_26 : Module R Q'
inst_27 : Module R₂ M₂
inst_28 : Module R₂ N₂
inst_29 : Module R₂ P₂
inst_30 : Module R₂ Q₂
inst_31 : Module R₃ M₃
inst_32 : Module R₃ N₃
inst_33 : Module R₃ P₃
inst_34 : Module R₃ Q₃
f : M →+ N →+ P
hf :
  ∀ (r : R) (m : M) (n : N),
    Eq.{u_9 + 1} (α := P) ((((f : (a : M) → N →+ P) (r • m) : N →+ P) : (a : N) → P) n : P)
      ((((f : (a : M) → N →+ P) m : N →+ P) : (a : N) → P) (r • n) : P)
x_1 y_1 : FreeAddMonoid (M × N)
hxy : Eqv R M N x_1 y_1
x y : FreeAddMonoid (M × N)
⊢ Eq.{u_9 + 1} (α := P)
    (((FreeAddMonoid.lift : (a : M × N → P) → FreeAddMonoid (M × N) →+ P) fun (mn : M × N) ↦
            (((f : (a : M) → N →+ P) mn.1 : N →+ P) : (a : N) → P) mn.2 :
          (a : FreeAddMonoid (M × N)) → P)
        (x + y) :
      P)
    (((FreeAddMonoid.lift : (a : M × N → P) → FreeAddMonoid (M × N) →+ P) fun (mn : M × N) ↦
            (((f : (a : M) → N →+ P) mn.1 : N →+ P) : (a : N) → P) mn.2 :
          (a : FreeAddMonoid (M × N)) → P)
        (y + x) :
      P)
have simp_rw : HAdd.hAdd (α := P) (β := P)
    (((FreeAddMonoid.lift : (a : M × N → P) → FreeAddMonoid (M × N) →+ P) fun (mn : M × N) ↦
            (((f : (a : M) → N →+ P) mn.1 : N →+ P) : (a : N) → P) mn.2 :
          (a : FreeAddMonoid (M × N)) → P)
        x :
      P)
    (((FreeAddMonoid.lift : (a : M × N → P) → FreeAddMonoid (M × N) →+ P) fun (mn : M × N) ↦
            (((f : (a : M) → N →+ P) mn.1 : N →+ P) : (a : N) → P) mn.2 :
          (a : FreeAddMonoid (M × N)) → P)
        y :
      P) =
  HAdd.hAdd (α := P) (β := P)
    (((FreeAddMonoid.lift : (a : M × N → P) → FreeAddMonoid (M × N) →+ P) fun (mn : M × N) ↦
            (((f : (a : M) → N →+ P) mn.1 : N →+ P) : (a : N) → P) mn.2 :
          (a : FreeAddMonoid (M × N)) → P)
        y :
      P)
    (((FreeAddMonoid.lift : (a : M × N → P) → FreeAddMonoid (M × N) →+ P) fun (mn : M × N) ↦
            (((f : (a : M) → N →+ P) mn.1 : N →+ P) : (a : N) → P) mn.2 :
          (a : FreeAddMonoid (M × N)) → P)
        x :
      P)
Tactic: simp_rw [map_add, add_comm]
-- Lean 4 proof step from Mathlib.LinearAlgebra.TensorProduct.Basic (goal)
Goal:
R : Type u_1
R₂ : Type u_2
R₃ : Type u_3
R' : Type u_4
R'' : Type u_5
inst : CommSemiring R
inst_1 : CommSemiring R₂
inst_2 : CommSemiring R₃
inst_3 : Monoid R'
inst_4 : Semiring R''
σ₁₂ : R →+* R₂
σ₂₃ : R₂ →+* R₃
σ₁₃ : R →+* R₃
A : Type u_6
M : Type u_7
N : Type u_8
P : Type u_9
Q : Type u_10
S : Type u_11
M₂ : Type u_12
M₃ : Type u_13
N₂ : Type u_14
N₃ : Type u_15
P' : Type u_16
P₂ : Type u_17
P₃ : Type u_18
Q' : Type u_19
Q₂ : Type u_20
Q₃ : Type u_21
inst_5 : AddCommMonoid M
inst_6 : AddCommMonoid N
inst_7 : AddCommMonoid P
inst_8 : AddCommMonoid Q
inst_9 : AddCommMonoid S
inst_10 : AddCommMonoid P'
inst_11 : AddCommMonoid Q'
inst_12 : AddCommMonoid M₂
inst_13 : AddCommMonoid N₂
inst_14 : AddCommMonoid P₂
inst_15 : AddCommMonoid Q₂
inst_16 : AddCommMonoid M₃
inst_17 : AddCommMonoid N₃
inst_18 : AddCommMonoid P₃
inst_19 : AddCommMonoid Q₃
inst_20 : DistribMulAction R' M
inst_21 : Module R'' M
inst_22 : Module R M
inst_23 : Module R N
inst_24 : Module R S
inst_25 : Module R P'
inst_26 : Module R Q'
inst_27 : Module R₂ M₂
inst_28 : Module R₂ N₂
inst_29 : Module R₂ P₂
inst_30 : Module R₂ Q₂
inst_31 : Module R₃ M₃
inst_32 : Module R₃ N₃
inst_33 : Module R₃ P₃
inst_34 : Module R₃ Q₃
inst_35 : Module R P
inst_36 : Module R Q
f : M →ₗ[R] N →ₗ[R] P
f' : M →ₛₗ[σ₁₂] N →ₛₗ[σ₁₂] P₂
r : R
m : M
n : N
⊢ Eq.{u_17 + 1} (α := P₂)
    ((((AddMonoidHom.comp LinearMap.toAddMonoidHom' f'.toAddMonoidHom : (a : M) → N →+ P₂) (r • m) : N →+ P₂) :
          (a : N) → P₂)
        n :
      P₂)
    ((((AddMonoidHom.comp LinearMap.toAddMonoidHom' f'.toAddMonoidHom : (a : M) → N →+ P₂) m : N →+ P₂) : (a : N) → P₂)
        (r • n) :
      P₂)
have dsimp : Eq.{u_17 + 1} (α := P₂) ((((f' : (a : M) → N →ₛₗ[σ₁₂] P₂) (r • m) : N →ₛₗ[σ₁₂] P₂) : (a : N) → P₂) n : P₂)
  ((((f' : (a : M) → N →ₛₗ[σ₁₂] P₂) m : N →ₛₗ[σ₁₂] P₂) : (a : N) → P₂) (r • n) : P₂)
Tactic: dsimp
-- Lean 4 proof step from Mathlib.LinearAlgebra.TensorProduct.Basic (goal)
Goal:
R : Type u_1
R₂ : Type u_2
R₃ : Type u_3
R' : Type u_4
R'' : Type u_5
inst : CommSemiring R
inst_1 : CommSemiring R₂
inst_2 : CommSemiring R₃
inst_3 : Monoid R'
inst_4 : Semiring R''
σ₁₂ : R →+* R₂
σ₂₃ : R₂ →+* R₃
σ₁₃ : R →+* R₃
A : Type u_6
M : Type u_7
N : Type u_8
P : Type u_9
Q : Type u_10
S : Type u_11
M₂ : Type u_12
M₃ : Type u_13
N₂ : Type u_14
N₃ : Type u_15
P' : Type u_16
P₂ : Type u_17
P₃ : Type u_18
Q' : Type u_19
Q₂ : Type u_20
Q₃ : Type u_21
inst_5 : AddCommMonoid M
inst_6 : AddCommMonoid N
inst_7 : AddCommMonoid P
inst_8 : AddCommMonoid Q
inst_9 : AddCommMonoid S
inst_10 : AddCommMonoid P'
inst_11 : AddCommMonoid Q'
inst_12 : AddCommMonoid M₂
inst_13 : AddCommMonoid N₂
inst_14 : AddCommMonoid P₂
inst_15 : AddCommMonoid Q₂
inst_16 : AddCommMonoid M₃
inst_17 : AddCommMonoid N₃
inst_18 : AddCommMonoid P₃
inst_19 : AddCommMonoid Q₃
inst_20 : DistribMulAction R' M
inst_21 : Module R'' M
inst_22 : Module R M
inst_23 : Module R N
inst_24 : Module R S
inst_25 : Module R P'
inst_26 : Module R Q'
inst_27 : Module R₂ M₂
inst_28 : Module R₂ N₂
inst_29 : Module R₂ P₂
inst_30 : Module R₂ Q₂
inst_31 : Module R₃ M₃
inst_32 : Module R₃ N₃
inst_33 : Module R₃ P₃
inst_34 : Module R₃ Q₃
inst_35 : Module R P
inst_36 : Module R Q
f : M →ₗ[R] N →ₗ[R] P
f' : M →ₛₗ[σ₁₂] N →ₛₗ[σ₁₂] P₂
r : R
m : M
n : N
⊢ Eq.{u_17 + 1} (α := P₂) ((((f' : (a : M) → N →ₛₗ[σ₁₂] P₂) (r • m) : N →ₛₗ[σ₁₂] P₂) : (a : N) → P₂) n : P₂)
    ((((f' : (a : M) → N →ₛₗ[σ₁₂] P₂) m : N →ₛₗ[σ₁₂] P₂) : (a : N) → P₂) (r • n) : P₂)
have rw : HSMul.hSMul.{u_2, u_17, u_17} (α := R₂) (β := P₂) ((σ₁₂ : (a : R) → R₂) r : R₂)
    ((((f' : (a : M) → N →ₛₗ[σ₁₂] P₂) m : N →ₛₗ[σ₁₂] P₂) : (a : N) → P₂) n : P₂) =
  (((f' : (a : M) → N →ₛₗ[σ₁₂] P₂) m : N →ₛₗ[σ₁₂] P₂) : (a : N) → P₂) (r • n)
Tactic: rw [LinearMap.map_smulₛₗ₂, map_smulₛₗ]
-- Lean 4 proof step from Mathlib.LinearAlgebra.TensorProduct.Basic (goal)
Goal:
R : Type u_1
R₂ : Type u_2
R₃ : Type u_3
R' : Type u_4
R'' : Type u_5
inst : CommSemiring R
inst_1 : CommSemiring R₂
inst_2 : CommSemiring R₃
inst_3 : Monoid R'
inst_4 : Semiring R''
σ₁₂ : R →+* R₂
σ₂₃ : R₂ →+* R₃
σ₁₃ : R →+* R₃
A : Type u_6
M : Type u_7
N : Type u_8
P : Type u_9
Q : Type u_10
S : Type u_11
M₂ : Type u_12
M₃ : Type u_13
N₂ : Type u_14
N₃ : Type u_15
P' : Type u_16
P₂ : Type u_17
P₃ : Type u_18
Q' : Type u_19
Q₂ : Type u_20
Q₃ : Type u_21
inst_5 : AddCommMonoid M
inst_6 : AddCommMonoid N
inst_7 : AddCommMonoid P
inst_8 : AddCommMonoid Q
inst_9 : AddCommMonoid S
inst_10 : AddCommMonoid P'
inst_11 : AddCommMonoid Q'
inst_12 : AddCommMonoid M₂
inst_13 : AddCommMonoid N₂
inst_14 : AddCommMonoid P₂
inst_15 : AddCommMonoid Q₂
inst_16 : AddCommMonoid M₃
inst_17 : AddCommMonoid N₃
inst_18 : AddCommMonoid P₃
inst_19 : AddCommMonoid Q₃
inst_20 : DistribMulAction R' M
inst_21 : Module R'' M
inst_22 : Module R M
inst_23 : Module R N
inst_24 : Module R S
inst_25 : Module R P'
inst_26 : Module R Q'
inst_27 : Module R₂ M₂
inst_28 : Module R₂ N₂
inst_29 : Module R₂ P₂
inst_30 : Module R₂ Q₂
inst_31 : Module R₃ M₃
inst_32 : Module R₃ N₃
inst_33 : Module R₃ P₃
inst_34 : Module R₃ Q₃
inst_35 : Module R P
inst_36 : Module R Q
f : M →ₗ[R] N →ₗ[R] P
f' : M →ₛₗ[σ₁₂] N →ₛₗ[σ₁₂] P₂
r : R
m : M
n : N
rw :
  HSMul.hSMul.{u_2, u_17, u_17} (α := R₂) (β := P₂) ((σ₁₂ : (a : R) → R₂) r : R₂)
      ((((f' : (a : M) → N →ₛₗ[σ₁₂] P₂) m : N →ₛₗ[σ₁₂] P₂) : (a : N) → P₂) n : P₂) =
    (((f' : (a : M) → N →ₛₗ[σ₁₂] P₂) m : N →ₛₗ[σ₁₂] P₂) : (a : N) → P₂) (r • n)
⊢ Eq.{u_17 + 1} (α := P₂) ((((f' : (a : M) → N →ₛₗ[σ₁₂] P₂) (r • m) : N →ₛₗ[σ₁₂] P₂) : (a : N) → P₂) n : P₂)
    ((((f' : (a : M) → N →ₛₗ[σ₁₂] P₂) m : N →ₛₗ[σ₁₂] P₂) : (a : N) → P₂) (r • n) : P₂)
have rw₁ : HSMul.hSMul.{u_2, u_17, u_17} (α := R₂) (β := P₂) ((σ₁₂ : (a : R) → R₂) r : R₂)
    ((((f' : (a : M) → N →ₛₗ[σ₁₂] P₂) m : N →ₛₗ[σ₁₂] P₂) : (a : N) → P₂) n : P₂) =
  HSMul.hSMul.{u_2, u_17, u_17} (α := R₂) (β := P₂) ((σ₁₂ : (a : R) → R₂) r : R₂)
    ((((f' : (a : M) → N →ₛₗ[σ₁₂] P₂) m : N →ₛₗ[σ₁₂] P₂) : (a : N) → P₂) n : P₂)
Tactic: rw [LinearMap.map_smulₛₗ₂, map_smulₛₗ]
-- Lean 4 proof step from Mathlib.LinearAlgebra.TensorProduct.Basic (goal)
Goal:
R : Type u_1
R₂ : Type u_2
inst : CommSemiring R
inst_1 : CommSemiring R₂
σ₁₂ : R →+* R₂
M : Type u_7
N : Type u_8
P₂ : Type u_17
inst_2 : AddCommMonoid M
inst_3 : AddCommMonoid N
inst_4 : AddCommMonoid P₂
inst_5 : Module R M
inst_6 : Module R N
inst_7 : Module R₂ P₂
f' : M →ₛₗ[σ₁₂] N →ₛₗ[σ₁₂] P₂
r : R
x : M ⊗[R] N
p : M
q : N
⊢ (liftAux f' : (a : M ⊗[R] N) → P₂) (HSMul.hSMul (β := M ⊗[R] N) r (p ⊗ₜ[R] q)) =
    HSMul.hSMul.{u_2, u_17, u_17} (α := R₂) (β := P₂) ((σ₁₂ : (a : R) → R₂) r : R₂)
      ((liftAux f' : (a : M ⊗[R] N) → P₂) (p ⊗ₜ[R] q) : P₂)
have simp_rw : (liftAux f' : (a : M ⊗[R] N) → P₂) (p ⊗ₜ[R] (r • q)) =
  HSMul.hSMul.{u_2, u_17, u_17} (α := R₂) (β := P₂) ((σ₁₂ : (a : R) → R₂) r : R₂)
    ((liftAux f' : (a : M ⊗[R] N) → P₂) (p ⊗ₜ[R] q) : P₂)
Tactic: simp_rw [← tmul_smul, liftAux_tmul, (f' p).map_smulₛₗ]
-- Lean 4 proof step from Mathlib.LinearAlgebra.TensorProduct.Basic (goal)
Goal:
R : Type u_1
R₂ : Type u_2
inst : CommSemiring R
inst_1 : CommSemiring R₂
σ₁₂ : R →+* R₂
M : Type u_7
N : Type u_8
P₂ : Type u_17
inst_2 : AddCommMonoid M
inst_3 : AddCommMonoid N
inst_4 : AddCommMonoid P₂
inst_5 : Module R M
inst_6 : Module R N
inst_7 : Module R₂ P₂
f' : M →ₛₗ[σ₁₂] N →ₛₗ[σ₁₂] P₂
r : R
x : M ⊗[R] N
p : M
q : N
simp_rw :
  (liftAux f' : (a : M ⊗[R] N) → P₂) (p ⊗ₜ[R] (r • q)) =
    HSMul.hSMul.{u_2, u_17, u_17} (α := R₂) (β := P₂) ((σ₁₂ : (a : R) → R₂) r : R₂)
      ((liftAux f' : (a : M ⊗[R] N) → P₂) (p ⊗ₜ[R] q) : P₂)
⊢ (liftAux f' : (a : M ⊗[R] N) → P₂) (HSMul.hSMul (β := M ⊗[R] N) r (p ⊗ₜ[R] q)) =
    HSMul.hSMul.{u_2, u_17, u_17} (α := R₂) (β := P₂) ((σ₁₂ : (a : R) → R₂) r : R₂)
      ((liftAux f' : (a : M ⊗[R] N) → P₂) (p ⊗ₜ[R] q) : P₂)
have simp_rw₁ : (((f' : (a : M) → N →ₛₗ[σ₁₂] P₂) p : N →ₛₗ[σ₁₂] P₂) : (a : N) → P₂) (r • q) =
  HSMul.hSMul.{u_2, u_17, u_17} (α := R₂) (β := P₂) ((σ₁₂ : (a : R) → R₂) r : R₂)
    ((((f' : (a : M) → N →ₛₗ[σ₁₂] P₂) p : N →ₛₗ[σ₁₂] P₂) : (a : N) → P₂) q : P₂)
Tactic: simp_rw [← tmul_smul, liftAux_tmul, (f' p).map_smulₛₗ]
-- Lean 4 proof step from Mathlib.LinearAlgebra.TensorProduct.Basic (goal)
Goal:
R : Type u_1
R₂ : Type u_2
inst : CommSemiring R
inst_1 : CommSemiring R₂
σ₁₂ : R →+* R₂
M : Type u_7
N : Type u_8
P₂ : Type u_17
inst_2 : AddCommMonoid M
inst_3 : AddCommMonoid N
inst_4 : AddCommMonoid P₂
inst_5 : Module R M
inst_6 : Module R N
inst_7 : Module R₂ P₂
f' : M →ₛₗ[σ₁₂] N →ₛₗ[σ₁₂] P₂
r : R
x p q : M ⊗[R] N
ih1 :
  (liftAux f' : (a : M ⊗[R] N) → P₂) (r • p) =
    HSMul.hSMul.{u_2, u_17, u_17} (α := R₂) (β := P₂) ((σ₁₂ : (a : R) → R₂) r : R₂)
      ((liftAux f' : (a : M ⊗[R] N) → P₂) p : P₂)
ih2 :
  (liftAux f' : (a : M ⊗[R] N) → P₂) (r • q) =
    HSMul.hSMul.{u_2, u_17, u_17} (α := R₂) (β := P₂) ((σ₁₂ : (a : R) → R₂) r : R₂)
      ((liftAux f' : (a : M ⊗[R] N) → P₂) q : P₂)
⊢ (liftAux f' : (a : M ⊗[R] N) → P₂) (r • (p + q)) =
    HSMul.hSMul.{u_2, u_17, u_17} (α := R₂) (β := P₂) ((σ₁₂ : (a : R) → R₂) r : R₂)
      ((liftAux f' : (a : M ⊗[R] N) → P₂) (p + q) : P₂)
have simp_rw : (liftAux f' : (a : M ⊗[R] N) → P₂) (r • p + r • q) =
  HSMul.hSMul.{u_2, u_17, u_17} (α := R₂) (β := P₂) ((σ₁₂ : (a : R) → R₂) r : R₂)
    ((liftAux f' : (a : M ⊗[R] N) → P₂) (p + q) : P₂)
Tactic: simp_rw [smul_add, (liftAux f').map_add, ih1, ih2, smul_add]
-- Lean 4 proof step from Mathlib.LinearAlgebra.TensorProduct.Basic (goal)
Goal:
R : Type u_1
R₂ : Type u_2
inst : CommSemiring R
inst_1 : CommSemiring R₂
σ₁₂ : R →+* R₂
M : Type u_7
N : Type u_8
P₂ : Type u_17
inst_2 : AddCommMonoid M
inst_3 : AddCommMonoid N
inst_4 : AddCommMonoid P₂
inst_5 : Module R M
inst_6 : Module R N
inst_7 : Module R₂ P₂
f' : M →ₛₗ[σ₁₂] N →ₛₗ[σ₁₂] P₂
r : R
x p q : M ⊗[R] N
ih1 :
  (liftAux f' : (a : M ⊗[R] N) → P₂) (r • p) =
    HSMul.hSMul.{u_2, u_17, u_17} (α := R₂) (β := P₂) ((σ₁₂ : (a : R) → R₂) r : R₂)
      ((liftAux f' : (a : M ⊗[R] N) → P₂) p : P₂)
ih2 :
  (liftAux f' : (a : M ⊗[R] N) → P₂) (r • q) =
    HSMul.hSMul.{u_2, u_17, u_17} (α := R₂) (β := P₂) ((σ₁₂ : (a : R) → R₂) r : R₂)
      ((liftAux f' : (a : M ⊗[R] N) → P₂) q : P₂)
simp_rw :
  (liftAux f' : (a : M ⊗[R] N) → P₂) (r • p + r • q) =
    HSMul.hSMul.{u_2, u_17, u_17} (α := R₂) (β := P₂) ((σ₁₂ : (a : R) → R₂) r : R₂)
      ((liftAux f' : (a : M ⊗[R] N) → P₂) (p + q) : P₂)
⊢ (liftAux f' : (a : M ⊗[R] N) → P₂) (r • (p + q)) =
    HSMul.hSMul.{u_2, u_17, u_17} (α := R₂) (β := P₂) ((σ₁₂ : (a : R) → R₂) r : R₂)
      ((liftAux f' : (a : M ⊗[R] N) → P₂) (p + q) : P₂)
have simp_rw₁ : HAdd.hAdd (α := P₂) (β := P₂) ((liftAux f' : (a : M ⊗[R] N) → P₂) (r • p) : P₂)
    ((liftAux f' : (a : M ⊗[R] N) → P₂) (r • q) : P₂) =
  HSMul.hSMul.{u_2, u_17, u_17} (α := R₂) ((σ₁₂ : (a : R) → R₂) r : R₂)
    (HAdd.hAdd (α := P₂) (β := P₂) ((liftAux f' : (a : M ⊗[R] N) → P₂) p : P₂)
      ((liftAux f' : (a : M ⊗[R] N) → P₂) q : P₂))
Tactic: simp_rw [smul_add, (liftAux f').map_add, ih1, ih2, smul_add]
-- Lean 4 proof step from Mathlib.LinearAlgebra.TensorProduct.Basic (goal)
Goal:
R : Type u_1
R₂ : Type u_2
inst : CommSemiring R
inst_1 : CommSemiring R₂
σ₁₂ : R →+* R₂
M : Type u_7
N : Type u_8
P₂ : Type u_17
inst_2 : AddCommMonoid M
inst_3 : AddCommMonoid N
inst_4 : AddCommMonoid P₂
inst_5 : Module R M
inst_6 : Module R N
inst_7 : Module R₂ P₂
f' : M →ₛₗ[σ₁₂] N →ₛₗ[σ₁₂] P₂
r : R
x p q : M ⊗[R] N
ih1 :
  (liftAux f' : (a : M ⊗[R] N) → P₂) (r • p) =
    HSMul.hSMul.{u_2, u_17, u_17} (α := R₂) (β := P₂) ((σ₁₂ : (a : R) → R₂) r : R₂)
      ((liftAux f' : (a : M ⊗[R] N) → P₂) p : P₂)
ih2 :
  (liftAux f' : (a : M ⊗[R] N) → P₂) (r • q) =
    HSMul.hSMul.{u_2, u_17, u_17} (α := R₂) (β := P₂) ((σ₁₂ : (a : R) → R₂) r : R₂)
      ((liftAux f' : (a : M ⊗[R] N) → P₂) q : P₂)
simp_rw :
  (liftAux f' : (a : M ⊗[R] N) → P₂) (r • p + r • q) =
    HSMul.hSMul.{u_2, u_17, u_17} (α := R₂) (β := P₂) ((σ₁₂ : (a : R) → R₂) r : R₂)
      ((liftAux f' : (a : M ⊗[R] N) → P₂) (p + q) : P₂)
simp_rw₁ :
  HAdd.hAdd (α := P₂) (β := P₂) ((liftAux f' : (a : M ⊗[R] N) → P₂) (r • p) : P₂)
      ((liftAux f' : (a : M ⊗[R] N) → P₂) (r • q) : P₂) =
    HSMul.hSMul.{u_2, u_17, u_17} (α := R₂) ((σ₁₂ : (a : R) → R₂) r : R₂)
      (HAdd.hAdd (α := P₂) (β := P₂) ((liftAux f' : (a : M ⊗[R] N) → P₂) p : P₂)
        ((liftAux f' : (a : M ⊗[R] N) → P₂) q : P₂))
⊢ (liftAux f' : (a : M ⊗[R] N) → P₂) (r • (p + q)) =
    HSMul.hSMul.{u_2, u_17, u_17} (α := R₂) (β := P₂) ((σ₁₂ : (a : R) → R₂) r : R₂)
      ((liftAux f' : (a : M ⊗[R] N) → P₂) (p + q) : P₂)
have simp_rw₂ : HAdd.hAdd (β := P₂)
    (HSMul.hSMul.{u_2, u_17, u_17} (α := R₂) (β := P₂) ((σ₁₂ : (a : R) → R₂) r : R₂)
      ((liftAux f' : (a : M ⊗[R] N) → P₂) p : P₂))
    ((liftAux f' : (a : M ⊗[R] N) → P₂) (r • q) : P₂) =
  HSMul.hSMul.{u_2, u_17, u_17} (α := R₂) ((σ₁₂ : (a : R) → R₂) r : R₂)
    (HAdd.hAdd (α := P₂) (β := P₂) ((liftAux f' : (a : M ⊗[R] N) → P₂) p : P₂)
      ((liftAux f' : (a : M ⊗[R] N) → P₂) q : P₂))
Tactic: simp_rw [smul_add, (liftAux f').map_add, ih1, ih2, smul_add]
-- Lean 4 proof step from Mathlib.LinearAlgebra.TensorProduct.Basic (goal)
Goal:
R : Type u_1
R₂ : Type u_2
inst : CommSemiring R
inst_1 : CommSemiring R₂
σ₁₂ : R →+* R₂
M : Type u_7
N : Type u_8
P₂ : Type u_17
inst_2 : AddCommMonoid M
inst_3 : AddCommMonoid N
inst_4 : AddCommMonoid P₂
inst_5 : Module R M
inst_6 : Module R N
inst_7 : Module R₂ P₂
f' : M →ₛₗ[σ₁₂] N →ₛₗ[σ₁₂] P₂
r : R
x p q : M ⊗[R] N
ih1 :
  (liftAux f' : (a : M ⊗[R] N) → P₂) (r • p) =
    HSMul.hSMul.{u_2, u_17, u_17} (α := R₂) (β := P₂) ((σ₁₂ : (a : R) → R₂) r : R₂)
      ((liftAux f' : (a : M ⊗[R] N) → P₂) p : P₂)
ih2 :
  (liftAux f' : (a : M ⊗[R] N) → P₂) (r • q) =
    HSMul.hSMul.{u_2, u_17, u_17} (α := R₂) (β := P₂) ((σ₁₂ : (a : R) → R₂) r : R₂)
      ((liftAux f' : (a : M ⊗[R] N) → P₂) q : P₂)
simp_rw :
  (liftAux f' : (a : M ⊗[R] N) → P₂) (r • p + r • q) =
    HSMul.hSMul.{u_2, u_17, u_17} (α := R₂) (β := P₂) ((σ₁₂ : (a : R) → R₂) r : R₂)
      ((liftAux f' : (a : M ⊗[R] N) → P₂) (p + q) : P₂)
simp_rw₁ :
  HAdd.hAdd (α := P₂) (β := P₂) ((liftAux f' : (a : M ⊗[R] N) → P₂) (r • p) : P₂)
      ((liftAux f' : (a : M ⊗[R] N) → P₂) (r • q) : P₂) =
    HSMul.hSMul.{u_2, u_17, u_17} (α := R₂) ((σ₁₂ : (a : R) → R₂) r : R₂)
      (HAdd.hAdd (α := P₂) (β := P₂) ((liftAux f' : (a : M ⊗[R] N) → P₂) p : P₂)
        ((liftAux f' : (a : M ⊗[R] N) → P₂) q : P₂))
simp_rw₂ :
  HAdd.hAdd (β := P₂)
      (HSMul.hSMul.{u_2, u_17, u_17} (α := R₂) (β := P₂) ((σ₁₂ : (a : R) → R₂) r : R₂)
        ((liftAux f' : (a : M ⊗[R] N) → P₂) p : P₂))
      ((liftAux f' : (a : M ⊗[R] N) → P₂) (r • q) : P₂) =
    HSMul.hSMul.{u_2, u_17, u_17} (α := R₂) ((σ₁₂ : (a : R) → R₂) r : R₂)
      (HAdd.hAdd (α := P₂) (β := P₂) ((liftAux f' : (a : M ⊗[R] N) → P₂) p : P₂)
        ((liftAux f' : (a : M ⊗[R] N) → P₂) q : P₂))
⊢ (liftAux f' : (a : M ⊗[R] N) → P₂) (r • (p + q)) =
    HSMul.hSMul.{u_2, u_17, u_17} (α := R₂) (β := P₂) ((σ₁₂ : (a : R) → R₂) r : R₂)
      ((liftAux f' : (a : M ⊗[R] N) → P₂) (p + q) : P₂)
have simp_rw₃ : HSMul.hSMul.{u_2, u_17, u_17} (α := R₂) (β := P₂) ((σ₁₂ : (a : R) → R₂) r : R₂)
      ((liftAux f' : (a : M ⊗[R] N) → P₂) p : P₂) +
    HSMul.hSMul.{u_2, u_17, u_17} (α := R₂) (β := P₂) ((σ₁₂ : (a : R) → R₂) r : R₂)
      ((liftAux f' : (a : M ⊗[R] N) → P₂) q : P₂) =
  HSMul.hSMul.{u_2, u_17, u_17} (α := R₂) ((σ₁₂ : (a : R) → R₂) r : R₂)
    (HAdd.hAdd (α := P₂) (β := P₂) ((liftAux f' : (a : M ⊗[R] N) → P₂) p : P₂)
      ((liftAux f' : (a : M ⊗[R] N) → P₂) q : P₂))
Tactic: simp_rw [smul_add, (liftAux f').map_add, ih1, ih2, smul_add]
-- Lean 4 proof step from Mathlib.LinearAlgebra.TensorProduct.Basic (goal)
Goal:
R : Type u_1
R₂ : Type u_2
inst : CommSemiring R
inst_1 : CommSemiring R₂
σ₁₂ : R →+* R₂
M : Type u_7
N : Type u_8
P₂ : Type u_17
inst_2 : AddCommMonoid M
inst_3 : AddCommMonoid N
inst_4 : AddCommMonoid P₂
inst_5 : Module R M
inst_6 : Module R N
inst_7 : Module R₂ P₂
g h : M ⊗[R] N →ₛₗ[σ₁₂] P₂
H :
  ∀ (x : M) (y : N),
    Eq.{u_17 + 1} (α := P₂) ((g : (a : M ⊗[R] N) → P₂) (x ⊗ₜ[R] y) : P₂) ((h : (a : M ⊗[R] N) → P₂) (x ⊗ₜ[R] y) : P₂)
z x y : M ⊗[R] N
ihx : Eq.{u_17 + 1} (α := P₂) ((g : (a : M ⊗[R] N) → P₂) x : P₂) ((h : (a : M ⊗[R] N) → P₂) x : P₂)
ihy : Eq.{u_17 + 1} (α := P₂) ((g : (a : M ⊗[R] N) → P₂) y : P₂) ((h : (a : M ⊗[R] N) → P₂) y : P₂)
⊢ Eq.{u_17 + 1} (α := P₂) ((g : (a : M ⊗[R] N) → P₂) (x + y) : P₂) ((h : (a : M ⊗[R] N) → P₂) (x + y) : P₂)
have rw : HAdd.hAdd (α := P₂) (β := P₂) ((g : (a : M ⊗[R] N) → P₂) x : P₂) ((g : (a : M ⊗[R] N) → P₂) y : P₂) =
  (h : (a : M ⊗[R] N) → P₂) (x + y)
Tactic: rw [g.map_add, h.map_add, ihx, ihy]
-- Lean 4 proof step from Mathlib.LinearAlgebra.TensorProduct.Basic (goal)
Goal:
R : Type u_1
R₂ : Type u_2
inst : CommSemiring R
inst_1 : CommSemiring R₂
σ₁₂ : R →+* R₂
M : Type u_7
N : Type u_8
P₂ : Type u_17
inst_2 : AddCommMonoid M
inst_3 : AddCommMonoid N
inst_4 : AddCommMonoid P₂
inst_5 : Module R M
inst_6 : Module R N
inst_7 : Module R₂ P₂
g h : M ⊗[R] N →ₛₗ[σ₁₂] P₂
H :
  ∀ (x : M) (y : N),
    Eq.{u_17 + 1} (α := P₂) ((g : (a : M ⊗[R] N) → P₂) (x ⊗ₜ[R] y) : P₂) ((h : (a : M ⊗[R] N) → P₂) (x ⊗ₜ[R] y) : P₂)
z x y : M ⊗[R] N
ihx : Eq.{u_17 + 1} (α := P₂) ((g : (a : M ⊗[R] N) → P₂) x : P₂) ((h : (a : M ⊗[R] N) → P₂) x : P₂)
ihy : Eq.{u_17 + 1} (α := P₂) ((g : (a : M ⊗[R] N) → P₂) y : P₂) ((h : (a : M ⊗[R] N) → P₂) y : P₂)
rw :
  HAdd.hAdd (α := P₂) (β := P₂) ((g : (a : M ⊗[R] N) → P₂) x : P₂) ((g : (a : M ⊗[R] N) → P₂) y : P₂) =
    (h : (a : M ⊗[R] N) → P₂) (x + y)
⊢ Eq.{u_17 + 1} (α := P₂) ((g : (a : M ⊗[R] N) → P₂) (x + y) : P₂) ((h : (a : M ⊗[R] N) → P₂) (x + y) : P₂)
have rw₁ : HAdd.hAdd (α := P₂) (β := P₂) ((g : (a : M ⊗[R] N) → P₂) x : P₂) ((g : (a : M ⊗[R] N) → P₂) y : P₂) =
  HAdd.hAdd (α := P₂) (β := P₂) ((h : (a : M ⊗[R] N) → P₂) x : P₂) ((h : (a : M ⊗[R] N) → P₂) y : P₂)
Tactic: rw [g.map_add, h.map_add, ihx, ihy]
-- Lean 4 proof step from Mathlib.LinearAlgebra.TensorProduct.Basic (goal)
Goal:
R : Type u_1
R₂ : Type u_2
inst : CommSemiring R
inst_1 : CommSemiring R₂
σ₁₂ : R →+* R₂
M : Type u_7
N : Type u_8
P₂ : Type u_17
inst_2 : AddCommMonoid M
inst_3 : AddCommMonoid N
inst_4 : AddCommMonoid P₂
inst_5 : Module R M
inst_6 : Module R N
inst_7 : Module R₂ P₂
g h : M ⊗[R] N →ₛₗ[σ₁₂] P₂
H :
  ∀ (x : M) (y : N),
    Eq.{u_17 + 1} (α := P₂) ((g : (a : M ⊗[R] N) → P₂) (x ⊗ₜ[R] y) : P₂) ((h : (a : M ⊗[R] N) → P₂) (x ⊗ₜ[R] y) : P₂)
z x y : M ⊗[R] N
ihx : Eq.{u_17 + 1} (α := P₂) ((g : (a : M ⊗[R] N) → P₂) x : P₂) ((h : (a : M ⊗[R] N) → P₂) x : P₂)
ihy : Eq.{u_17 + 1} (α := P₂) ((g : (a : M ⊗[R] N) → P₂) y : P₂) ((h : (a : M ⊗[R] N) → P₂) y : P₂)
rw :
  HAdd.hAdd (α := P₂) (β := P₂) ((g : (a : M ⊗[R] N) → P₂) x : P₂) ((g : (a : M ⊗[R] N) → P₂) y : P₂) =
    (h : (a : M ⊗[R] N) → P₂) (x + y)
rw₁ :
  HAdd.hAdd (α := P₂) (β := P₂) ((g : (a : M ⊗[R] N) → P₂) x : P₂) ((g : (a : M ⊗[R] N) → P₂) y : P₂) =
    HAdd.hAdd (α := P₂) (β := P₂) ((h : (a : M ⊗[R] N) → P₂) x : P₂) ((h : (a : M ⊗[R] N) → P₂) y : P₂)
⊢ Eq.{u_17 + 1} (α := P₂) ((g : (a : M ⊗[R] N) → P₂) (x + y) : P₂) ((h : (a : M ⊗[R] N) → P₂) (x + y) : P₂)
have rw₂ : HAdd.hAdd (α := P₂) (β := P₂) ((h : (a : M ⊗[R] N) → P₂) x : P₂) ((g : (a : M ⊗[R] N) → P₂) y : P₂) =
  HAdd.hAdd (α := P₂) (β := P₂) ((h : (a : M ⊗[R] N) → P₂) x : P₂) ((h : (a : M ⊗[R] N) → P₂) y : P₂)
Tactic: rw [g.map_add, h.map_add, ihx, ihy]
-- Lean 4 proof step from Mathlib.LinearAlgebra.TensorProduct.Basic (goal)
Goal:
R : Type u_1
R₂ : Type u_2
inst : CommSemiring R
inst_1 : CommSemiring R₂
σ₁₂ : R →+* R₂
M : Type u_7
N : Type u_8
P₂ : Type u_17
inst_2 : AddCommMonoid M
inst_3 : AddCommMonoid N
inst_4 : AddCommMonoid P₂
inst_5 : Module R M
inst_6 : Module R N
inst_7 : Module R₂ P₂
g h : M ⊗[R] N →ₛₗ[σ₁₂] P₂
H :
  ∀ (x : M) (y : N),
    Eq.{u_17 + 1} (α := P₂) ((g : (a : M ⊗[R] N) → P₂) (x ⊗ₜ[R] y) : P₂) ((h : (a : M ⊗[R] N) → P₂) (x ⊗ₜ[R] y) : P₂)
z x y : M ⊗[R] N
ihx : Eq.{u_17 + 1} (α := P₂) ((g : (a : M ⊗[R] N) → P₂) x : P₂) ((h : (a : M ⊗[R] N) → P₂) x : P₂)
ihy : Eq.{u_17 + 1} (α := P₂) ((g : (a : M ⊗[R] N) → P₂) y : P₂) ((h : (a : M ⊗[R] N) → P₂) y : P₂)
rw :
  HAdd.hAdd (α := P₂) (β := P₂) ((g : (a : M ⊗[R] N) → P₂) x : P₂) ((g : (a : M ⊗[R] N) → P₂) y : P₂) =
    (h : (a : M ⊗[R] N) → P₂) (x + y)
rw₁ :
  HAdd.hAdd (α := P₂) (β := P₂) ((g : (a : M ⊗[R] N) → P₂) x : P₂) ((g : (a : M ⊗[R] N) → P₂) y : P₂) =
    HAdd.hAdd (α := P₂) (β := P₂) ((h : (a : M ⊗[R] N) → P₂) x : P₂) ((h : (a : M ⊗[R] N) → P₂) y : P₂)
rw₂ :
  HAdd.hAdd (α := P₂) (β := P₂) ((h : (a : M ⊗[R] N) → P₂) x : P₂) ((g : (a : M ⊗[R] N) → P₂) y : P₂) =
    HAdd.hAdd (α := P₂) (β := P₂) ((h : (a : M ⊗[R] N) → P₂) x : P₂) ((h : (a : M ⊗[R] N) → P₂) y : P₂)
⊢ Eq.{u_17 + 1} (α := P₂) ((g : (a : M ⊗[R] N) → P₂) (x + y) : P₂) ((h : (a : M ⊗[R] N) → P₂) (x + y) : P₂)
have rw₃ : HAdd.hAdd (α := P₂) (β := P₂) ((h : (a : M ⊗[R] N) → P₂) x : P₂) ((h : (a : M ⊗[R] N) → P₂) y : P₂) =
  HAdd.hAdd (α := P₂) (β := P₂) ((h : (a : M ⊗[R] N) → P₂) x : P₂) ((h : (a : M ⊗[R] N) → P₂) y : P₂)
Tactic: rw [g.map_add, h.map_add, ihx, ihy]