30 lines
582 B
Text
30 lines
582 B
Text
constant A : Type.{1}
|
|
constant B : Type.{1}
|
|
constant f : A → B
|
|
coercion f
|
|
constant g : B → B → B
|
|
constants a1 a2 a3 : A
|
|
constants b1 b2 b3 : B
|
|
check g a1 b1
|
|
set_option pp.coercions true
|
|
check g a1 b1
|
|
|
|
constant eq {A : Type} : A → A → Type.{0}
|
|
check eq a1 a2
|
|
check eq a1 b1
|
|
set_option pp.implicit true
|
|
check eq a1 b1
|
|
set_option pp.universes true
|
|
check eq a1 b1
|
|
|
|
inductive pair (A : Type) (B: Type) : Type :=
|
|
mk : A → B → pair A B
|
|
|
|
check pair.mk a1 b2
|
|
check B
|
|
check pair.mk
|
|
set_option pp.unicode false
|
|
check pair.mk
|
|
set_option pp.implicit false
|
|
check pair.mk
|
|
check pair
|