2014-11-07 16:21:42 +00:00
|
|
|
|
import logic data.prod data.num
|
2014-09-04 23:36:06 +00:00
|
|
|
|
open prod nonempty inhabited
|
2014-07-05 01:03:13 +00:00
|
|
|
|
|
2014-07-22 16:43:18 +00:00
|
|
|
|
theorem H {A B : Type} (H1 : inhabited A) : inhabited (Prop × A × (B → num))
|
2014-07-05 01:03:13 +00:00
|
|
|
|
:= _
|
2015-05-09 03:54:16 +00:00
|
|
|
|
reveal H
|
2014-07-05 01:03:13 +00:00
|
|
|
|
(*
|
|
|
|
|
print(get_env():find("H"):value())
|
2014-08-20 22:49:44 +00:00
|
|
|
|
*)
|