2015-07-01 23:41:19 +00:00
|
|
|
set_option pp.coercions true
|
|
|
|
|
|
|
|
namespace Nat
|
|
|
|
constant Nat : Type₁
|
|
|
|
constant num2Nat : num → Nat
|
|
|
|
attribute num2Nat [coercion]
|
2015-10-13 22:39:03 +00:00
|
|
|
definition foo : Nat := (0:num)
|
2015-07-01 23:41:19 +00:00
|
|
|
end Nat
|
|
|
|
|
|
|
|
constant Int : Type₁
|
|
|
|
|
|
|
|
namespace Int
|
|
|
|
open Nat
|
|
|
|
constant Nat2Int : Nat → Int
|
|
|
|
attribute Nat2Int [coercion]
|
2015-10-13 22:39:03 +00:00
|
|
|
definition foo : Int := (0:num)
|
2015-07-01 23:41:19 +00:00
|
|
|
end Int
|
|
|
|
|
|
|
|
open Int
|
2015-10-13 22:39:03 +00:00
|
|
|
definition foo : Int := (0:num)
|