11 lines
243 B
Text
11 lines
243 B
Text
open tactic
|
|
|
|
constant f : nat → nat
|
|
constant foo : ∀ n, f n = n + 1
|
|
constant zadd : ∀ n, 0 + n = n
|
|
|
|
definition ex1 (n : nat) : 0 + f n = n + 1 :=
|
|
by do
|
|
set_basic_attribute `simp `foo ff,
|
|
set_basic_attribute `simp `zadd ff,
|
|
`[simp]
|