lean2/tests/lean/run/class3.lean

20 lines
433 B
Text
Raw Normal View History

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
include Ha Hb
theorem tst : inhabited (Prop × A × B)
end
(*
print(get_env():find("tst"):value())
*)