2015-04-21 22:40:20 -07:00
|
|
|
section
|
|
|
|
parameters {A : Type} (a : A)
|
|
|
|
variable f : A → A → A
|
|
|
|
|
2015-11-20 17:03:17 -08:00
|
|
|
definition id2 : A := a
|
|
|
|
check id2
|
2015-04-21 22:40:20 -07:00
|
|
|
|
|
|
|
|
|
|
|
definition pr (b : A) : A := f a b
|
|
|
|
|
2015-11-20 17:03:17 -08:00
|
|
|
check pr f id2
|
2015-04-21 22:40:20 -07:00
|
|
|
|
|
|
|
set_option pp.universes true
|
|
|
|
|
2015-11-20 17:03:17 -08:00
|
|
|
check pr f id2
|
2015-04-21 22:40:20 -07:00
|
|
|
|
|
|
|
definition pr2 (B : Type) (b : B) : A := a
|
|
|
|
|
|
|
|
check pr2 num 10
|
|
|
|
end
|