11 lines
290 B
Text
11 lines
290 B
Text
open tactic nat
|
|
|
|
constant zadd (a : nat) : 0 + a = a
|
|
constant le.refl (a : nat) : a ≤ a
|
|
attribute [simp] zadd
|
|
|
|
example (a : nat) : 0 + a ≤ a :=
|
|
by do simp, trace_state, mk_const `le.refl >>= apply
|
|
|
|
example (a : nat) : 0 + a ≥ a :=
|
|
by do simp, trace_state, mk_const `le.refl >>= apply
|