2014-01-01 13:52:25 -08:00
|
|
|
Import Int.
|
2013-09-06 10:06:26 -07:00
|
|
|
|
|
|
|
Variable magic : Pi (H : Bool), H
|
|
|
|
|
2013-12-18 21:18:45 -08:00
|
|
|
SetOption pp::notation false
|
|
|
|
SetOption pp::coercion true
|
2013-09-06 10:06:26 -07:00
|
|
|
Show let a : Int := 1,
|
|
|
|
H : a > 0 := magic (a > 0)
|
|
|
|
in H
|