19 lines
441 B
Text
19 lines
441 B
Text
import logic data.prod
|
||
open prod inhabited
|
||
|
||
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
|
||
theorem tst : inhabited (Prop × A × B)
|
||
:= including Ha Hb, _
|
||
|
||
end
|
||
|
||
(*
|
||
print(get_env():find("tst"):value())
|
||
*)
|