lean2/tests/lean/run/coe1.lean

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