@@ -150,7 +150,6 @@ def uncurry : (M →ₗ[A] N →ₗ[R] P) →ₗ[B] M ⊗[R] N →ₗ[A] P where
150150 toFun := lift
151151 map_add' _ _ := ext fun x y => by simp only [lift_tmul, add_apply]
152152 map_smul' _ _ := ext fun x y => by simp only [lift_tmul, smul_apply, RingHom.id_apply]
153- -- Porting note: new `B` argument
154153#align tensor_product.algebra_tensor_module.uncurry TensorProduct.AlgebraTensorModule.uncurryₓ
155154
156155/-- Heterobasic version of `TensorProduct.lcurry`:
@@ -162,7 +161,6 @@ def lcurry : (M ⊗[R] N →ₗ[A] P) →ₗ[B] M →ₗ[A] N →ₗ[R] P where
162161 toFun := curry
163162 map_add' _ _ := rfl
164163 map_smul' _ _ := rfl
165- -- Porting note: new `B` argument
166164#align tensor_product.algebra_tensor_module.lcurry TensorProduct.AlgebraTensorModule.lcurryₓ
167165
168166/-- Heterobasic version of `TensorProduct.lift.equiv`:
@@ -174,7 +172,6 @@ def lift.equiv : (M →ₗ[A] N →ₗ[R] P) ≃ₗ[B] M ⊗[R] N →ₗ[A] P :=
174172 LinearEquiv.ofLinear (uncurry R A B M N P) (lcurry R A B M N P)
175173 (LinearMap.ext fun _ => ext fun x y => lift_tmul _ x y)
176174 (LinearMap.ext fun f => LinearMap.ext fun x => LinearMap.ext fun y => lift_tmul f x y)
177- -- Porting note: new `B` argument
178175#align tensor_product.algebra_tensor_module.lift.equiv TensorProduct.AlgebraTensorModule.lift.equivₓ
179176
180177/-- Heterobasic version of `TensorProduct.mk`:
@@ -341,7 +338,6 @@ def assoc : (M ⊗[A] P) ⊗[R] Q ≃ₗ[B] M ⊗[A] (P ⊗[R] Q) :=
341338 (lift <| uncurry R A B P Q _ ∘ₗ curry (mk R B _ Q))
342339 (by ext; rfl)
343340 (by ext; rfl)
344- -- Porting note: new `B` argument
345341#align tensor_product.algebra_tensor_module.assoc TensorProduct.AlgebraTensorModule.assocₓ
346342
347343variable {M P N Q}
0 commit comments