| Step | Hyp | Ref
| Expression |
| 1 | | wv 64 |
. . . . 5
⊢ p:∗:∗ |
| 2 | | ax4e.1 |
. . . . . . 7
⊢ F:(α
→ ∗) |
| 3 | | ax4e.2 |
. . . . . . 7
⊢ A:α |
| 4 | 2, 3 | wc 50 |
. . . . . 6
⊢ (FA):∗ |
| 5 | | wal 134 |
. . . . . . 7
⊢ ∀:((α
→ ∗) → ∗) |
| 6 | | wim 137 |
. . . . . . . . 9
⊢ ⇒ :(∗
→ (∗ → ∗)) |
| 7 | | wv 64 |
. . . . . . . . . 10
⊢ x:α:α |
| 8 | 2, 7 | wc 50 |
. . . . . . . . 9
⊢ (Fx:α):∗ |
| 9 | 6, 8, 1 | wov 72 |
. . . . . . . 8
⊢ [(Fx:α) ⇒ p:∗]:∗ |
| 10 | 9 | wl 66 |
. . . . . . 7
⊢
λx:α [(Fx:α) ⇒ p:∗]:(α → ∗) |
| 11 | 5, 10 | wc 50 |
. . . . . 6
⊢ (∀λx:α
[(Fx:α)
⇒ p:∗]):∗ |
| 12 | 4, 11 | simpl 22 |
. . . . 5
⊢ ((FA), (∀λx:α
[(Fx:α)
⇒ p:∗]))⊧(FA) |
| 13 | 7, 3 | weqi 76 |
. . . . . . . . . 10
⊢ [x:α =
A]:∗ |
| 14 | 13 | id 25 |
. . . . . . . . 9
⊢ [x:α =
A]⊧[x:α =
A] |
| 15 | 2, 7, 14 | ceq2 90 |
. . . . . . . 8
⊢ [x:α =
A]⊧[(Fx:α) = (FA)] |
| 16 | 6, 8, 1, 15 | oveq1 99 |
. . . . . . 7
⊢ [x:α =
A]⊧[[(Fx:α) ⇒ p:∗] = [(FA) ⇒
p:∗]] |
| 17 | 9, 3, 16 | cla4v 152 |
. . . . . 6
⊢ (∀λx:α
[(Fx:α)
⇒ p:∗])⊧[(FA) ⇒
p:∗] |
| 18 | 17, 4 | adantl 56 |
. . . . 5
⊢ ((FA), (∀λx:α
[(Fx:α)
⇒ p:∗]))⊧[(FA) ⇒
p:∗] |
| 19 | 1, 12, 18 | mpd 156 |
. . . 4
⊢ ((FA), (∀λx:α
[(Fx:α)
⇒ p:∗]))⊧p:∗ |
| 20 | 19 | ex 158 |
. . 3
⊢ (FA)⊧[(∀λx:α
[(Fx:α)
⇒ p:∗]) ⇒ p:∗] |
| 21 | 20 | alrimiv 151 |
. 2
⊢ (FA)⊧(∀λp:∗ [(∀λx:α
[(Fx:α)
⇒ p:∗]) ⇒ p:∗]) |
| 22 | 2 | exval 143 |
. . 3
⊢
⊤⊧[(∃F) = (∀λp:∗ [(∀λx:α
[(Fx:α)
⇒ p:∗]) ⇒ p:∗])] |
| 23 | 4, 22 | a1i 28 |
. 2
⊢ (FA)⊧[(∃F) = (∀λp:∗ [(∀λx:α
[(Fx:α)
⇒ p:∗]) ⇒ p:∗])] |
| 24 | 21, 23 | mpbir 87 |
1
⊢ (FA)⊧(∃F) |