b254c78c44
Motivation: performance. After this commit, the bundled instances do not participate in the class/instance resolution if we do not import algebra.bundled.
84 lines
2 KiB
Text
84 lines
2 KiB
Text
/-
|
|
Copyright (c) 2015 Jeremy Avigad. All rights reserved.
|
|
Released under Apache 2.0 license as described in the file LICENSE.
|
|
|
|
Module: algebra.bundled
|
|
Authors: Jeremy Avigad
|
|
|
|
Bundled structures
|
|
-/
|
|
import algebra.group
|
|
|
|
namespace algebra
|
|
structure Semigroup :=
|
|
(carrier : Type) (struct : semigroup carrier)
|
|
|
|
attribute Semigroup.carrier [coercion]
|
|
attribute Semigroup.struct [instance]
|
|
|
|
structure CommSemigroup :=
|
|
(carrier : Type) (struct : comm_semigroup carrier)
|
|
|
|
attribute CommSemigroup.carrier [coercion]
|
|
attribute CommSemigroup.struct [instance]
|
|
|
|
structure Monoid :=
|
|
(carrier : Type) (struct : monoid carrier)
|
|
|
|
attribute Monoid.carrier [coercion]
|
|
attribute Monoid.struct [instance]
|
|
|
|
structure CommMonoid :=
|
|
(carrier : Type) (struct : comm_monoid carrier)
|
|
|
|
attribute CommMonoid.carrier [coercion]
|
|
attribute CommMonoid.struct [instance]
|
|
|
|
structure Group :=
|
|
(carrier : Type) (struct : group carrier)
|
|
|
|
attribute Group.carrier [coercion]
|
|
attribute Group.struct [instance]
|
|
|
|
structure CommGroup :=
|
|
(carrier : Type) (struct : comm_group carrier)
|
|
|
|
attribute CommGroup.carrier [coercion]
|
|
attribute CommGroup.struct [instance]
|
|
|
|
structure AddSemigroup :=
|
|
(carrier : Type) (struct : add_semigroup carrier)
|
|
|
|
attribute AddSemigroup.carrier [coercion]
|
|
attribute AddSemigroup.struct [instance]
|
|
|
|
structure AddCommSemigroup :=
|
|
(carrier : Type) (struct : add_comm_semigroup carrier)
|
|
|
|
attribute AddCommSemigroup.carrier [coercion]
|
|
attribute AddCommSemigroup.struct [instance]
|
|
|
|
structure AddMonoid :=
|
|
(carrier : Type) (struct : add_monoid carrier)
|
|
|
|
attribute AddMonoid.carrier [coercion]
|
|
attribute AddMonoid.struct [instance]
|
|
|
|
structure AddCommMonoid :=
|
|
(carrier : Type) (struct : add_comm_monoid carrier)
|
|
|
|
attribute AddCommMonoid.carrier [coercion]
|
|
attribute AddCommMonoid.struct [instance]
|
|
|
|
structure AddGroup :=
|
|
(carrier : Type) (struct : add_group carrier)
|
|
|
|
attribute AddGroup.carrier [coercion]
|
|
attribute AddGroup.struct [instance]
|
|
|
|
structure AddCommGroup :=
|
|
(carrier : Type) (struct : add_comm_group carrier)
|
|
|
|
attribute AddCommGroup.carrier [coercion]
|
|
attribute AddCommGroup.struct [instance]
|
|
end algebra
|