10 lines
305 B
Text
10 lines
305 B
Text
open nat tactic
|
|
constant zero_add (a : nat) : 0 + a = a
|
|
|
|
meta_definition xrewrite (th_name : name) : tactic unit :=
|
|
do th ← mk_const th_name,
|
|
rewrite_core semireducible tt occurrences.all ff th,
|
|
try reflexivity
|
|
|
|
example (a : nat) : (0 + a) + (0 + a) + (0 + a) = a + a + a :=
|
|
by xrewrite `zero_add
|