lean2/tests/lean/run/class6.lean

21 lines
293 B
Text
Raw Normal View History

import standard
using pair
inductive t1 : Type :=
| mk1 : t1
inductive t2 : Type :=
| mk2 : t2
theorem inhabited_t1 : inhabited t1
:= inhabited_intro mk1
theorem inhabited_t2 : inhabited t2
:= inhabited_intro mk2
instance inhabited_t1 inhabited_t2
theorem T : inhabited (t1 × t2)
:= _