2014-11-30 21:16:01 -08:00
|
|
|
prelude
|
2014-09-17 14:39:05 -07:00
|
|
|
definition Prop : Type.{1} := Type.{0}
|
2015-04-21 19:33:21 -07:00
|
|
|
section
|
2014-10-09 07:13:06 -07:00
|
|
|
variable N : Type.{1}
|
|
|
|
variables a b c : N
|
|
|
|
variable and : Prop → Prop → Prop
|
2015-04-21 19:33:21 -07:00
|
|
|
local infixr `∧`:35 := and
|
2014-10-09 07:13:06 -07:00
|
|
|
variable le : N → N → Prop
|
|
|
|
variable lt : N → N → Prop
|
2014-06-18 09:48:47 -07:00
|
|
|
precedence `≤`:50
|
|
|
|
precedence `<`:50
|
2015-04-21 19:33:21 -07:00
|
|
|
local infixl ≤ := le
|
|
|
|
local infixl < := lt
|
2014-06-18 09:48:47 -07:00
|
|
|
check a ≤ b
|
2014-07-22 09:43:18 -07:00
|
|
|
definition T : Prop := a ≤ b
|
2014-06-18 09:48:47 -07:00
|
|
|
check T
|
|
|
|
end
|
|
|
|
check T
|
|
|
|
(*
|
|
|
|
print(get_env():find("T"):value())
|
2014-09-06 11:05:07 -07:00
|
|
|
*)
|