2015-05-20 23:06:20 +00:00
|
|
|
|
import data.rat
|
2015-10-13 22:39:03 +00:00
|
|
|
|
open rat int
|
2015-05-20 23:06:20 +00:00
|
|
|
|
|
|
|
|
|
|
attribute rat.of_int [coercion]
|
|
|
|
|
|
|
|
|
|
|
|
check (0 : ℚ)
|
|
|
|
|
|
check (rat.of_int 0 : ℚ)
|
|
|
|
|
|
|
|
|
|
|
|
constant f : ℚ → Prop
|
|
|
|
|
|
variable a : nat
|
|
|
|
|
|
|
|
|
|
|
|
check f 0
|
|
|
|
|
|
check f a
|
|
|
|
|
|
|
|
|
|
|
|
set_option pp.coercions true
|
|
|
|
|
|
|
|
|
|
|
|
check f a
|
