36 lines
639 B
Text
36 lines
639 B
Text
set_option pp.universes true
|
|
set_option pp.implicit true
|
|
|
|
section
|
|
universe k
|
|
parameter A : Type
|
|
|
|
section
|
|
universe variable l
|
|
universe variable u
|
|
parameter B : Type
|
|
definition foo (a : A) (b : B) := b
|
|
|
|
inductive mypair
|
|
| mk : A → B → mypair
|
|
|
|
#print mypair.rec
|
|
#check mypair.mk
|
|
|
|
definition pr1' : mypair → A
|
|
| (mypair.mk a b) := a
|
|
|
|
definition pr2' : mypair → B
|
|
| (mypair.mk a b) := b
|
|
|
|
end
|
|
#check mypair.rec
|
|
variable a : A
|
|
#check foo nat a 0
|
|
|
|
definition pr1 : mypair nat → A
|
|
| (mypair.mk a b) := a
|
|
|
|
definition pr2 : mypair nat → nat
|
|
| (mypair.mk a b) := b
|
|
end
|