9 lines
189 B
Text
9 lines
189 B
Text
import algebra.group
|
|
open algebra
|
|
|
|
variable {A : Type}
|
|
variable [s : group A]
|
|
include s
|
|
|
|
theorem mul.right_inv (a : A) : a * a⁻¹ = 1 :=
|
|
by rewrite ⟨-{a}inv_inv at {1}, mul.left_inv⟩
|