2014-01-23 20:23:22 +00:00
|
|
|
Set: pp::colors
|
|
|
|
|
Set: pp::unicode
|
|
|
|
|
Assumed: a
|
|
|
|
|
Assumed: b
|
|
|
|
|
Assumed: c
|
|
|
|
|
⊥
|
|
|
|
|
trans (and_congr
|
|
|
|
|
(refl (a = 1))
|
2014-01-26 00:54:42 +00:00
|
|
|
(λ C::3 : a = 1,
|
|
|
|
|
trans (and_congr (refl (b = 0)) (λ C::2 : b = 0, congr (congr2 Nat::gt C::2) C::3))
|
2014-01-23 20:23:22 +00:00
|
|
|
(and_falsel (b = 0))))
|
|
|
|
|
(and_falsel (a = 1))
|
|
|
|
|
(a = 1 ∧ b = 0 ∧ b > a) = ⊥
|
