awhecmu/canonical-drafter-extract-mathlib huggingface dataset:
-- Lean 4 proof step from Mathlib.RingTheory.Coalgebra.TensorProduct (goal)
Goal:
R : Type u_1
S : Type u_2
A : Type u_3
B : Type u_4
inst : CommSemiring R
inst_1 : CommSemiring S
inst_2 : AddCommMonoid A
inst_3 : AddCommMonoid B
inst_4 : Algebra R S
inst_5 : Module R A
inst_6 : Module S A
inst_7 : Module R B
inst_8 : IsScalarTower R S A
inst_9 : Coalgebra R B
inst_10 : Coalgebra S A
x : A
y : B
⊢ Eq (α := A ⊗[R] B ⊗[S] S)
    (((((AlgebraTensorModule.curry (LinearMap.lTensor (A ⊗[R] B) counit ∘ₗ comul) : A →ₗ[S] B →ₗ[R] A ⊗[R] B ⊗[S] S) :
                (a : A) → B →ₗ[R] A ⊗[R] B ⊗[S] S)
              x :
            B →ₗ[R] A ⊗[R] B ⊗[S] S) :
          (a : B) → A ⊗[R] B ⊗[S] S)
        y :
      A ⊗[R] B ⊗[S] S)
    (((((AlgebraTensorModule.curry ((LinearMap.flip (mk S (A ⊗[R] B) S) : (a : S) → A ⊗[R] B →ₗ[S] A ⊗[R] B ⊗[S] S) 1) :
                  A →ₗ[S] B →ₗ[R] A ⊗[R] B ⊗[S] S) :
                (a : A) → B →ₗ[R] A ⊗[R] B ⊗[S] S)
              x :
            B →ₗ[R] A ⊗[R] B ⊗[S] S) :
          (a : B) → A ⊗[R] B ⊗[S] S)
        y :
      A ⊗[R] B ⊗[S] S)
have h : Eq (α := A ⊗[R] B ⊗[S] S)
  (((((AlgebraTensorModule.curry (LinearMap.lTensor (A ⊗[R] B) counit ∘ₗ comul) : A →ₗ[S] B →ₗ[R] A ⊗[R] B ⊗[S] S) :
              (a : A) → B →ₗ[R] A ⊗[R] B ⊗[S] S)
            x :
          B →ₗ[R] A ⊗[R] B ⊗[S] S) :
        (a : B) → A ⊗[R] B ⊗[S] S)
      y :
    A ⊗[R] B ⊗[S] S)
  ((LinearEquiv.symm (TensorProduct.rid S (A ⊗[R] B)) : (a : A ⊗[R] B) → A ⊗[R] B ⊗[S] S)
      ((TensorProduct.rid S A : (a : A ⊗[S] S) → A)
          ((LinearMap.lTensor A counit : (a : A ⊗[S] A) → A ⊗[S] S) ((comul : (a : A) → A ⊗[S] A) x) : A ⊗[S] S) ⊗ₜ[R]
        (TensorProduct.rid R B : (a : B ⊗[R] R) → B)
          ((LinearMap.lTensor B counit : (a : B ⊗[R] B) → B ⊗[R] R) ((comul : (a : B) → B ⊗[R] B) y) : B ⊗[R] R)) :
    A ⊗[R] B ⊗[S] S)
Tactic: convert!
      congr((TensorProduct.rid S _).symm
        (TensorProduct.rid _ _ $(lTensor_counit_comul (R := S) x) ⊗ₜ[R]
          TensorProduct.rid _ _ $(lTensor_counit_comul (R := R) y)))
-- Lean 4 proof step from Mathlib.RingTheory.Coalgebra.TensorProduct (goal)
Goal:
R : Type u_1
S : Type u_2
A : Type u_3
B : Type u_4
inst : CommSemiring R
inst_1 : CommSemiring S
inst_2 : AddCommMonoid A
inst_3 : AddCommMonoid B
inst_4 : Algebra R S
inst_5 : Module R A
inst_6 : Module S A
inst_7 : Module R B
inst_8 : IsScalarTower R S A
inst_9 : Coalgebra R B
inst_10 : Coalgebra S A
x : A
y : B
h :
  Eq (α := A ⊗[R] B ⊗[S] S)
    (((((AlgebraTensorModule.curry (LinearMap.lTensor (A ⊗[R] B) counit ∘ₗ comul) : A →ₗ[S] B →ₗ[R] A ⊗[R] B ⊗[S] S) :
                (a : A) → B →ₗ[R] A ⊗[R] B ⊗[S] S)
              x :
            B →ₗ[R] A ⊗[R] B ⊗[S] S) :
          (a : B) → A ⊗[R] B ⊗[S] S)
        y :
      A ⊗[R] B ⊗[S] S)
    ((LinearEquiv.symm (TensorProduct.rid S (A ⊗[R] B)) : (a : A ⊗[R] B) → A ⊗[R] B ⊗[S] S)
        ((TensorProduct.rid S A : (a : A ⊗[S] S) → A)
            ((LinearMap.lTensor A counit : (a : A ⊗[S] A) → A ⊗[S] S) ((comul : (a : A) → A ⊗[S] A) x) : A ⊗[S] S) ⊗ₜ[R]
          (TensorProduct.rid R B : (a : B ⊗[R] R) → B)
            ((LinearMap.lTensor B counit : (a : B ⊗[R] B) → B ⊗[R] R) ((comul : (a : B) → B ⊗[R] B) y) : B ⊗[R] R)) :
      A ⊗[R] B ⊗[S] S)
⊢ Eq (α := A ⊗[R] B ⊗[S] S)
    (((((AlgebraTensorModule.curry (LinearMap.lTensor (A ⊗[R] B) counit ∘ₗ comul) : A →ₗ[S] B →ₗ[R] A ⊗[R] B ⊗[S] S) :
                (a : A) → B →ₗ[R] A ⊗[R] B ⊗[S] S)
              x :
            B →ₗ[R] A ⊗[R] B ⊗[S] S) :
          (a : B) → A ⊗[R] B ⊗[S] S)
        y :
      A ⊗[R] B ⊗[S] S)
    (((((AlgebraTensorModule.curry ((LinearMap.flip (mk S (A ⊗[R] B) S) : (a : S) → A ⊗[R] B →ₗ[S] A ⊗[R] B ⊗[S] S) 1) :
                  A →ₗ[S] B →ₗ[R] A ⊗[R] B ⊗[S] S) :
                (a : A) → B →ₗ[R] A ⊗[R] B ⊗[S] S)
              x :
            B →ₗ[R] A ⊗[R] B ⊗[S] S) :
          (a : B) → A ⊗[R] B ⊗[S] S)
        y :
      A ⊗[R] B ⊗[S] S)
have h₁ : Eq (α := A ⊗[R] B ⊗[S] S)
  (((((AlgebraTensorModule.curry ((LinearMap.flip (mk S (A ⊗[R] B) S) : (a : S) → A ⊗[R] B →ₗ[S] A ⊗[R] B ⊗[S] S) 1) :
                A →ₗ[S] B →ₗ[R] A ⊗[R] B ⊗[S] S) :
              (a : A) → B →ₗ[R] A ⊗[R] B ⊗[S] S)
            x :
          B →ₗ[R] A ⊗[R] B ⊗[S] S) :
        (a : B) → A ⊗[R] B ⊗[S] S)
      y :
    A ⊗[R] B ⊗[S] S)
  ((LinearEquiv.symm (TensorProduct.rid S (A ⊗[R] B)) : (a : A ⊗[R] B) → A ⊗[R] B ⊗[S] S)
      ((TensorProduct.rid S A : (a : A ⊗[S] S) → A) (x ⊗ₜ[S] 1) ⊗ₜ[R]
        (TensorProduct.rid R B : (a : B ⊗[R] R) → B) (y ⊗ₜ[R] 1)) :
    A ⊗[R] B ⊗[S] S)
Tactic: convert!
      congr((TensorProduct.rid S _).symm
        (TensorProduct.rid _ _ $(lTensor_counit_comul (R := S) x) ⊗ₜ[R]
          TensorProduct.rid _ _ $(lTensor_counit_comul (R := R) y)))
-- Lean 4 proof step from Mathlib.RingTheory.Coalgebra.TensorProduct (goal)
Goal:
R : Type u_1
S : Type u_2
A : Type u_3
B : Type u_4
inst : CommSemiring R
inst_1 : CommSemiring S
inst_2 : AddCommMonoid A
inst_3 : AddCommMonoid B
inst_4 : Algebra R S
inst_5 : Module R A
inst_6 : Module S A
inst_7 : Module R B
inst_8 : IsScalarTower R S A
inst_9 : Coalgebra R B
inst_10 : Coalgebra S A
x : A
y : B
⊢ Eq (α := A ⊗[R] B ⊗[S] S)
    (((((AlgebraTensorModule.curry (LinearMap.lTensor (A ⊗[R] B) counit ∘ₗ comul) : A →ₗ[S] B →ₗ[R] A ⊗[R] B ⊗[S] S) :
                (a : A) → B →ₗ[R] A ⊗[R] B ⊗[S] S)
              x :
            B →ₗ[R] A ⊗[R] B ⊗[S] S) :
          (a : B) → A ⊗[R] B ⊗[S] S)
        y :
      A ⊗[R] B ⊗[S] S)
    ((LinearEquiv.symm (TensorProduct.rid S (A ⊗[R] B)) : (a : A ⊗[R] B) → A ⊗[R] B ⊗[S] S)
        ((TensorProduct.rid S A : (a : A ⊗[S] S) → A)
            ((LinearMap.lTensor A counit : (a : A ⊗[S] A) → A ⊗[S] S) ((comul : (a : A) → A ⊗[S] A) x) : A ⊗[S] S) ⊗ₜ[R]
          (TensorProduct.rid R B : (a : B ⊗[R] R) → B)
            ((LinearMap.lTensor B counit : (a : B ⊗[R] B) → B ⊗[R] R) ((comul : (a : B) → B ⊗[R] B) y) : B ⊗[R] R)) :
      A ⊗[R] B ⊗[S] S)
have h : Eq (α := A ⊗[R] B ⊗[S] S)
  ((LinearMap.lTensor (A ⊗[R] B) counit : (a : A ⊗[R] B ⊗[S] (A ⊗[R] B)) → A ⊗[R] B ⊗[S] S)
      (((AlgebraTensorModule.tensorTensorTensorComm R S R S A A B B :
            TensorProduct.{u_1, u_3, u_4} R (A ⊗[S] A) (B ⊗[R] B) ≃ₗ[S] A ⊗[R] B ⊗[S] (A ⊗[R] B)) :
          (a : A ⊗[S] A ⊗[R] (B ⊗[R] B)) → A ⊗[R] B ⊗[S] (A ⊗[R] B))
        ((comul : (a : A) → A ⊗[S] A) x ⊗ₜ[R] (comul : (a : B) → B ⊗[R] B) y)) :
    A ⊗[R] B ⊗[S] S)
  ((TensorProduct.rid S A : (a : A ⊗[S] S) → A)
          ((LinearMap.lTensor A counit : (a : A ⊗[S] A) → A ⊗[S] S) ((comul : (a : A) → A ⊗[S] A) x) : A ⊗[S] S) ⊗ₜ[R]
        (TensorProduct.rid R B : (a : B ⊗[R] R) → B)
          ((LinearMap.lTensor B counit : (a : B ⊗[R] B) → B ⊗[R] R) ((comul : (a : B) → B ⊗[R] B) y) : B ⊗[R] R) ⊗ₜ[S]
      1 :
    A ⊗[R] B ⊗[S] S)
Tactic: dsimp
-- Lean 4 proof step from Mathlib.RingTheory.Coalgebra.TensorProduct (goal)
Goal:
R : Type u_1
S : Type u_2
A : Type u_3
B : Type u_4
inst : CommSemiring R
inst_1 : CommSemiring S
inst_2 : AddCommMonoid A
inst_3 : AddCommMonoid B
inst_4 : Algebra R S
inst_5 : Module R A
inst_6 : Module S A
inst_7 : Module R B
inst_8 : IsScalarTower R S A
inst_9 : Coalgebra R B
inst_10 : Coalgebra S A
x : A
y : B
⊢ Eq (α := A ⊗[R] B ⊗[S] S)
    ((LinearMap.lTensor (A ⊗[R] B) counit : (a : A ⊗[R] B ⊗[S] (A ⊗[R] B)) → A ⊗[R] B ⊗[S] S)
        (((AlgebraTensorModule.tensorTensorTensorComm R S R S A A B B :
              TensorProduct.{u_1, u_3, u_4} R (A ⊗[S] A) (B ⊗[R] B) ≃ₗ[S] A ⊗[R] B ⊗[S] (A ⊗[R] B)) :
            (a : A ⊗[S] A ⊗[R] (B ⊗[R] B)) → A ⊗[R] B ⊗[S] (A ⊗[R] B))
          ((comul : (a : A) → A ⊗[S] A) x ⊗ₜ[R] (comul : (a : B) → B ⊗[R] B) y)) :
      A ⊗[R] B ⊗[S] S)
    ((TensorProduct.rid S A : (a : A ⊗[S] S) → A)
            ((LinearMap.lTensor A counit : (a : A ⊗[S] A) → A ⊗[S] S) ((comul : (a : A) → A ⊗[S] A) x) : A ⊗[S] S) ⊗ₜ[R]
          (TensorProduct.rid R B : (a : B ⊗[R] R) → B)
            ((LinearMap.lTensor B counit : (a : B ⊗[R] B) → B ⊗[R] R) ((comul : (a : B) → B ⊗[R] B) y) : B ⊗[R] R) ⊗ₜ[S]
        1 :
      A ⊗[R] B ⊗[S] S)
have h : ∀ (x₁ x₂ : A),
  Eq (α := A ⊗[R] B ⊗[S] S)
    ((LinearMap.lTensor (A ⊗[R] B) counit : (a : A ⊗[R] B ⊗[S] (A ⊗[R] B)) → A ⊗[R] B ⊗[S] S)
        (((AlgebraTensorModule.tensorTensorTensorComm R S R S A A B B :
              TensorProduct.{u_1, u_3, u_4} R (A ⊗[S] A) (B ⊗[R] B) ≃ₗ[S] A ⊗[R] B ⊗[S] (A ⊗[R] B)) :
            (a : A ⊗[S] A ⊗[R] (B ⊗[R] B)) → A ⊗[R] B ⊗[S] (A ⊗[R] B))
          (x₁ ⊗ₜ[S] x₂ ⊗ₜ[R] (comul : (a : B) → B ⊗[R] B) y)) :
      A ⊗[R] B ⊗[S] S)
    ((TensorProduct.rid S A : (a : A ⊗[S] S) → A)
            ((LinearMap.lTensor A counit : (a : A ⊗[S] A) → A ⊗[S] S) (x₁ ⊗ₜ[S] x₂) : A ⊗[S] S) ⊗ₜ[R]
          (TensorProduct.rid R B : (a : B ⊗[R] R) → B)
            ((LinearMap.lTensor B counit : (a : B ⊗[R] B) → B ⊗[R] R) ((comul : (a : B) → B ⊗[R] B) y) : B ⊗[R] R) ⊗ₜ[S]
        1 :
      A ⊗[R] B ⊗[S] S)
Tactic: hopf_tensor_induction comul (R := S) x with x₁ x₂
-- Lean 4 proof step from Mathlib.RingTheory.Coalgebra.TensorProduct (goal)
Goal:
R : Type u_1
S : Type u_2
A : Type u_3
B : Type u_4
inst : CommSemiring R
inst_1 : CommSemiring S
inst_2 : AddCommMonoid A
inst_3 : AddCommMonoid B
inst_4 : Algebra R S
inst_5 : Module R A
inst_6 : Module S A
inst_7 : Module R B
inst_8 : IsScalarTower R S A
inst_9 : Coalgebra R B
inst_10 : Coalgebra S A
x : A
y : B
x₁ x₂ : A
⊢ Eq (α := A ⊗[R] B ⊗[S] S)
    ((LinearMap.lTensor (A ⊗[R] B) counit : (a : A ⊗[R] B ⊗[S] (A ⊗[R] B)) → A ⊗[R] B ⊗[S] S)
        (((AlgebraTensorModule.tensorTensorTensorComm R S R S A A B B :
              TensorProduct.{u_1, u_3, u_4} R (A ⊗[S] A) (B ⊗[R] B) ≃ₗ[S] A ⊗[R] B ⊗[S] (A ⊗[R] B)) :
            (a : A ⊗[S] A ⊗[R] (B ⊗[R] B)) → A ⊗[R] B ⊗[S] (A ⊗[R] B))
          (x₁ ⊗ₜ[S] x₂ ⊗ₜ[R] (comul : (a : B) → B ⊗[R] B) y)) :
      A ⊗[R] B ⊗[S] S)
    ((TensorProduct.rid S A : (a : A ⊗[S] S) → A)
            ((LinearMap.lTensor A counit : (a : A ⊗[S] A) → A ⊗[S] S) (x₁ ⊗ₜ[S] x₂) : A ⊗[S] S) ⊗ₜ[R]
          (TensorProduct.rid R B : (a : B ⊗[R] R) → B)
            ((LinearMap.lTensor B counit : (a : B ⊗[R] B) → B ⊗[R] R) ((comul : (a : B) → B ⊗[R] B) y) : B ⊗[R] R) ⊗ₜ[S]
        1 :
      A ⊗[R] B ⊗[S] S)
have h : ∀ (y₁ y₂ : B),
  Eq (α := A ⊗[R] B ⊗[S] S)
    ((LinearMap.lTensor (A ⊗[R] B) counit : (a : A ⊗[R] B ⊗[S] (A ⊗[R] B)) → A ⊗[R] B ⊗[S] S)
        (((AlgebraTensorModule.tensorTensorTensorComm R S R S A A B B :
              TensorProduct.{u_1, u_3, u_4} R (A ⊗[S] A) (B ⊗[R] B) ≃ₗ[S] A ⊗[R] B ⊗[S] (A ⊗[R] B)) :
            (a : A ⊗[S] A ⊗[R] (B ⊗[R] B)) → A ⊗[R] B ⊗[S] (A ⊗[R] B))
          (x₁ ⊗ₜ[S] x₂ ⊗ₜ[R] (y₁ ⊗ₜ[R] y₂))) :
      A ⊗[R] B ⊗[S] S)
    ((TensorProduct.rid S A : (a : A ⊗[S] S) → A)
            ((LinearMap.lTensor A counit : (a : A ⊗[S] A) → A ⊗[S] S) (x₁ ⊗ₜ[S] x₂) : A ⊗[S] S) ⊗ₜ[R]
          (TensorProduct.rid R B : (a : B ⊗[R] R) → B)
            ((LinearMap.lTensor B counit : (a : B ⊗[R] B) → B ⊗[R] R) (y₁ ⊗ₜ[R] y₂) : B ⊗[R] R) ⊗ₜ[S]
        1 :
      A ⊗[R] B ⊗[S] S)
Tactic: hopf_tensor_induction comul (R := R) y with y₁ y₂
-- Lean 4 proof step from Mathlib.RingTheory.Coalgebra.TensorProduct (goal)
Goal:
R : Type u_1
S : Type u_2
A : Type u_3
B : Type u_4
inst : CommSemiring R
inst_1 : CommSemiring S
inst_2 : AddCommMonoid A
inst_3 : AddCommMonoid B
inst_4 : Algebra R S
inst_5 : Module R A
inst_6 : Module S A
inst_7 : Module R B
inst_8 : IsScalarTower R S A
inst_9 : Coalgebra R B
inst_10 : Coalgebra S A
x : A
y : B
x₁ x₂ : A
y₁ y₂ : B
⊢ Eq (α := A ⊗[R] B ⊗[S] S)
    ((LinearMap.lTensor (A ⊗[R] B) counit : (a : A ⊗[R] B ⊗[S] (A ⊗[R] B)) → A ⊗[R] B ⊗[S] S)
        (((AlgebraTensorModule.tensorTensorTensorComm R S R S A A B B :
              TensorProduct.{u_1, u_3, u_4} R (A ⊗[S] A) (B ⊗[R] B) ≃ₗ[S] A ⊗[R] B ⊗[S] (A ⊗[R] B)) :
            (a : A ⊗[S] A ⊗[R] (B ⊗[R] B)) → A ⊗[R] B ⊗[S] (A ⊗[R] B))
          (x₁ ⊗ₜ[S] x₂ ⊗ₜ[R] (y₁ ⊗ₜ[R] y₂))) :
      A ⊗[R] B ⊗[S] S)
    ((TensorProduct.rid S A : (a : A ⊗[S] S) → A)
            ((LinearMap.lTensor A counit : (a : A ⊗[S] A) → A ⊗[S] S) (x₁ ⊗ₜ[S] x₂) : A ⊗[S] S) ⊗ₜ[R]
          (TensorProduct.rid R B : (a : B ⊗[R] R) → B)
            ((LinearMap.lTensor B counit : (a : B ⊗[R] B) → B ⊗[R] R) (y₁ ⊗ₜ[R] y₂) : B ⊗[R] R) ⊗ₜ[S]
        1 :
      A ⊗[R] B ⊗[S] S)
have h : Eq (α := A ⊗[R] B)
  ((TensorProduct.rid S (A ⊗[R] B) : (a : A ⊗[R] B ⊗[S] S) → A ⊗[R] B)
      ((LinearMap.lTensor (A ⊗[R] B) counit : (a : A ⊗[R] B ⊗[S] (A ⊗[R] B)) → A ⊗[R] B ⊗[S] S)
        (((AlgebraTensorModule.tensorTensorTensorComm R S R S A A B B :
              TensorProduct.{u_1, u_3, u_4} R (A ⊗[S] A) (B ⊗[R] B) ≃ₗ[S] A ⊗[R] B ⊗[S] (A ⊗[R] B)) :
            (a : A ⊗[S] A ⊗[R] (B ⊗[R] B)) → A ⊗[R] B ⊗[S] (A ⊗[R] B))
          (x₁ ⊗ₜ[S] x₂ ⊗ₜ[R] (y₁ ⊗ₜ[R] y₂)))) :
    A ⊗[R] B)
  ((TensorProduct.rid S (A ⊗[R] B) : (a : A ⊗[R] B ⊗[S] S) → A ⊗[R] B)
      ((TensorProduct.rid S A : (a : A ⊗[S] S) → A)
            ((LinearMap.lTensor A counit : (a : A ⊗[S] A) → A ⊗[S] S) (x₁ ⊗ₜ[S] x₂) : A ⊗[S] S) ⊗ₜ[R]
          (TensorProduct.rid R B : (a : B ⊗[R] R) → B)
            ((LinearMap.lTensor B counit : (a : B ⊗[R] B) → B ⊗[R] R) (y₁ ⊗ₜ[R] y₂) : B ⊗[R] R) ⊗ₜ[S]
        1) :
    A ⊗[R] B)
Tactic: apply (TensorProduct.rid S _).injective
-- Lean 4 proof step from Mathlib.RingTheory.Coalgebra.TensorProduct (goal)
Goal:
R : Type u_1
S : Type u_2
A : Type u_3
B : Type u_4
inst : CommSemiring R
inst_1 : CommSemiring S
inst_2 : AddCommMonoid A
inst_3 : AddCommMonoid B
inst_4 : Algebra R S
inst_5 : Module R A
inst_6 : Module S A
inst_7 : Module R B
inst_8 : IsScalarTower R S A
inst_9 : Coalgebra R B
inst_10 : Coalgebra S A
x : A
y : B
x₁ x₂ : A
y₁ y₂ : B
⊢ Eq (α := A ⊗[R] B)
    ((TensorProduct.rid S (A ⊗[R] B) : (a : A ⊗[R] B ⊗[S] S) → A ⊗[R] B)
        ((LinearMap.lTensor (A ⊗[R] B) counit : (a : A ⊗[R] B ⊗[S] (A ⊗[R] B)) → A ⊗[R] B ⊗[S] S)
          (((AlgebraTensorModule.tensorTensorTensorComm R S R S A A B B :
                TensorProduct.{u_1, u_3, u_4} R (A ⊗[S] A) (B ⊗[R] B) ≃ₗ[S] A ⊗[R] B ⊗[S] (A ⊗[R] B)) :
              (a : A ⊗[S] A ⊗[R] (B ⊗[R] B)) → A ⊗[R] B ⊗[S] (A ⊗[R] B))
            (x₁ ⊗ₜ[S] x₂ ⊗ₜ[R] (y₁ ⊗ₜ[R] y₂)))) :
      A ⊗[R] B)
    ((TensorProduct.rid S (A ⊗[R] B) : (a : A ⊗[R] B ⊗[S] S) → A ⊗[R] B)
        ((TensorProduct.rid S A : (a : A ⊗[S] S) → A)
              ((LinearMap.lTensor A counit : (a : A ⊗[S] A) → A ⊗[S] S) (x₁ ⊗ₜ[S] x₂) : A ⊗[S] S) ⊗ₜ[R]
            (TensorProduct.rid R B : (a : B ⊗[R] R) → B)
              ((LinearMap.lTensor B counit : (a : B ⊗[R] B) → B ⊗[R] R) (y₁ ⊗ₜ[R] y₂) : B ⊗[R] R) ⊗ₜ[S]
          1) :
      A ⊗[R] B)
have h : HSMul.hSMul (β := A ⊗[R] B)
    (HSMul.hSMul.{u_1, u_2, u_2} (α := R) (β := S) ((counit : (a : B) → R) y₂ : R) ((counit : (a : A) → S) x₂ : S))
    (x₁ ⊗ₜ[R] y₁) =
  HSMul.hSMul (α := S) (β := A ⊗[R] B) 1
    (HSMul.hSMul.{u_2, u_3, u_3} (α := S) ((counit : (a : A) → S) x₂ : S) x₁ ⊗ₜ[R]
      HSMul.hSMul.{u_1, u_4, u_4} (α := R) ((counit : (a : B) → R) y₂ : R) y₁)
Tactic: dsimp
-- Lean 4 proof step from Mathlib.RingTheory.Coalgebra.TensorProduct (goal)
Goal:
R : Type u_1
S : Type u_2
A : Type u_3
B : Type u_4
inst : CommSemiring R
inst_1 : CommSemiring S
inst_2 : AddCommMonoid A
inst_3 : AddCommMonoid B
inst_4 : Algebra R S
inst_5 : Module R A
inst_6 : Module S A
inst_7 : Module R B
inst_8 : IsScalarTower R S A
inst_9 : Coalgebra R B
inst_10 : Coalgebra S A
x : A
y : B
x₁ x₂ : A
y₁ y₂ : B
⊢ HSMul.hSMul (β := A ⊗[R] B)
      (HSMul.hSMul.{u_1, u_2, u_2} (α := R) (β := S) ((counit : (a : B) → R) y₂ : R) ((counit : (a : A) → S) x₂ : S))
      (x₁ ⊗ₜ[R] y₁) =
    HSMul.hSMul (α := S) (β := A ⊗[R] B) 1
      (HSMul.hSMul.{u_2, u_3, u_3} (α := S) ((counit : (a : A) → S) x₂ : S) x₁ ⊗ₜ[R]
        HSMul.hSMul.{u_1, u_4, u_4} (α := R) ((counit : (a : B) → R) y₂ : R) y₁)
have h : HSMul.hSMul (β := A ⊗[R] B)
    (HSMul.hSMul.{u_1, u_2, u_2} (α := R) (β := S) ((counit : (a : B) → R) y₂ : R) ((counit : (a : A) → S) x₂ : S))
    (x₁ ⊗ₜ[R] y₁) =
  HSMul.hSMul (α := S) 1
    (HSMul.hSMul (α := R) (β := A ⊗[R] B) ((counit : (a : B) → R) y₂ : R)
      (HSMul.hSMul.{u_2, u_3, u_3} (α := S) ((counit : (a : A) → S) x₂ : S) x₁ ⊗ₜ[R] y₁))
Tactic: rw [tmul_smul, smul_assoc, one_smul, smul_tmul']
-- Lean 4 proof step from Mathlib.RingTheory.Coalgebra.TensorProduct (goal)
Goal:
R : Type u_1
S : Type u_2
A : Type u_3
B : Type u_4
inst : CommSemiring R
inst_1 : CommSemiring S
inst_2 : AddCommMonoid A
inst_3 : AddCommMonoid B
inst_4 : Algebra R S
inst_5 : Module R A
inst_6 : Module S A
inst_7 : Module R B
inst_8 : IsScalarTower R S A
inst_9 : Coalgebra R B
inst_10 : Coalgebra S A
x : A
y : B
x₁ x₂ : A
y₁ y₂ : B
h :
  HSMul.hSMul (β := A ⊗[R] B)
      (HSMul.hSMul.{u_1, u_2, u_2} (α := R) (β := S) ((counit : (a : B) → R) y₂ : R) ((counit : (a : A) → S) x₂ : S))
      (x₁ ⊗ₜ[R] y₁) =
    HSMul.hSMul (α := S) 1
      (HSMul.hSMul (α := R) (β := A ⊗[R] B) ((counit : (a : B) → R) y₂ : R)
        (HSMul.hSMul.{u_2, u_3, u_3} (α := S) ((counit : (a : A) → S) x₂ : S) x₁ ⊗ₜ[R] y₁))
⊢ HSMul.hSMul (β := A ⊗[R] B)
      (HSMul.hSMul.{u_1, u_2, u_2} (α := R) (β := S) ((counit : (a : B) → R) y₂ : R) ((counit : (a : A) → S) x₂ : S))
      (x₁ ⊗ₜ[R] y₁) =
    HSMul.hSMul (α := S) (β := A ⊗[R] B) 1
      (HSMul.hSMul.{u_2, u_3, u_3} (α := S) ((counit : (a : A) → S) x₂ : S) x₁ ⊗ₜ[R]
        HSMul.hSMul.{u_1, u_4, u_4} (α := R) ((counit : (a : B) → R) y₂ : R) y₁)
have h₁ : HSMul.hSMul (α := R) ((counit : (a : B) → R) y₂ : R)
    (HSMul.hSMul (α := S) (β := A ⊗[R] B) ((counit : (a : A) → S) x₂ : S) (x₁ ⊗ₜ[R] y₁)) =
  HSMul.hSMul (α := S) 1
    (HSMul.hSMul (α := R) (β := A ⊗[R] B) ((counit : (a : B) → R) y₂ : R)
      (HSMul.hSMul.{u_2, u_3, u_3} (α := S) ((counit : (a : A) → S) x₂ : S) x₁ ⊗ₜ[R] y₁))
Tactic: rw [tmul_smul, smul_assoc, one_smul, smul_tmul']
-- Lean 4 proof step from Mathlib.RingTheory.Coalgebra.TensorProduct (goal)
Goal:
R : Type u_1
S : Type u_2
A : Type u_3
B : Type u_4
inst : CommSemiring R
inst_1 : CommSemiring S
inst_2 : AddCommMonoid A
inst_3 : AddCommMonoid B
inst_4 : Algebra R S
inst_5 : Module R A
inst_6 : Module S A
inst_7 : Module R B
inst_8 : IsScalarTower R S A
inst_9 : Coalgebra R B
inst_10 : Coalgebra S A
x : A
y : B
x₁ x₂ : A
y₁ y₂ : B
h :
  HSMul.hSMul (β := A ⊗[R] B)
      (HSMul.hSMul.{u_1, u_2, u_2} (α := R) (β := S) ((counit : (a : B) → R) y₂ : R) ((counit : (a : A) → S) x₂ : S))
      (x₁ ⊗ₜ[R] y₁) =
    HSMul.hSMul (α := S) 1
      (HSMul.hSMul (α := R) (β := A ⊗[R] B) ((counit : (a : B) → R) y₂ : R)
        (HSMul.hSMul.{u_2, u_3, u_3} (α := S) ((counit : (a : A) → S) x₂ : S) x₁ ⊗ₜ[R] y₁))
h₁ :
  HSMul.hSMul (α := R) ((counit : (a : B) → R) y₂ : R)
      (HSMul.hSMul (α := S) (β := A ⊗[R] B) ((counit : (a : A) → S) x₂ : S) (x₁ ⊗ₜ[R] y₁)) =
    HSMul.hSMul (α := S) 1
      (HSMul.hSMul (α := R) (β := A ⊗[R] B) ((counit : (a : B) → R) y₂ : R)
        (HSMul.hSMul.{u_2, u_3, u_3} (α := S) ((counit : (a : A) → S) x₂ : S) x₁ ⊗ₜ[R] y₁))
⊢ HSMul.hSMul (β := A ⊗[R] B)
      (HSMul.hSMul.{u_1, u_2, u_2} (α := R) (β := S) ((counit : (a : B) → R) y₂ : R) ((counit : (a : A) → S) x₂ : S))
      (x₁ ⊗ₜ[R] y₁) =
    HSMul.hSMul (α := S) (β := A ⊗[R] B) 1
      (HSMul.hSMul.{u_2, u_3, u_3} (α := S) ((counit : (a : A) → S) x₂ : S) x₁ ⊗ₜ[R]
        HSMul.hSMul.{u_1, u_4, u_4} (α := R) ((counit : (a : B) → R) y₂ : R) y₁)
have h₂ : HSMul.hSMul (α := R) ((counit : (a : B) → R) y₂ : R)
    (HSMul.hSMul (α := S) (β := A ⊗[R] B) ((counit : (a : A) → S) x₂ : S) (x₁ ⊗ₜ[R] y₁)) =
  HSMul.hSMul (α := R) (β := A ⊗[R] B) ((counit : (a : B) → R) y₂ : R)
    (HSMul.hSMul.{u_2, u_3, u_3} (α := S) ((counit : (a : A) → S) x₂ : S) x₁ ⊗ₜ[R] y₁)
Tactic: rw [tmul_smul, smul_assoc, one_smul, smul_tmul']
-- Lean 4 proof step from Mathlib.RingTheory.Coalgebra.TensorProduct (goal)
Goal:
R : Type u_1
S : Type u_2
A : Type u_3
B : Type u_4
inst : CommSemiring R
inst_1 : CommSemiring S
inst_2 : AddCommMonoid A
inst_3 : AddCommMonoid B
inst_4 : Algebra R S
inst_5 : Module R A
inst_6 : Module S A
inst_7 : Module R B
inst_8 : IsScalarTower R S A
inst_9 : Coalgebra R B
inst_10 : Coalgebra S A
x : A
y : B
x₁ x₂ : A
y₁ y₂ : B
h :
  HSMul.hSMul (β := A ⊗[R] B)
      (HSMul.hSMul.{u_1, u_2, u_2} (α := R) (β := S) ((counit : (a : B) → R) y₂ : R) ((counit : (a : A) → S) x₂ : S))
      (x₁ ⊗ₜ[R] y₁) =
    HSMul.hSMul (α := S) 1
      (HSMul.hSMul (α := R) (β := A ⊗[R] B) ((counit : (a : B) → R) y₂ : R)
        (HSMul.hSMul.{u_2, u_3, u_3} (α := S) ((counit : (a : A) → S) x₂ : S) x₁ ⊗ₜ[R] y₁))
h₁ :
  HSMul.hSMul (α := R) ((counit : (a : B) → R) y₂ : R)
      (HSMul.hSMul (α := S) (β := A ⊗[R] B) ((counit : (a : A) → S) x₂ : S) (x₁ ⊗ₜ[R] y₁)) =
    HSMul.hSMul (α := S) 1
      (HSMul.hSMul (α := R) (β := A ⊗[R] B) ((counit : (a : B) → R) y₂ : R)
        (HSMul.hSMul.{u_2, u_3, u_3} (α := S) ((counit : (a : A) → S) x₂ : S) x₁ ⊗ₜ[R] y₁))
h₂ :
  HSMul.hSMul (α := R) ((counit : (a : B) → R) y₂ : R)
      (HSMul.hSMul (α := S) (β := A ⊗[R] B) ((counit : (a : A) → S) x₂ : S) (x₁ ⊗ₜ[R] y₁)) =
    HSMul.hSMul (α := R) (β := A ⊗[R] B) ((counit : (a : B) → R) y₂ : R)
      (HSMul.hSMul.{u_2, u_3, u_3} (α := S) ((counit : (a : A) → S) x₂ : S) x₁ ⊗ₜ[R] y₁)
⊢ HSMul.hSMul (β := A ⊗[R] B)
      (HSMul.hSMul.{u_1, u_2, u_2} (α := R) (β := S) ((counit : (a : B) → R) y₂ : R) ((counit : (a : A) → S) x₂ : S))
      (x₁ ⊗ₜ[R] y₁) =
    HSMul.hSMul (α := S) (β := A ⊗[R] B) 1
      (HSMul.hSMul.{u_2, u_3, u_3} (α := S) ((counit : (a : A) → S) x₂ : S) x₁ ⊗ₜ[R]
        HSMul.hSMul.{u_1, u_4, u_4} (α := R) ((counit : (a : B) → R) y₂ : R) y₁)
have h₃ : HSMul.hSMul (α := R) (β := A ⊗[R] B) ((counit : (a : B) → R) y₂ : R)
    (HSMul.hSMul.{u_2, u_3, u_3} (α := S) ((counit : (a : A) → S) x₂ : S) x₁ ⊗ₜ[R] y₁) =
  HSMul.hSMul (α := R) (β := A ⊗[R] B) ((counit : (a : B) → R) y₂ : R)
    (HSMul.hSMul.{u_2, u_3, u_3} (α := S) ((counit : (a : A) → S) x₂ : S) x₁ ⊗ₜ[R] y₁)
Tactic: rw [tmul_smul, smul_assoc, one_smul, smul_tmul']
-- Lean 4 proof step from Mathlib.RingTheory.Coalgebra.TensorProduct (goal)
Goal:
R : Type u_1
S : Type u_2
A : Type u_3
B : Type u_4
inst : CommSemiring R
inst_1 : CommSemiring S
inst_2 : AddCommMonoid A
inst_3 : AddCommMonoid B
inst_4 : Algebra R S
inst_5 : Module R A
inst_6 : Module S A
inst_7 : Module R B
inst_8 : IsScalarTower R S A
inst_9 : Coalgebra R B
inst_10 : Coalgebra S A
x : A
y : B
⊢ Eq (α := A ⊗[R] B ⊗[S] S)
    (((((AlgebraTensorModule.curry ((LinearMap.flip (mk S (A ⊗[R] B) S) : (a : S) → A ⊗[R] B →ₗ[S] A ⊗[R] B ⊗[S] S) 1) :
                  A →ₗ[S] B →ₗ[R] A ⊗[R] B ⊗[S] S) :
                (a : A) → B →ₗ[R] A ⊗[R] B ⊗[S] S)
              x :
            B →ₗ[R] A ⊗[R] B ⊗[S] S) :
          (a : B) → A ⊗[R] B ⊗[S] S)
        y :
      A ⊗[R] B ⊗[S] S)
    ((LinearEquiv.symm (TensorProduct.rid S (A ⊗[R] B)) : (a : A ⊗[R] B) → A ⊗[R] B ⊗[S] S)
        ((TensorProduct.rid S A : (a : A ⊗[S] S) → A) (x ⊗ₜ[S] 1) ⊗ₜ[R]
          (TensorProduct.rid R B : (a : B ⊗[R] R) → B) (y ⊗ₜ[R] 1)) :
      A ⊗[R] B ⊗[S] S)
have h : Eq (α := A ⊗[R] B ⊗[S] S) (x ⊗ₜ[R] y ⊗ₜ[S] 1)
  (HSMul.hSMul.{u_2, u_3, u_3} (α := S) 1 x ⊗ₜ[R] HSMul.hSMul.{u_1, u_4, u_4} (α := R) 1 y ⊗ₜ[S] 1)
Tactic: dsimp