16 lines
363 B
Text
16 lines
363 B
Text
import data.unit
|
|
open unit
|
|
namespace play
|
|
constant int : Type.{1}
|
|
constant nat : Type.{1}
|
|
constant izero : int
|
|
constant nzero : nat
|
|
constant isucc : int → int
|
|
constant nsucc : nat → nat
|
|
definition f [coercion] (a : unit) : int := izero
|
|
definition g [coercion] (a : unit) : nat := nzero
|
|
|
|
set_option pp.coercions true
|
|
check isucc star
|
|
check nsucc star
|
|
end play
|