refactor(library/algebra): move bundled structures to separate module

Motivation: performance.
After this commit, the bundled instances do not participate in the
class/instance resolution if we do not import algebra.bundled.

library/algebra/bundled.lean

@@ -0,0 +1,84 @@
+/-
+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

library/algebra/group.lean

@@ -469,78 +469,4 @@ section add_comm_group
   !add.comm ▸ add_eq_of_eq_sub H
 end add_comm_group
 
-/- bundled structures -/
-
-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

tests/lean/438.lean

@@ -1,4 +1,4 @@
-import algebra.group
+import algebra.bundled
 open algebra
 
 attribute Group.struct [coercion]