2014-11-12 23:03:30 +00:00
|
|
|
import data.nat.basic data.bool
|
|
|
|
|
open bool nat
|
2015-01-25 04:23:21 +00:00
|
|
|
attribute nat.rec_on [reducible]
|
2014-11-12 23:03:30 +00:00
|
|
|
definition is_eq (a b : nat) : bool :=
|
|
|
|
|
nat.rec_on a
|
|
|
|
|
(λ b, nat.cases_on b tt (λb₁, ff))
|
|
|
|
|
(λ a₁ r₁ b, nat.cases_on b ff (λb₁, r₁ b₁))
|
|
|
|
|
b
|
|
|
|
|
|
|
|
|
|
example (a₁ : nat) (b : nat) : true :=
|
|
|
|
|
@nat.cases_on (λ (n : nat), true) b
|
|
|
|
|
true.intro
|
|
|
|
|
(λ (b₁ : _),
|
|
|
|
|
have aux : is_eq a₁ b₁ = is_eq (succ a₁) (succ b₁), from rfl,
|
|
|
|
|
true.intro)
|
