2014-10-04 17:40:53 +00:00
|
|
|
import logic
|
|
|
|
|
|
|
|
inductive H [class] (A : Type) :=
|
|
|
|
mk : A → H A
|
|
|
|
|
2014-10-12 20:06:00 +00:00
|
|
|
definition foo {A : Type} [h : H A] : A :=
|
2014-10-04 17:40:53 +00:00
|
|
|
H.rec (λa, a) h
|
|
|
|
|
2014-10-09 14:13:06 +00:00
|
|
|
context
|
|
|
|
variable A : Type
|
|
|
|
variable h : H A
|
2014-10-04 17:40:53 +00:00
|
|
|
definition tst : A :=
|
|
|
|
foo
|
|
|
|
end
|