F : Type ?u.951428
α : Type u_1
β : Type u_2
γ : Type ?u.951437
inst✝⁴ : Ring α
inst✝³ : AddCommGroup β
inst✝² : Module α β
inst✝¹ : DecidableEq β
s : Finset α
t : Finset β
a : α
inst✝ : DecidableEq α
⊢ image (fun x => -x) s • t = image (fun x => -x) (s • t)
F : Type ?u.951428
α : Type u_1
β : Type u_2
γ : Type ?u.951437
inst✝⁴ : Ring α
inst✝³ : AddCommGroup β
inst✝² : Module α β
inst✝¹ : DecidableEq β
s : Finset α
t : Finset β
a : α
inst✝ : DecidableEq α
⊢ -s • t = -(s • t)
simp_rw [← image_neg]
no goals
F : Type ?u.951428
α : Type u_1
β : Type u_2
γ : Type ?u.951437
inst✝⁴ : Ring α
inst✝³ : AddCommGroup β
inst✝² : Module α β
inst✝¹ : DecidableEq β
s : Finset α
t : Finset β
a : α
inst✝ : DecidableEq α
⊢ image (fun x => -x) s • t = image (fun x => -x) (s • t)
exact image₂_image_left_comm neg_smul