12 lines
273 B
Text
12 lines
273 B
Text
set_option new_elaborator true
|
|
open tactic
|
|
|
|
constant f : nat → nat
|
|
constant foo : ∀ n, f n = n + 1
|
|
constant zero_add : ∀ n, 0 + n = n
|
|
|
|
definition ex1 (n : nat) : 0 + f n = n + 1 :=
|
|
by do
|
|
set_basic_attribute `simp `foo,
|
|
set_basic_attribute `simp `zero_add,
|
|
simp
|