24 lines
384 B
Text
24 lines
384 B
Text
|
import algebra.group
|
||
|
|
open algebra
|
||
|
|
|
||
|
|
context
|
||
|
|
variable {A : Type}
|
||
|
|
variable [s : comm_monoid A]
|
||
|
|
include s
|
||
|
|
|
||
|
|
theorem one_mul_one : 1 * 1 = 1 :=
|
||
|
|
mul_one 1
|
||
|
|
end
|
||
|
|
|
||
|
|
definition one [reducible] (A : Type) [s : has_one A] : A :=
|
||
|
|
!has_one.one
|
||
|
|
|
||
|
|
context
|
||
|
|
variable {A : Type}
|
||
|
|
variable [s : comm_group A]
|
||
|
|
include s
|
||
|
|
|
||
|
|
theorem one_mul_one2 : (one A) * 1 = 1 :=
|
||
|
|
by rewrite one_mul_one
|
||
|
|
end
|