lean2/tests/lean/hott/443.hlean

13 lines
335 B
Text

import algebra.group algebra.category
open eq sigma unit category path_algebra
section
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