| Step | Hyp | Ref
| Expression |
| 1 | | wal 134 |
. . . . . . . 8
⊢ ∀:((α
→ ∗) → ∗) |
| 2 | | ax7.1 |
. . . . . . . . 9
⊢ R:∗ |
| 3 | 2 | wl 66 |
. . . . . . . 8
⊢
λy:α R:(α
→ ∗) |
| 4 | 1, 3 | wc 50 |
. . . . . . 7
⊢ (∀λy:α
R):∗ |
| 5 | 4 | ax4 150 |
. . . . . 6
⊢ (∀λx:α (∀λy:α
R))⊧(∀λy:α
R) |
| 6 | 2 | ax4 150 |
. . . . . 6
⊢ (∀λy:α
R)⊧R |
| 7 | 5, 6 | syl 16 |
. . . . 5
⊢ (∀λx:α (∀λy:α
R))⊧R |
| 8 | 4 | wl 66 |
. . . . . 6
⊢
λx:α (∀λy:α
R):(α → ∗) |
| 9 | | wv 64 |
. . . . . 6
⊢ z:α:α |
| 10 | 1, 9 | ax-17 105 |
. . . . . 6
⊢
⊤⊧[(λx:α ∀z:α) = ∀] |
| 11 | 4, 9 | ax-hbl1 103 |
. . . . . 6
⊢
⊤⊧[(λx:α
λx:α (∀λy:α
R)z:α) =
λx:α (∀λy:α
R)] |
| 12 | 1, 8, 9, 10, 11 | hbc 110 |
. . . . 5
⊢
⊤⊧[(λx:α (∀λx:α (∀λy:α
R))z:α) =
(∀λx:α (∀λy:α
R))] |
| 13 | 7, 12 | alrimi 182 |
. . . 4
⊢ (∀λx:α (∀λy:α
R))⊧(∀λx:α
R) |
| 14 | 1, 9 | ax-17 105 |
. . . . 5
⊢
⊤⊧[(λy:α ∀z:α) = ∀] |
| 15 | 2, 9 | ax-hbl1 103 |
. . . . . . 7
⊢
⊤⊧[(λy:α
λy:α Rz:α) = λy:α
R] |
| 16 | 1, 3, 9, 14, 15 | hbc 110 |
. . . . . 6
⊢
⊤⊧[(λy:α (∀λy:α
R)z:α) =
(∀λy:α
R)] |
| 17 | 4, 9, 16 | hbl 112 |
. . . . 5
⊢
⊤⊧[(λy:α
λx:α (∀λy:α
R)z:α) =
λx:α (∀λy:α
R)] |
| 18 | 1, 8, 9, 14, 17 | hbc 110 |
. . . 4
⊢
⊤⊧[(λy:α (∀λx:α (∀λy:α
R))z:α) =
(∀λx:α (∀λy:α
R))] |
| 19 | 13, 18 | alrimi 182 |
. . 3
⊢ (∀λx:α (∀λy:α
R))⊧(∀λy:α (∀λx:α
R)) |
| 20 | | wtru 43 |
. . 3
⊢
⊤:∗ |
| 21 | 19, 20 | adantl 56 |
. 2
⊢ (⊤, (∀λx:α (∀λy:α
R)))⊧(∀λy:α (∀λx:α
R)) |
| 22 | 21 | ex 158 |
1
⊢
⊤⊧[(∀λx:α (∀λy:α
R)) ⇒ (∀λy:α (∀λx:α
R))] |