2014-01-05 20:05:08 +00:00
|
|
|
import Int.
|
2013-09-06 17:06:26 +00:00
|
|
|
|
2014-01-08 08:38:39 +00:00
|
|
|
variable magic : forall (H : Bool), H
|
2013-09-06 17:06:26 +00:00
|
|
|
|
2014-01-06 05:45:31 +00:00
|
|
|
set::option pp::notation false
|
|
|
|
set::option pp::coercion true
|
2014-01-05 19:03:35 +00:00
|
|
|
print let a : Int := 1,
|
2013-09-06 17:06:26 +00:00
|
|
|
H : a > 0 := magic (a > 0)
|
|
|
|
in H
|