2014-08-25 02:58:48 +00:00
|
|
|
|
import logic data.prod
|
2014-09-04 23:36:06 +00:00
|
|
|
|
open prod inhabited
|
2014-07-05 01:37:49 +00:00
|
|
|
|
|
|
|
|
|
section
|
|
|
|
|
parameter {A : Type}
|
|
|
|
|
parameter {B : Type}
|
|
|
|
|
parameter Ha : inhabited A
|
|
|
|
|
parameter Hb : inhabited B
|
|
|
|
|
-- The section mechanism only includes parameters that are explicitly cited.
|
|
|
|
|
-- So, we use the 'including' expression to make explicit we want to use
|
|
|
|
|
-- Ha and Hb
|
2014-10-03 16:09:27 +00:00
|
|
|
|
include Ha Hb
|
2014-07-22 16:43:18 +00:00
|
|
|
|
theorem tst : inhabited (Prop × A × B)
|
2014-07-05 01:37:49 +00:00
|
|
|
|
|
|
|
|
|
end
|
|
|
|
|
|
|
|
|
|
(*
|
|
|
|
|
print(get_env():find("tst"):value())
|
2014-08-20 22:49:44 +00:00
|
|
|
|
*)
|