2014-08-24 19:58:48 -07:00
|
|
|
|
import logic data.prod
|
2014-09-04 16:36:06 -07:00
|
|
|
|
open prod inhabited
|
2014-07-04 18:37:49 -07:00
|
|
|
|
|
|
|
|
|
|
section
|
2014-10-09 07:13:06 -07:00
|
|
|
|
variable {A : Type}
|
|
|
|
|
|
variable {B : Type}
|
|
|
|
|
|
variable Ha : inhabited A
|
|
|
|
|
|
variable Hb : inhabited B
|
2014-10-03 09:09:27 -07:00
|
|
|
|
include Ha Hb
|
2014-07-22 09:43:18 -07:00
|
|
|
|
theorem tst : inhabited (Prop × A × B)
|
2014-07-04 18:37:49 -07:00
|
|
|
|
|
|
|
|
|
|
end
|
|
|
|
|
|
|
2015-05-08 20:54:16 -07:00
|
|
|
|
reveal tst
|
2014-07-04 18:37:49 -07:00
|
|
|
|
(*
|
|
|
|
|
|
print(get_env():find("tst"):value())
|
2014-08-20 15:49:44 -07:00
|
|
|
|
*)
|
