76799db032
This modification was suggested by @kha. TODO: - Use `simp [-f]` instead of `simp without f` - Allow users to remove hypothesis from `*`. Example: `simp [*, -h]` for simplify using all hypotheses but `h`.
20 lines
385 B
Text
20 lines
385 B
Text
mutual def even, odd
|
|
with even : nat → bool
|
|
| 0 := tt
|
|
| (a+1) := odd a
|
|
with odd : nat → bool
|
|
| 0 := ff
|
|
| (a+1) := even a
|
|
|
|
example (a : nat) : even (a + 1) = odd a :=
|
|
by simp [even]
|
|
|
|
example (a : nat) : odd (a + 1) = even a :=
|
|
by simp [odd]
|
|
|
|
lemma even_eq_not_odd : ∀ a, even a = bnot (odd a) :=
|
|
begin
|
|
intro a, induction a,
|
|
simp [even, odd],
|
|
simp [*, even, odd]
|
|
end
|