18 lines
280 B
Text
18 lines
280 B
Text
|
import logic
|
||
|
|
|
||
|
|
|
||
|
|
definition foo {A : Type} {H : inhabited A} : A :=
|
||
|
|
inhabited.rec (λa, a) H
|
||
|
|
|
||
|
|
constant bla {A : Type} {H : inhabited A} : Type.{1}
|
||
|
|
|
||
|
|
set_option pp.implicit true
|
||
|
|
|
||
|
|
section
|
||
|
|
variable A : Type
|
||
|
|
variable S : inhabited A
|
||
|
|
variable B : bla
|
||
|
|
check B
|
||
|
|
check @foo A _
|
||
|
|
end
|