2015-04-29 17:15:13 +00:00
|
|
|
import algebra.group algebra.category
|
2015-02-23 23:01:27 +00:00
|
|
|
|
2015-03-04 17:28:16 +00:00
|
|
|
open eq sigma unit category path_algebra
|
2015-02-23 23:01:27 +00:00
|
|
|
|
2015-04-22 02:33:21 +00:00
|
|
|
section
|
2015-02-23 23:01:27 +00:00
|
|
|
parameters {P₀ : Type} [P : precategory P₀]
|
|
|
|
|
|
|
|
|
|
structure my_structure := (a : P₀) (b : P₀) (f : @hom P₀ P a b)
|
|
|
|
|
include P
|
|
|
|
|
|
|
|
|
|
structure another_structure (X : my_structure) := (field1 : hom (my_structure.a X) (my_structure.a X))
|
|
|
|
|
|
|
|
|
|
end
|
