90bfd84a07
In the standard library, we should use explicit universe variables for universe polymorphic definitions. Users that want to declare universe polymorphic definitions but do not want to provide universe level parameters should use Type _ or Type*
36 lines
677 B
Text
36 lines
677 B
Text
inductive point (A B : Type*)
|
|
| mk : Π (x : A) (y : B), point
|
|
|
|
inductive [class] color
|
|
| red | green | blue
|
|
|
|
constant {u} foo (A : Type u) [H : decidable_eq A] : Type u
|
|
|
|
constants a : num
|
|
|
|
section
|
|
universe variable l
|
|
variable A : Type.{l}
|
|
variable Ha : decidable_eq A
|
|
include Ha
|
|
variable E : Type₂
|
|
include E
|
|
-- include Ha
|
|
|
|
structure point3d_color (B C : Type*) (D : B → Type*) extends point (foo A) B, sigma D renaming pr1→y pr2→w :=
|
|
mk :: (c : color) (H : x == y)
|
|
|
|
check point3d_color.c
|
|
|
|
check point3d_color.to_point
|
|
end
|
|
|
|
section
|
|
universe l
|
|
parameters A : Type.{l}
|
|
parameters B : Type.{l}
|
|
|
|
structure tst :=
|
|
mk :: (a : A) (b : B)
|
|
|
|
end
|