2014-09-08 02:58:53 +00:00
|
|
|
|
import logic data.prod data.vector
|
2014-09-19 23:15:04 +00:00
|
|
|
|
open prod nat inhabited vector
|
2014-09-08 02:58:53 +00:00
|
|
|
|
|
2014-09-19 23:15:04 +00:00
|
|
|
|
theorem tst1 : inhabited (vector nat 2)
|
2014-09-08 02:58:53 +00:00
|
|
|
|
|
2014-09-19 23:15:04 +00:00
|
|
|
|
theorem tst2 : inhabited (Prop × (Π n : nat, vector nat n))
|
2014-09-08 02:58:53 +00:00
|
|
|
|
|
2015-05-09 03:54:16 +00:00
|
|
|
|
reveal tst2
|
2014-09-08 02:58:53 +00:00
|
|
|
|
(*
|
|
|
|
|
|
print(get_env():find("tst2"):value())
|
|
|
|
|
|
*)
|
