14 lines
463 B
Text
14 lines
463 B
Text
Set: pp::colors
|
|
Set: pp::unicode
|
|
Assumed: a
|
|
Assumed: b
|
|
Assumed: c
|
|
⊥
|
|
trans (and_congrr
|
|
(λ C::1 : b = 0 ∧ c = 1,
|
|
trans (congr (congr2 neq (congr1 (congr2 Nat::add (and_elimr C::1)) 0))
|
|
(congr1 (congr2 Nat::add (and_eliml C::1)) 1))
|
|
(a_neq_a 1))
|
|
(λ C::7 : ⊥, refl (b = 0 ∧ c = 1)))
|
|
(and_falser (b = 0 ∧ c = 1))
|
|
(c + 0 ≠ b + 1 ∧ b = 0 ∧ c = 1) = ⊥
|