| Step | Hyp | Ref
| Expression |
| 1 | | df-prop 38554 |
. . 3
⊢ PROP =
setrecs((𝑦 ∈ V ↦
{𝑥 ∣ (∃𝑧 ∈ 𝑦 (𝑥 = (prop¬‘𝑧) ∨ ∃𝑤 ∈ 𝑦 𝑥 = (𝑤prop→𝑧)) ∨ ∃𝑛 ∈ ℕ 𝑥 = (propvar ‘𝑛))})) |
| 2 | | dfprop1 38559 |
. . . . . . 7
⊢ {𝑥 ∣ (∃𝑧 ∈ PROP (𝑥 = (prop¬‘𝑧) ∨ ∃𝑤 ∈ PROP 𝑥 = (𝑤prop→𝑧)) ∨ ∃𝑛 ∈ ℕ 𝑥 = (propvar ‘𝑛))} ⊆ PROP |
| 3 | | sstr2 3938 |
. . . . . . 7
⊢ (𝑎 ⊆ {𝑥 ∣ (∃𝑧 ∈ PROP (𝑥 = (prop¬‘𝑧) ∨ ∃𝑤 ∈ PROP 𝑥 = (𝑤prop→𝑧)) ∨ ∃𝑛 ∈ ℕ 𝑥 = (propvar ‘𝑛))} → ({𝑥 ∣ (∃𝑧 ∈ PROP (𝑥 = (prop¬‘𝑧) ∨ ∃𝑤 ∈ PROP 𝑥 = (𝑤prop→𝑧)) ∨ ∃𝑛 ∈ ℕ 𝑥 = (propvar ‘𝑛))} ⊆ PROP → 𝑎 ⊆ PROP)) |
| 4 | 2, 3 | mpi 21 |
. . . . . 6
⊢ (𝑎 ⊆ {𝑥 ∣ (∃𝑧 ∈ PROP (𝑥 = (prop¬‘𝑧) ∨ ∃𝑤 ∈ PROP 𝑥 = (𝑤prop→𝑧)) ∨ ∃𝑛 ∈ ℕ 𝑥 = (propvar ‘𝑛))} → 𝑎 ⊆ PROP) |
| 5 | | rexeq 3315 |
. . . . . . . . . . . . 13
⊢ (𝑦 = 𝑎 → (∃𝑤 ∈ 𝑦 𝑥 = (𝑤prop→𝑧) ↔ ∃𝑤 ∈ 𝑎 𝑥 = (𝑤prop→𝑧))) |
| 6 | 5 | orbi2d 929 |
. . . . . . . . . . . 12
⊢ (𝑦 = 𝑎 → ((𝑥 = (prop¬‘𝑧) ∨ ∃𝑤 ∈ 𝑦 𝑥 = (𝑤prop→𝑧)) ↔ (𝑥 = (prop¬‘𝑧) ∨ ∃𝑤 ∈ 𝑎 𝑥 = (𝑤prop→𝑧)))) |
| 7 | 6 | rexeqbi1dv 3330 |
. . . . . . . . . . 11
⊢ (𝑦 = 𝑎 → (∃𝑧 ∈ 𝑦 (𝑥 = (prop¬‘𝑧) ∨ ∃𝑤 ∈ 𝑦 𝑥 = (𝑤prop→𝑧)) ↔ ∃𝑧 ∈ 𝑎 (𝑥 = (prop¬‘𝑧) ∨ ∃𝑤 ∈ 𝑎 𝑥 = (𝑤prop→𝑧)))) |
| 8 | 7 | orbi1d 930 |
. . . . . . . . . 10
⊢ (𝑦 = 𝑎 → ((∃𝑧 ∈ 𝑦 (𝑥 = (prop¬‘𝑧) ∨ ∃𝑤 ∈ 𝑦 𝑥 = (𝑤prop→𝑧)) ∨ ∃𝑛 ∈ ℕ 𝑥 = (propvar ‘𝑛)) ↔ (∃𝑧 ∈ 𝑎 (𝑥 = (prop¬‘𝑧) ∨ ∃𝑤 ∈ 𝑎 𝑥 = (𝑤prop→𝑧)) ∨ ∃𝑛 ∈ ℕ 𝑥 = (propvar ‘𝑛)))) |
| 9 | 8 | abbidv 2826 |
. . . . . . . . 9
⊢ (𝑦 = 𝑎 → {𝑥 ∣ (∃𝑧 ∈ 𝑦 (𝑥 = (prop¬‘𝑧) ∨ ∃𝑤 ∈ 𝑦 𝑥 = (𝑤prop→𝑧)) ∨ ∃𝑛 ∈ ℕ 𝑥 = (propvar ‘𝑛))} = {𝑥 ∣ (∃𝑧 ∈ 𝑎 (𝑥 = (prop¬‘𝑧) ∨ ∃𝑤 ∈ 𝑎 𝑥 = (𝑤prop→𝑧)) ∨ ∃𝑛 ∈ ℕ 𝑥 = (propvar ‘𝑛))}) |
| 10 | | eqid 2760 |
. . . . . . . . 9
⊢ (𝑦 ∈ V ↦ {𝑥 ∣ (∃𝑧 ∈ 𝑦 (𝑥 = (prop¬‘𝑧) ∨ ∃𝑤 ∈ 𝑦 𝑥 = (𝑤prop→𝑧)) ∨ ∃𝑛 ∈ ℕ 𝑥 = (propvar ‘𝑛))}) = (𝑦 ∈ V ↦ {𝑥 ∣ (∃𝑧 ∈ 𝑦 (𝑥 = (prop¬‘𝑧) ∨ ∃𝑤 ∈ 𝑦 𝑥 = (𝑤prop→𝑧)) ∨ ∃𝑛 ∈ ℕ 𝑥 = (propvar ‘𝑛))}) |
| 11 | | vex 3454 |
. . . . . . . . . 10
⊢ 𝑎 ∈ V |
| 12 | 11 | dfproplem 38555 |
. . . . . . . . 9
⊢ {𝑥 ∣ (∃𝑧 ∈ 𝑎 (𝑥 = (prop¬‘𝑧) ∨ ∃𝑤 ∈ 𝑎 𝑥 = (𝑤prop→𝑧)) ∨ ∃𝑛 ∈ ℕ 𝑥 = (propvar ‘𝑛))} ∈ V |
| 13 | 9, 10, 12 | fvmpt 6982 |
. . . . . . . 8
⊢ (𝑎 ∈ V → ((𝑦 ∈ V ↦ {𝑥 ∣ (∃𝑧 ∈ 𝑦 (𝑥 = (prop¬‘𝑧) ∨ ∃𝑤 ∈ 𝑦 𝑥 = (𝑤prop→𝑧)) ∨ ∃𝑛 ∈ ℕ 𝑥 = (propvar ‘𝑛))})‘𝑎) = {𝑥 ∣ (∃𝑧 ∈ 𝑎 (𝑥 = (prop¬‘𝑧) ∨ ∃𝑤 ∈ 𝑎 𝑥 = (𝑤prop→𝑧)) ∨ ∃𝑛 ∈ ℕ 𝑥 = (propvar ‘𝑛))}) |
| 14 | 13 | elv 3455 |
. . . . . . 7
⊢ ((𝑦 ∈ V ↦ {𝑥 ∣ (∃𝑧 ∈ 𝑦 (𝑥 = (prop¬‘𝑧) ∨ ∃𝑤 ∈ 𝑦 𝑥 = (𝑤prop→𝑧)) ∨ ∃𝑛 ∈ ℕ 𝑥 = (propvar ‘𝑛))})‘𝑎) = {𝑥 ∣ (∃𝑧 ∈ 𝑎 (𝑥 = (prop¬‘𝑧) ∨ ∃𝑤 ∈ 𝑎 𝑥 = (𝑤prop→𝑧)) ∨ ∃𝑛 ∈ ℕ 𝑥 = (propvar ‘𝑛))} |
| 15 | | ssrexv 4001 |
. . . . . . . . . 10
⊢ (𝑎 ⊆ PROP →
(∃𝑧 ∈ 𝑎 (𝑥 = (prop¬‘𝑧) ∨ ∃𝑤 ∈ 𝑎 𝑥 = (𝑤prop→𝑧)) → ∃𝑧 ∈ PROP (𝑥 = (prop¬‘𝑧) ∨ ∃𝑤 ∈ 𝑎 𝑥 = (𝑤prop→𝑧)))) |
| 16 | 15 | orim1d 981 |
. . . . . . . . 9
⊢ (𝑎 ⊆ PROP →
((∃𝑧 ∈ 𝑎 (𝑥 = (prop¬‘𝑧) ∨ ∃𝑤 ∈ 𝑎 𝑥 = (𝑤prop→𝑧)) ∨ ∃𝑛 ∈ ℕ 𝑥 = (propvar ‘𝑛)) → (∃𝑧 ∈ PROP (𝑥 = (prop¬‘𝑧) ∨ ∃𝑤 ∈ 𝑎 𝑥 = (𝑤prop→𝑧)) ∨ ∃𝑛 ∈ ℕ 𝑥 = (propvar ‘𝑛)))) |
| 17 | | ssrexv 4001 |
. . . . . . . . . . . 12
⊢ (𝑎 ⊆ PROP →
(∃𝑤 ∈ 𝑎 𝑥 = (𝑤prop→𝑧) → ∃𝑤 ∈ PROP 𝑥 = (𝑤prop→𝑧))) |
| 18 | 17 | orim2d 982 |
. . . . . . . . . . 11
⊢ (𝑎 ⊆ PROP → ((𝑥 = (prop¬‘𝑧) ∨ ∃𝑤 ∈ 𝑎 𝑥 = (𝑤prop→𝑧)) → (𝑥 = (prop¬‘𝑧) ∨ ∃𝑤 ∈ PROP 𝑥 = (𝑤prop→𝑧)))) |
| 19 | 18 | reximdv 3177 |
. . . . . . . . . 10
⊢ (𝑎 ⊆ PROP →
(∃𝑧 ∈ PROP
(𝑥 = (prop¬‘𝑧) ∨ ∃𝑤 ∈ 𝑎 𝑥 = (𝑤prop→𝑧)) → ∃𝑧 ∈ PROP (𝑥 = (prop¬‘𝑧) ∨ ∃𝑤 ∈ PROP 𝑥 = (𝑤prop→𝑧)))) |
| 20 | 19 | orim1d 981 |
. . . . . . . . 9
⊢ (𝑎 ⊆ PROP →
((∃𝑧 ∈ PROP
(𝑥 = (prop¬‘𝑧) ∨ ∃𝑤 ∈ 𝑎 𝑥 = (𝑤prop→𝑧)) ∨ ∃𝑛 ∈ ℕ 𝑥 = (propvar ‘𝑛)) → (∃𝑧 ∈ PROP (𝑥 = (prop¬‘𝑧) ∨ ∃𝑤 ∈ PROP 𝑥 = (𝑤prop→𝑧)) ∨ ∃𝑛 ∈ ℕ 𝑥 = (propvar ‘𝑛)))) |
| 21 | 16, 20 | syld 48 |
. . . . . . . 8
⊢ (𝑎 ⊆ PROP →
((∃𝑧 ∈ 𝑎 (𝑥 = (prop¬‘𝑧) ∨ ∃𝑤 ∈ 𝑎 𝑥 = (𝑤prop→𝑧)) ∨ ∃𝑛 ∈ ℕ 𝑥 = (propvar ‘𝑛)) → (∃𝑧 ∈ PROP (𝑥 = (prop¬‘𝑧) ∨ ∃𝑤 ∈ PROP 𝑥 = (𝑤prop→𝑧)) ∨ ∃𝑛 ∈ ℕ 𝑥 = (propvar ‘𝑛)))) |
| 22 | 21 | ss2abdv 4013 |
. . . . . . 7
⊢ (𝑎 ⊆ PROP → {𝑥 ∣ (∃𝑧 ∈ 𝑎 (𝑥 = (prop¬‘𝑧) ∨ ∃𝑤 ∈ 𝑎 𝑥 = (𝑤prop→𝑧)) ∨ ∃𝑛 ∈ ℕ 𝑥 = (propvar ‘𝑛))} ⊆ {𝑥 ∣ (∃𝑧 ∈ PROP (𝑥 = (prop¬‘𝑧) ∨ ∃𝑤 ∈ PROP 𝑥 = (𝑤prop→𝑧)) ∨ ∃𝑛 ∈ ℕ 𝑥 = (propvar ‘𝑛))}) |
| 23 | 14, 22 | eqsstrid 3969 |
. . . . . 6
⊢ (𝑎 ⊆ PROP → ((𝑦 ∈ V ↦ {𝑥 ∣ (∃𝑧 ∈ 𝑦 (𝑥 = (prop¬‘𝑧) ∨ ∃𝑤 ∈ 𝑦 𝑥 = (𝑤prop→𝑧)) ∨ ∃𝑛 ∈ ℕ 𝑥 = (propvar ‘𝑛))})‘𝑎) ⊆ {𝑥 ∣ (∃𝑧 ∈ PROP (𝑥 = (prop¬‘𝑧) ∨ ∃𝑤 ∈ PROP 𝑥 = (𝑤prop→𝑧)) ∨ ∃𝑛 ∈ ℕ 𝑥 = (propvar ‘𝑛))}) |
| 24 | 4, 23 | syl 18 |
. . . . 5
⊢ (𝑎 ⊆ {𝑥 ∣ (∃𝑧 ∈ PROP (𝑥 = (prop¬‘𝑧) ∨ ∃𝑤 ∈ PROP 𝑥 = (𝑤prop→𝑧)) ∨ ∃𝑛 ∈ ℕ 𝑥 = (propvar ‘𝑛))} → ((𝑦 ∈ V ↦ {𝑥 ∣ (∃𝑧 ∈ 𝑦 (𝑥 = (prop¬‘𝑧) ∨ ∃𝑤 ∈ 𝑦 𝑥 = (𝑤prop→𝑧)) ∨ ∃𝑛 ∈ ℕ 𝑥 = (propvar ‘𝑛))})‘𝑎) ⊆ {𝑥 ∣ (∃𝑧 ∈ PROP (𝑥 = (prop¬‘𝑧) ∨ ∃𝑤 ∈ PROP 𝑥 = (𝑤prop→𝑧)) ∨ ∃𝑛 ∈ ℕ 𝑥 = (propvar ‘𝑛))}) |
| 25 | 24 | ax-gen 1828 |
. . . 4
⊢
∀𝑎(𝑎 ⊆ {𝑥 ∣ (∃𝑧 ∈ PROP (𝑥 = (prop¬‘𝑧) ∨ ∃𝑤 ∈ PROP 𝑥 = (𝑤prop→𝑧)) ∨ ∃𝑛 ∈ ℕ 𝑥 = (propvar ‘𝑛))} → ((𝑦 ∈ V ↦ {𝑥 ∣ (∃𝑧 ∈ 𝑦 (𝑥 = (prop¬‘𝑧) ∨ ∃𝑤 ∈ 𝑦 𝑥 = (𝑤prop→𝑧)) ∨ ∃𝑛 ∈ ℕ 𝑥 = (propvar ‘𝑛))})‘𝑎) ⊆ {𝑥 ∣ (∃𝑧 ∈ PROP (𝑥 = (prop¬‘𝑧) ∨ ∃𝑤 ∈ PROP 𝑥 = (𝑤prop→𝑧)) ∨ ∃𝑛 ∈ ℕ 𝑥 = (propvar ‘𝑛))}) |
| 26 | 25 | a1i 11 |
. . 3
⊢ (⊤
→ ∀𝑎(𝑎 ⊆ {𝑥 ∣ (∃𝑧 ∈ PROP (𝑥 = (prop¬‘𝑧) ∨ ∃𝑤 ∈ PROP 𝑥 = (𝑤prop→𝑧)) ∨ ∃𝑛 ∈ ℕ 𝑥 = (propvar ‘𝑛))} → ((𝑦 ∈ V ↦ {𝑥 ∣ (∃𝑧 ∈ 𝑦 (𝑥 = (prop¬‘𝑧) ∨ ∃𝑤 ∈ 𝑦 𝑥 = (𝑤prop→𝑧)) ∨ ∃𝑛 ∈ ℕ 𝑥 = (propvar ‘𝑛))})‘𝑎) ⊆ {𝑥 ∣ (∃𝑧 ∈ PROP (𝑥 = (prop¬‘𝑧) ∨ ∃𝑤 ∈ PROP 𝑥 = (𝑤prop→𝑧)) ∨ ∃𝑛 ∈ ℕ 𝑥 = (propvar ‘𝑛))})) |
| 27 | 1, 26 | setrec2v 9935 |
. 2
⊢ (⊤
→ PROP ⊆ {𝑥
∣ (∃𝑧 ∈
PROP (𝑥 =
(prop¬‘𝑧) ∨
∃𝑤 ∈ PROP 𝑥 = (𝑤prop→𝑧)) ∨ ∃𝑛 ∈ ℕ 𝑥 = (propvar ‘𝑛))}) |
| 28 | 27 | mptru 1577 |
1
⊢ PROP
⊆ {𝑥 ∣
(∃𝑧 ∈ PROP
(𝑥 = (prop¬‘𝑧) ∨ ∃𝑤 ∈ PROP 𝑥 = (𝑤prop→𝑧)) ∨ ∃𝑛 ∈ ℕ 𝑥 = (propvar ‘𝑛))} |