2014-08-19 00:25:39 +00:00
|
|
|
import logic
|
2014-11-23 01:34:05 +00:00
|
|
|
namespace experiment
|
2014-10-02 23:20:52 +00:00
|
|
|
constant nat : Type.{1}
|
|
|
|
constant int : Type.{1}
|
|
|
|
constant of_nat : nat → int
|
2015-01-25 04:23:21 +00:00
|
|
|
attribute of_nat [coercion]
|
2014-08-19 00:25:39 +00:00
|
|
|
|
|
|
|
theorem tst (n : nat) : n = n :=
|
|
|
|
have H : true, from trivial,
|
2014-09-04 23:36:06 +00:00
|
|
|
calc n = n : eq.refl _
|
|
|
|
... = n : eq.refl _
|
2014-11-23 01:34:05 +00:00
|
|
|
end experiment
|