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