| Step | Hyp | Ref
| Expression |
| 1 | | wal 134 |
. . . 4
⊢ ∀:((∗ → ∗) →
∗) |
| 2 | | wim 137 |
. . . . . 6
⊢ ⇒ :(∗
→ (∗ → ∗)) |
| 3 | | wal 134 |
. . . . . . 7
⊢ ∀:((α
→ ∗) → ∗) |
| 4 | | wv 64 |
. . . . . . . . . 10
⊢ p:(α
→ ∗):(α →
∗) |
| 5 | | wv 64 |
. . . . . . . . . 10
⊢ x:α:α |
| 6 | 4, 5 | wc 50 |
. . . . . . . . 9
⊢ (p:(α
→ ∗)x:α):∗ |
| 7 | | wv 64 |
. . . . . . . . 9
⊢ q:∗:∗ |
| 8 | 2, 6, 7 | wov 72 |
. . . . . . . 8
⊢ [(p:(α
→ ∗)x:α) ⇒ q:∗]:∗ |
| 9 | 8 | wl 66 |
. . . . . . 7
⊢
λx:α [(p:(α
→ ∗)x:α) ⇒ q:∗]:(α → ∗) |
| 10 | 3, 9 | wc 50 |
. . . . . 6
⊢ (∀λx:α
[(p:(α → ∗)x:α)
⇒ q:∗]):∗ |
| 11 | 2, 10, 7 | wov 72 |
. . . . 5
⊢ [(∀λx:α
[(p:(α → ∗)x:α)
⇒ q:∗]) ⇒ q:∗]:∗ |
| 12 | 11 | wl 66 |
. . . 4
⊢
λq:∗ [(∀λx:α
[(p:(α → ∗)x:α)
⇒ q:∗]) ⇒ q:∗]:(∗ →
∗) |
| 13 | 1, 12 | wc 50 |
. . 3
⊢ (∀λq:∗ [(∀λx:α
[(p:(α → ∗)x:α)
⇒ q:∗]) ⇒ q:∗]):∗ |
| 14 | 13 | wl 66 |
. 2
⊢
λp:(α → ∗) (∀λq:∗ [(∀λx:α
[(p:(α → ∗)x:α)
⇒ q:∗]) ⇒ q:∗]):((α → ∗) →
∗) |
| 15 | | df-ex 131 |
. 2
⊢
⊤⊧[∃ =
λp:(α → ∗) (∀λq:∗ [(∀λx:α
[(p:(α → ∗)x:α)
⇒ q:∗]) ⇒ q:∗])] |
| 16 | 14, 15 | eqtypri 81 |
1
⊢ ∃:((α
→ ∗) → ∗) |