2015-12-09 00:11:11 -05:00
|
|
|
|
open eq
|
|
|
|
|
|
2015-04-30 13:36:43 -07:00
|
|
|
|
example (a b : nat) (h : empty) : a = b :=
|
|
|
|
|
by contradiction
|
|
|
|
|
|
|
|
|
|
example : ∀ (a b : nat), empty → a = b :=
|
|
|
|
|
by contradiction
|
|
|
|
|
|
2015-12-09 00:11:11 -05:00
|
|
|
|
example : ∀ (a b : nat), 0 = 1 :> ℕ → a = b :=
|
2015-04-30 13:36:43 -07:00
|
|
|
|
by contradiction
|
|
|
|
|
|
|
|
|
|
example : ∀ (a b : nat), id empty → a = b :=
|
|
|
|
|
by contradiction
|
|
|
|
|
|
2015-12-09 00:11:11 -05:00
|
|
|
|
example : ∀ (a b : nat), id (0 = 1 :> ℕ) → a = b :=
|
2015-04-30 13:36:43 -07:00
|
|
|
|
by contradiction
|