Proof of Theorem wfrlem15
Step | Hyp | Ref
| Expression |
1 | | wfrlem13.1 |
. . . . . 6
⊢ 𝑅 We 𝐴 |
2 | | wfrlem13.3 |
. . . . . 6
⊢ 𝐹 = wrecs(𝑅, 𝐴, 𝐺) |
3 | 1, 2 | wfrlem10 7768 |
. . . . 5
⊢ ((𝑧 ∈ (𝐴 ∖ dom 𝐹) ∧ Pred(𝑅, (𝐴 ∖ dom 𝐹), 𝑧) = ∅) → Pred(𝑅, 𝐴, 𝑧) = dom 𝐹) |
4 | | eldifi 3994 |
. . . . . . 7
⊢ (𝑧 ∈ (𝐴 ∖ dom 𝐹) → 𝑧 ∈ 𝐴) |
5 | | wfrlem13.2 |
. . . . . . 7
⊢ 𝑅 Se 𝐴 |
6 | | setlikespec 6007 |
. . . . . . 7
⊢ ((𝑧 ∈ 𝐴 ∧ 𝑅 Se 𝐴) → Pred(𝑅, 𝐴, 𝑧) ∈ V) |
7 | 4, 5, 6 | sylancl 577 |
. . . . . 6
⊢ (𝑧 ∈ (𝐴 ∖ dom 𝐹) → Pred(𝑅, 𝐴, 𝑧) ∈ V) |
8 | 7 | adantr 473 |
. . . . 5
⊢ ((𝑧 ∈ (𝐴 ∖ dom 𝐹) ∧ Pred(𝑅, (𝐴 ∖ dom 𝐹), 𝑧) = ∅) → Pred(𝑅, 𝐴, 𝑧) ∈ V) |
9 | 3, 8 | eqeltrrd 2868 |
. . . 4
⊢ ((𝑧 ∈ (𝐴 ∖ dom 𝐹) ∧ Pred(𝑅, (𝐴 ∖ dom 𝐹), 𝑧) = ∅) → dom 𝐹 ∈ V) |
10 | | snex 5188 |
. . . 4
⊢ {𝑧} ∈ V |
11 | | unexg 7289 |
. . . 4
⊢ ((dom
𝐹 ∈ V ∧ {𝑧} ∈ V) → (dom 𝐹 ∪ {𝑧}) ∈ V) |
12 | 9, 10, 11 | sylancl 577 |
. . 3
⊢ ((𝑧 ∈ (𝐴 ∖ dom 𝐹) ∧ Pred(𝑅, (𝐴 ∖ dom 𝐹), 𝑧) = ∅) → (dom 𝐹 ∪ {𝑧}) ∈ V) |
13 | | wfrlem13.4 |
. . . . . 6
⊢ 𝐶 = (𝐹 ∪ {〈𝑧, (𝐺‘(𝐹 ↾ Pred(𝑅, 𝐴, 𝑧)))〉}) |
14 | 1, 5, 2, 13 | wfrlem13 7771 |
. . . . 5
⊢ (𝑧 ∈ (𝐴 ∖ dom 𝐹) → 𝐶 Fn (dom 𝐹 ∪ {𝑧})) |
15 | 14 | adantr 473 |
. . . 4
⊢ ((𝑧 ∈ (𝐴 ∖ dom 𝐹) ∧ Pred(𝑅, (𝐴 ∖ dom 𝐹), 𝑧) = ∅) → 𝐶 Fn (dom 𝐹 ∪ {𝑧})) |
16 | 2 | wfrdmss 7765 |
. . . . . . 7
⊢ dom 𝐹 ⊆ 𝐴 |
17 | 4 | snssd 4616 |
. . . . . . 7
⊢ (𝑧 ∈ (𝐴 ∖ dom 𝐹) → {𝑧} ⊆ 𝐴) |
18 | | unss 4049 |
. . . . . . . 8
⊢ ((dom
𝐹 ⊆ 𝐴 ∧ {𝑧} ⊆ 𝐴) ↔ (dom 𝐹 ∪ {𝑧}) ⊆ 𝐴) |
19 | 18 | biimpi 208 |
. . . . . . 7
⊢ ((dom
𝐹 ⊆ 𝐴 ∧ {𝑧} ⊆ 𝐴) → (dom 𝐹 ∪ {𝑧}) ⊆ 𝐴) |
20 | 16, 17, 19 | sylancr 578 |
. . . . . 6
⊢ (𝑧 ∈ (𝐴 ∖ dom 𝐹) → (dom 𝐹 ∪ {𝑧}) ⊆ 𝐴) |
21 | 20 | adantr 473 |
. . . . 5
⊢ ((𝑧 ∈ (𝐴 ∖ dom 𝐹) ∧ Pred(𝑅, (𝐴 ∖ dom 𝐹), 𝑧) = ∅) → (dom 𝐹 ∪ {𝑧}) ⊆ 𝐴) |
22 | | elun 4015 |
. . . . . . . 8
⊢ (𝑦 ∈ (dom 𝐹 ∪ {𝑧}) ↔ (𝑦 ∈ dom 𝐹 ∨ 𝑦 ∈ {𝑧})) |
23 | | velsn 4457 |
. . . . . . . . 9
⊢ (𝑦 ∈ {𝑧} ↔ 𝑦 = 𝑧) |
24 | 23 | orbi2i 896 |
. . . . . . . 8
⊢ ((𝑦 ∈ dom 𝐹 ∨ 𝑦 ∈ {𝑧}) ↔ (𝑦 ∈ dom 𝐹 ∨ 𝑦 = 𝑧)) |
25 | 22, 24 | bitri 267 |
. . . . . . 7
⊢ (𝑦 ∈ (dom 𝐹 ∪ {𝑧}) ↔ (𝑦 ∈ dom 𝐹 ∨ 𝑦 = 𝑧)) |
26 | 2 | wfrdmcl 7767 |
. . . . . . . . . 10
⊢ (𝑦 ∈ dom 𝐹 → Pred(𝑅, 𝐴, 𝑦) ⊆ dom 𝐹) |
27 | | ssun3 4040 |
. . . . . . . . . 10
⊢
(Pred(𝑅, 𝐴, 𝑦) ⊆ dom 𝐹 → Pred(𝑅, 𝐴, 𝑦) ⊆ (dom 𝐹 ∪ {𝑧})) |
28 | 26, 27 | syl 17 |
. . . . . . . . 9
⊢ (𝑦 ∈ dom 𝐹 → Pred(𝑅, 𝐴, 𝑦) ⊆ (dom 𝐹 ∪ {𝑧})) |
29 | 28 | a1i 11 |
. . . . . . . 8
⊢ ((𝑧 ∈ (𝐴 ∖ dom 𝐹) ∧ Pred(𝑅, (𝐴 ∖ dom 𝐹), 𝑧) = ∅) → (𝑦 ∈ dom 𝐹 → Pred(𝑅, 𝐴, 𝑦) ⊆ (dom 𝐹 ∪ {𝑧}))) |
30 | | ssun1 4038 |
. . . . . . . . . 10
⊢ dom 𝐹 ⊆ (dom 𝐹 ∪ {𝑧}) |
31 | 3, 30 | syl6eqss 3912 |
. . . . . . . . 9
⊢ ((𝑧 ∈ (𝐴 ∖ dom 𝐹) ∧ Pred(𝑅, (𝐴 ∖ dom 𝐹), 𝑧) = ∅) → Pred(𝑅, 𝐴, 𝑧) ⊆ (dom 𝐹 ∪ {𝑧})) |
32 | | predeq3 5990 |
. . . . . . . . . 10
⊢ (𝑦 = 𝑧 → Pred(𝑅, 𝐴, 𝑦) = Pred(𝑅, 𝐴, 𝑧)) |
33 | 32 | sseq1d 3889 |
. . . . . . . . 9
⊢ (𝑦 = 𝑧 → (Pred(𝑅, 𝐴, 𝑦) ⊆ (dom 𝐹 ∪ {𝑧}) ↔ Pred(𝑅, 𝐴, 𝑧) ⊆ (dom 𝐹 ∪ {𝑧}))) |
34 | 31, 33 | syl5ibrcom 239 |
. . . . . . . 8
⊢ ((𝑧 ∈ (𝐴 ∖ dom 𝐹) ∧ Pred(𝑅, (𝐴 ∖ dom 𝐹), 𝑧) = ∅) → (𝑦 = 𝑧 → Pred(𝑅, 𝐴, 𝑦) ⊆ (dom 𝐹 ∪ {𝑧}))) |
35 | 29, 34 | jaod 845 |
. . . . . . 7
⊢ ((𝑧 ∈ (𝐴 ∖ dom 𝐹) ∧ Pred(𝑅, (𝐴 ∖ dom 𝐹), 𝑧) = ∅) → ((𝑦 ∈ dom 𝐹 ∨ 𝑦 = 𝑧) → Pred(𝑅, 𝐴, 𝑦) ⊆ (dom 𝐹 ∪ {𝑧}))) |
36 | 25, 35 | syl5bi 234 |
. . . . . 6
⊢ ((𝑧 ∈ (𝐴 ∖ dom 𝐹) ∧ Pred(𝑅, (𝐴 ∖ dom 𝐹), 𝑧) = ∅) → (𝑦 ∈ (dom 𝐹 ∪ {𝑧}) → Pred(𝑅, 𝐴, 𝑦) ⊆ (dom 𝐹 ∪ {𝑧}))) |
37 | 36 | ralrimiv 3132 |
. . . . 5
⊢ ((𝑧 ∈ (𝐴 ∖ dom 𝐹) ∧ Pred(𝑅, (𝐴 ∖ dom 𝐹), 𝑧) = ∅) → ∀𝑦 ∈ (dom 𝐹 ∪ {𝑧})Pred(𝑅, 𝐴, 𝑦) ⊆ (dom 𝐹 ∪ {𝑧})) |
38 | 21, 37 | jca 504 |
. . . 4
⊢ ((𝑧 ∈ (𝐴 ∖ dom 𝐹) ∧ Pred(𝑅, (𝐴 ∖ dom 𝐹), 𝑧) = ∅) → ((dom 𝐹 ∪ {𝑧}) ⊆ 𝐴 ∧ ∀𝑦 ∈ (dom 𝐹 ∪ {𝑧})Pred(𝑅, 𝐴, 𝑦) ⊆ (dom 𝐹 ∪ {𝑧}))) |
39 | 1, 5, 2, 13 | wfrlem14 7772 |
. . . . . 6
⊢ (𝑧 ∈ (𝐴 ∖ dom 𝐹) → (𝑦 ∈ (dom 𝐹 ∪ {𝑧}) → (𝐶‘𝑦) = (𝐺‘(𝐶 ↾ Pred(𝑅, 𝐴, 𝑦))))) |
40 | 39 | ralrimiv 3132 |
. . . . 5
⊢ (𝑧 ∈ (𝐴 ∖ dom 𝐹) → ∀𝑦 ∈ (dom 𝐹 ∪ {𝑧})(𝐶‘𝑦) = (𝐺‘(𝐶 ↾ Pred(𝑅, 𝐴, 𝑦)))) |
41 | 40 | adantr 473 |
. . . 4
⊢ ((𝑧 ∈ (𝐴 ∖ dom 𝐹) ∧ Pred(𝑅, (𝐴 ∖ dom 𝐹), 𝑧) = ∅) → ∀𝑦 ∈ (dom 𝐹 ∪ {𝑧})(𝐶‘𝑦) = (𝐺‘(𝐶 ↾ Pred(𝑅, 𝐴, 𝑦)))) |
42 | 15, 38, 41 | 3jca 1108 |
. . 3
⊢ ((𝑧 ∈ (𝐴 ∖ dom 𝐹) ∧ Pred(𝑅, (𝐴 ∖ dom 𝐹), 𝑧) = ∅) → (𝐶 Fn (dom 𝐹 ∪ {𝑧}) ∧ ((dom 𝐹 ∪ {𝑧}) ⊆ 𝐴 ∧ ∀𝑦 ∈ (dom 𝐹 ∪ {𝑧})Pred(𝑅, 𝐴, 𝑦) ⊆ (dom 𝐹 ∪ {𝑧})) ∧ ∀𝑦 ∈ (dom 𝐹 ∪ {𝑧})(𝐶‘𝑦) = (𝐺‘(𝐶 ↾ Pred(𝑅, 𝐴, 𝑦))))) |
43 | | fneq2 6278 |
. . . 4
⊢ (𝑥 = (dom 𝐹 ∪ {𝑧}) → (𝐶 Fn 𝑥 ↔ 𝐶 Fn (dom 𝐹 ∪ {𝑧}))) |
44 | | sseq1 3883 |
. . . . 5
⊢ (𝑥 = (dom 𝐹 ∪ {𝑧}) → (𝑥 ⊆ 𝐴 ↔ (dom 𝐹 ∪ {𝑧}) ⊆ 𝐴)) |
45 | | sseq2 3884 |
. . . . . 6
⊢ (𝑥 = (dom 𝐹 ∪ {𝑧}) → (Pred(𝑅, 𝐴, 𝑦) ⊆ 𝑥 ↔ Pred(𝑅, 𝐴, 𝑦) ⊆ (dom 𝐹 ∪ {𝑧}))) |
46 | 45 | raleqbi1dv 3344 |
. . . . 5
⊢ (𝑥 = (dom 𝐹 ∪ {𝑧}) → (∀𝑦 ∈ 𝑥 Pred(𝑅, 𝐴, 𝑦) ⊆ 𝑥 ↔ ∀𝑦 ∈ (dom 𝐹 ∪ {𝑧})Pred(𝑅, 𝐴, 𝑦) ⊆ (dom 𝐹 ∪ {𝑧}))) |
47 | 44, 46 | anbi12d 621 |
. . . 4
⊢ (𝑥 = (dom 𝐹 ∪ {𝑧}) → ((𝑥 ⊆ 𝐴 ∧ ∀𝑦 ∈ 𝑥 Pred(𝑅, 𝐴, 𝑦) ⊆ 𝑥) ↔ ((dom 𝐹 ∪ {𝑧}) ⊆ 𝐴 ∧ ∀𝑦 ∈ (dom 𝐹 ∪ {𝑧})Pred(𝑅, 𝐴, 𝑦) ⊆ (dom 𝐹 ∪ {𝑧})))) |
48 | | raleq 3346 |
. . . 4
⊢ (𝑥 = (dom 𝐹 ∪ {𝑧}) → (∀𝑦 ∈ 𝑥 (𝐶‘𝑦) = (𝐺‘(𝐶 ↾ Pred(𝑅, 𝐴, 𝑦))) ↔ ∀𝑦 ∈ (dom 𝐹 ∪ {𝑧})(𝐶‘𝑦) = (𝐺‘(𝐶 ↾ Pred(𝑅, 𝐴, 𝑦))))) |
49 | 43, 47, 48 | 3anbi123d 1415 |
. . 3
⊢ (𝑥 = (dom 𝐹 ∪ {𝑧}) → ((𝐶 Fn 𝑥 ∧ (𝑥 ⊆ 𝐴 ∧ ∀𝑦 ∈ 𝑥 Pred(𝑅, 𝐴, 𝑦) ⊆ 𝑥) ∧ ∀𝑦 ∈ 𝑥 (𝐶‘𝑦) = (𝐺‘(𝐶 ↾ Pred(𝑅, 𝐴, 𝑦)))) ↔ (𝐶 Fn (dom 𝐹 ∪ {𝑧}) ∧ ((dom 𝐹 ∪ {𝑧}) ⊆ 𝐴 ∧ ∀𝑦 ∈ (dom 𝐹 ∪ {𝑧})Pred(𝑅, 𝐴, 𝑦) ⊆ (dom 𝐹 ∪ {𝑧})) ∧ ∀𝑦 ∈ (dom 𝐹 ∪ {𝑧})(𝐶‘𝑦) = (𝐺‘(𝐶 ↾ Pred(𝑅, 𝐴, 𝑦)))))) |
50 | 12, 42, 49 | elabd 3584 |
. 2
⊢ ((𝑧 ∈ (𝐴 ∖ dom 𝐹) ∧ Pred(𝑅, (𝐴 ∖ dom 𝐹), 𝑧) = ∅) → ∃𝑥(𝐶 Fn 𝑥 ∧ (𝑥 ⊆ 𝐴 ∧ ∀𝑦 ∈ 𝑥 Pred(𝑅, 𝐴, 𝑦) ⊆ 𝑥) ∧ ∀𝑦 ∈ 𝑥 (𝐶‘𝑦) = (𝐺‘(𝐶 ↾ Pred(𝑅, 𝐴, 𝑦))))) |
51 | 10, 11 | mpan2 678 |
. . . . 5
⊢ (dom
𝐹 ∈ V → (dom
𝐹 ∪ {𝑧}) ∈ V) |
52 | | fnex 6806 |
. . . . 5
⊢ ((𝐶 Fn (dom 𝐹 ∪ {𝑧}) ∧ (dom 𝐹 ∪ {𝑧}) ∈ V) → 𝐶 ∈ V) |
53 | 51, 52 | sylan2 583 |
. . . 4
⊢ ((𝐶 Fn (dom 𝐹 ∪ {𝑧}) ∧ dom 𝐹 ∈ V) → 𝐶 ∈ V) |
54 | 15, 9, 53 | syl2anc 576 |
. . 3
⊢ ((𝑧 ∈ (𝐴 ∖ dom 𝐹) ∧ Pred(𝑅, (𝐴 ∖ dom 𝐹), 𝑧) = ∅) → 𝐶 ∈ V) |
55 | | fneq1 6277 |
. . . . . 6
⊢ (𝑓 = 𝐶 → (𝑓 Fn 𝑥 ↔ 𝐶 Fn 𝑥)) |
56 | | fveq1 6498 |
. . . . . . . 8
⊢ (𝑓 = 𝐶 → (𝑓‘𝑦) = (𝐶‘𝑦)) |
57 | | reseq1 5689 |
. . . . . . . . 9
⊢ (𝑓 = 𝐶 → (𝑓 ↾ Pred(𝑅, 𝐴, 𝑦)) = (𝐶 ↾ Pred(𝑅, 𝐴, 𝑦))) |
58 | 57 | fveq2d 6503 |
. . . . . . . 8
⊢ (𝑓 = 𝐶 → (𝐺‘(𝑓 ↾ Pred(𝑅, 𝐴, 𝑦))) = (𝐺‘(𝐶 ↾ Pred(𝑅, 𝐴, 𝑦)))) |
59 | 56, 58 | eqeq12d 2794 |
. . . . . . 7
⊢ (𝑓 = 𝐶 → ((𝑓‘𝑦) = (𝐺‘(𝑓 ↾ Pred(𝑅, 𝐴, 𝑦))) ↔ (𝐶‘𝑦) = (𝐺‘(𝐶 ↾ Pred(𝑅, 𝐴, 𝑦))))) |
60 | 59 | ralbidv 3148 |
. . . . . 6
⊢ (𝑓 = 𝐶 → (∀𝑦 ∈ 𝑥 (𝑓‘𝑦) = (𝐺‘(𝑓 ↾ Pred(𝑅, 𝐴, 𝑦))) ↔ ∀𝑦 ∈ 𝑥 (𝐶‘𝑦) = (𝐺‘(𝐶 ↾ Pred(𝑅, 𝐴, 𝑦))))) |
61 | 55, 60 | 3anbi13d 1417 |
. . . . 5
⊢ (𝑓 = 𝐶 → ((𝑓 Fn 𝑥 ∧ (𝑥 ⊆ 𝐴 ∧ ∀𝑦 ∈ 𝑥 Pred(𝑅, 𝐴, 𝑦) ⊆ 𝑥) ∧ ∀𝑦 ∈ 𝑥 (𝑓‘𝑦) = (𝐺‘(𝑓 ↾ Pred(𝑅, 𝐴, 𝑦)))) ↔ (𝐶 Fn 𝑥 ∧ (𝑥 ⊆ 𝐴 ∧ ∀𝑦 ∈ 𝑥 Pred(𝑅, 𝐴, 𝑦) ⊆ 𝑥) ∧ ∀𝑦 ∈ 𝑥 (𝐶‘𝑦) = (𝐺‘(𝐶 ↾ Pred(𝑅, 𝐴, 𝑦)))))) |
62 | 61 | exbidv 1880 |
. . . 4
⊢ (𝑓 = 𝐶 → (∃𝑥(𝑓 Fn 𝑥 ∧ (𝑥 ⊆ 𝐴 ∧ ∀𝑦 ∈ 𝑥 Pred(𝑅, 𝐴, 𝑦) ⊆ 𝑥) ∧ ∀𝑦 ∈ 𝑥 (𝑓‘𝑦) = (𝐺‘(𝑓 ↾ Pred(𝑅, 𝐴, 𝑦)))) ↔ ∃𝑥(𝐶 Fn 𝑥 ∧ (𝑥 ⊆ 𝐴 ∧ ∀𝑦 ∈ 𝑥 Pred(𝑅, 𝐴, 𝑦) ⊆ 𝑥) ∧ ∀𝑦 ∈ 𝑥 (𝐶‘𝑦) = (𝐺‘(𝐶 ↾ Pred(𝑅, 𝐴, 𝑦)))))) |
63 | 62 | elabg 3581 |
. . 3
⊢ (𝐶 ∈ V → (𝐶 ∈ {𝑓 ∣ ∃𝑥(𝑓 Fn 𝑥 ∧ (𝑥 ⊆ 𝐴 ∧ ∀𝑦 ∈ 𝑥 Pred(𝑅, 𝐴, 𝑦) ⊆ 𝑥) ∧ ∀𝑦 ∈ 𝑥 (𝑓‘𝑦) = (𝐺‘(𝑓 ↾ Pred(𝑅, 𝐴, 𝑦))))} ↔ ∃𝑥(𝐶 Fn 𝑥 ∧ (𝑥 ⊆ 𝐴 ∧ ∀𝑦 ∈ 𝑥 Pred(𝑅, 𝐴, 𝑦) ⊆ 𝑥) ∧ ∀𝑦 ∈ 𝑥 (𝐶‘𝑦) = (𝐺‘(𝐶 ↾ Pred(𝑅, 𝐴, 𝑦)))))) |
64 | 54, 63 | syl 17 |
. 2
⊢ ((𝑧 ∈ (𝐴 ∖ dom 𝐹) ∧ Pred(𝑅, (𝐴 ∖ dom 𝐹), 𝑧) = ∅) → (𝐶 ∈ {𝑓 ∣ ∃𝑥(𝑓 Fn 𝑥 ∧ (𝑥 ⊆ 𝐴 ∧ ∀𝑦 ∈ 𝑥 Pred(𝑅, 𝐴, 𝑦) ⊆ 𝑥) ∧ ∀𝑦 ∈ 𝑥 (𝑓‘𝑦) = (𝐺‘(𝑓 ↾ Pred(𝑅, 𝐴, 𝑦))))} ↔ ∃𝑥(𝐶 Fn 𝑥 ∧ (𝑥 ⊆ 𝐴 ∧ ∀𝑦 ∈ 𝑥 Pred(𝑅, 𝐴, 𝑦) ⊆ 𝑥) ∧ ∀𝑦 ∈ 𝑥 (𝐶‘𝑦) = (𝐺‘(𝐶 ↾ Pred(𝑅, 𝐴, 𝑦)))))) |
65 | 50, 64 | mpbird 249 |
1
⊢ ((𝑧 ∈ (𝐴 ∖ dom 𝐹) ∧ Pred(𝑅, (𝐴 ∖ dom 𝐹), 𝑧) = ∅) → 𝐶 ∈ {𝑓 ∣ ∃𝑥(𝑓 Fn 𝑥 ∧ (𝑥 ⊆ 𝐴 ∧ ∀𝑦 ∈ 𝑥 Pred(𝑅, 𝐴, 𝑦) ⊆ 𝑥) ∧ ∀𝑦 ∈ 𝑥 (𝑓‘𝑦) = (𝐺‘(𝑓 ↾ Pred(𝑅, 𝐴, 𝑦))))}) |