chore(hott/algebra) make carrier hset witness an instance

This commit is contained in:
Jakob von Raumer 2015-03-19 10:21:54 -04:00 committed by Leonardo de Moura
parent 8948926a07
commit f480d67881

View file

@ -52,6 +52,8 @@ structure semigroup [class] (A : Type) extends has_mul A :=
(carrier_hset : is_hset A)
(mul_assoc : ∀a b c, mul (mul a b) c = mul a (mul b c))
attribute semigroup.carrier_hset [instance]
theorem mul_assoc [s : semigroup A] (a b c : A) : a * b * c = a * (b * c) :=
!semigroup.mul_assoc