lean2/tests/lean/run/alg_rw.lean

24 lines
384 B
Text
Raw Normal View History

import algebra.group
open algebra
section
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
section
variable {A : Type}
variable [s : comm_group A]
include s
theorem one_mul_one2 : (one A) * 1 = 1 :=
by rewrite one_mul_one
end