2014-01-25 18:49:36 +00:00
|
|
|
|
Set: pp::colors
|
|
|
|
|
Set: pp::unicode
|
|
|
|
|
Assumed: a
|
|
|
|
|
Assumed: b
|
|
|
|
|
Assumed: f
|
|
|
|
|
λ x : ℕ, a = 1 → x > f (λ y : ℕ, y + 1)
|
|
|
|
|
funext (λ x : ℕ,
|
|
|
|
|
imp_congr
|
|
|
|
|
(congr1 1 (congr2 eq (Nat::add_zeror a)))
|
2014-01-26 00:54:42 +00:00
|
|
|
|
(λ C::4 : a = 1, congr2 (Nat::gt x) (congr2 f (funext (λ y : ℕ, congr2 (Nat::add y) C::4)))))
|
2014-01-25 18:49:36 +00:00
|
|
|
|
λ x : ℕ, a = 1 → x = 2 → 2 > f (λ y : ℕ, y + 1 + 2)
|
|
|
|
|
funext (λ x : ℕ,
|
|
|
|
|
imp_congr
|
|
|
|
|
(congr1 1 (congr2 eq (Nat::add_zeror a)))
|
2014-01-26 00:54:42 +00:00
|
|
|
|
(λ C::8 : a = 1,
|
2014-01-25 18:49:36 +00:00
|
|
|
|
imp_congr
|
|
|
|
|
(refl (x = 2))
|
2014-01-26 00:54:42 +00:00
|
|
|
|
(λ C::5 : x = 2,
|
|
|
|
|
congr (congr2 Nat::gt C::5)
|
2014-01-25 18:49:36 +00:00
|
|
|
|
(congr2 f
|
2014-01-26 00:54:42 +00:00
|
|
|
|
(funext (λ y : ℕ, congr (congr2 Nat::add (congr2 (Nat::add y) C::8)) C::5))))))
|