30 lines
587 B
Text
30 lines
587 B
Text
|
variable A : Type.{1}
|
||
|
|
variable B : Type.{1}
|
||
|
|
variable f : A → B
|
||
|
|
coercion f
|
||
|
|
variable g : B → B → B
|
||
|
|
variables a1 a2 a3 : A
|
||
|
|
variables b1 b2 b3 : B
|
||
|
|
check g a1 b1
|
||
|
|
set_option pp.coercion true
|
||
|
|
check g a1 b1
|
||
|
|
|
||
|
|
variable 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_pair : A → B → pair A B
|
||
|
|
|
||
|
|
check mk_pair a1 b2
|
||
|
|
check B
|
||
|
|
check mk_pair
|
||
|
|
set_option pp.unicode false
|
||
|
|
check mk_pair
|
||
|
|
set_option pp.implicit false
|
||
|
|
check mk_pair
|
||
|
|
check pair
|