HomeHome Metamath Proof Explorer < Previous   Next >
Related theorems
Unicode version

Theorem funcnvuni 3580
Description: The union of a chain (with respect to inclusion) of single-rooted sets is single-rooted. (See funcnv 3573 for "single-rooted" definition.)
Assertion
Ref Expression
funcnvuni |- (A.f e. A (Fun `'f /\ A.g e. A (f (_ g \/ g (_ f)) -> Fun `'U.A)
Distinct variable group:   f,g,A

Proof of Theorem funcnvuni
StepHypRef Expression
1 cnveq 3308 . . . . . . . . . . 11 |- (f = v -> `'f = `'v)
2 funeq 3551 . . . . . . . . . . 11 |- (`'f = `'v -> (Fun `'f <-> Fun `'v))
31, 2syl 10 . . . . . . . . . 10 |- (f = v -> (Fun `'f <-> Fun `'v))
4 sseq1 2093 . . . . . . . . . . . 12 |- (f = v -> (f (_ g <-> v (_ g))
5 sseq2 2094 . . . . . . . . . . . 12 |- (f = v -> (g (_ f <-> g (_ v))
64, 5orbi12d 630 . . . . . . . . . . 11 |- (f = v -> ((f (_ g \/ g (_ f) <-> (v (_ g \/ g (_ v)))
76ralbidv 1670 . . . . . . . . . 10 |- (f = v -> (A.g e. A (f (_ g \/ g (_ f) <-> A.g e. A (v (_ g \/ g (_ v)))
83, 7anbi12d 631 . . . . . . . . 9 |- (f = v -> ((Fun `'f /\ A.g e. A (f (_ g \/ g (_ f)) <-> (Fun `'v /\ A.g e. A (v (_ g \/ g (_ v))))
98rcla4v 1880 . . . . . . . 8 |- (v e. A -> (A.f e. A (Fun `'f /\ A.g e. A (f (_ g \/ g (_ f)) -> (Fun `'v /\ A.g e. A (v (_ g \/ g (_ v))))
10 funeq 3551 . . . . . . . . . 10 |- (z = `'v -> (Fun z <-> Fun `'v))
1110biimprcd 156 . . . . . . . . 9 |- (Fun `'v -> (z = `'v -> Fun z))
12 sseq2 2094 . . . . . . . . . . . . . . 15 |- (g = x -> (v (_ g <-> v (_ x))
13 sseq1 2093 . . . . . . . . . . . . . . 15 |- (g = x -> (g (_ v <-> x (_ v))
1412, 13orbi12d 630 . . . . . . . . . . . . . 14 |- (g = x -> ((v (_ g \/ g (_ v) <-> (v (_ x \/ x (_ v)))
1514rcla4v 1880 . . . . . . . . . . . . 13 |- (x e. A -> (A.g e. A (v (_ g \/ g (_ v) -> (v (_ x \/ x (_ v)))
16 sseq12 2095 . . . . . . . . . . . . . . . . 17 |- ((z = `'v /\ w = `'x) -> (z (_ w <-> `'v (_ `'x))
1716ancoms 439 . . . . . . . . . . . . . . . 16 |- ((w = `'x /\ z = `'v) -> (z (_ w <-> `'v (_ `'x))
18 sseq12 2095 . . . . . . . . . . . . . . . 16 |- ((w = `'x /\ z = `'v) -> (w (_ z <-> `'x (_ `'v))
1917, 18orbi12d 630 . . . . . . . . . . . . . . 15 |- ((w = `'x /\ z = `'v) -> ((z (_ w \/ w (_ z) <-> (`'v (_ `'x \/ `'x (_ `'v)))
20 cnvss 3307 . . . . . . . . . . . . . . . 16 |- (v (_ x -> `'v (_ `'x)
21 cnvss 3307 . . . . . . . . . . . . . . . 16 |- (x (_ v -> `'x (_ `'v)
2220, 21orim12i 336 . . . . . . . . . . . . . . 15 |- ((v (_ x \/ x (_ v) -> (`'v (_ `'x \/ `'x (_ `'v))
2319, 22syl5cbir 211 . . . . . . . . . . . . . 14 |- ((v (_ x \/ x (_ v) -> ((w = `'x /\ z = `'v) -> (z (_ w \/ w (_ z)))
2423exp3a 376 . . . . . . . . . . . . 13 |- ((v (_ x \/ x (_ v) -> (w = `'x -> (z = `'v -> (z (_ w \/ w (_ z))))
2515, 24syl6com 53 . . . . . . . . . . . 12 |- (A.g e. A (v (_ g \/ g (_ v) -> (x e. A -> (w = `'x -> (z = `'v -> (z (_ w \/ w (_ z)))))
2625r19.23adv 1753 . . . . . . . . . . 11 |- (A.g e. A (v (_ g \/ g (_ v) -> (E.x e. A w = `'x -> (z = `'v -> (z (_ w \/ w (_ z))))
2726com23 32 . . . . . . . . . 10 |- (A.g e. A (v (_ g \/ g (_ v) -> (z = `'v -> (E.x e. A w = `'x -> (z (_ w \/ w (_ z))))
282719.21adv 1292 . . . . . . . . 9 |- (A.g e. A (v (_ g \/ g (_ v) -> (z = `'v -> A.w(E.x e. A w = `'x -> (z (_ w \/ w (_ z))))
2911, 28anim12ii 562 . . . . . . . 8 |- ((Fun `'v /\ A.g e. A (v (_ g \/ g (_ v)) -> (z = `'v -> (Fun z /\ A.w(E.x e. A w = `'x -> (z (_ w \/ w (_ z)))))
309, 29syl6com 53 . . . . . . 7 |- (A.f e. A (Fun `'f /\ A.g e. A (f (_ g \/ g (_ f)) -> (v e. A -> (z = `'v -> (Fun z /\ A.w(E.x e. A w = `'x -> (z (_ w \/ w (_ z))))))
3130r19.23adv 1753 . . . . . 6 |- (A.f e. A (Fun `'f /\ A.g e. A (f (_ g \/ g (_ f)) -> (E.v e. A z = `'v -> (Fun z /\ A.w(E.x e. A w = `'x -> (z (_ w \/ w (_ z)))))
32 cnveq 3308 . . . . . . . 8 |- (x = v -> `'x = `'v)
3332eqeq2d 1493 . . . . . . 7 |- (x = v -> (z = `'x <-> z = `'v))
3433cbvrexv 1808 . . . . . 6 |- (E.x e. A z = `'x <-> E.v e. A z = `'v)
3531, 34syl5ib 206 . . . . 5 |- (A.f e. A (Fun `'f /\ A.g e. A (f (_ g \/ g (_ f)) -> (E.x e. A z = `'x -> (Fun z /\ A.w(E.x e. A w = `'x -> (z (_ w \/ w (_ z)))))
363519.21aiv 1290 . . . 4 |- (A.f e. A (Fun `'f /\ A.g e. A (f (_ g \/ g (_ f)) -> A.z(E.x e. A z = `'x -> (Fun z /\ A.w(E.x e. A w = `'x -> (z (_ w \/ w (_ z)))))
37 df-ral 1656 . . . . 5 |- (A.z e. {y | E.x e. A y = `'x} (Fun z /\ A.w e. {y | E.x e. A y = `'x} (z (_ w \/ w (_ z)) <-> A.z(z e. {y | E.x e. A y = `'x} -> (Fun z /\ A.w e. {y | E.x e. A y = `'x} (z (_ w \/ w (_ z))))
38 visset 1820 . . . . . . . 8 |- z e. V
39 eqeq1 1488 . . . . . . . . 9 |- (y = z -> (y = `'x <-> z = `'x))
4039rexbidv 1671 . . . . . . . 8 |- (y = z -> (E.x e. A y = `'x <-> E.x e. A z = `'x))
4138, 40elab 1904 . . . . . . 7 |- (z e. {y | E.x e. A y = `'x} <-> E.x e. A z = `'x)
42 df-ral 1656 . . . . . . . . 9 |- (A.w e. {y | E.x e. A y = `'x} (z (_ w \/ w (_ z) <-> A.w(w e. {y | E.x e. A y = `'x} -> (z (_ w \/ w (_ z)))
43 visset 1820 . . . . . . . . . . . 12 |- w e. V
44 eqeq1 1488 . . . . . . . . . . . . 13 |- (y = w -> (y = `'x <-> w = `'x))
4544rexbidv 1671 . . . . . . . . . . . 12 |- (y = w -> (E.x e. A y = `'x <-> E.x e. A w = `'x))
4643, 45elab 1904 . . . . . . . . . . 11 |- (w e. {y | E.x e. A y = `'x} <-> E.x e. A w = `'x)
4746imbi1i 186 . . . . . . . . . 10 |- ((w e. {y | E.x e. A y = `'x} -> (z (_ w \/ w (_ z)) <-> (E.x e. A w = `'x -> (z (_ w \/ w (_ z)))
4847albii 1003 . . . . . . . . 9 |- (A.w(w e. {y | E.x e. A y = `'x} -> (z (_ w \/ w (_ z)) <-> A.w(E.x e. A w = `'x -> (z (_ w \/ w (_ z)))
4942, 48bitri 173 . . . . . . . 8 |- (A.w e. {y | E.x e. A y = `'x} (z (_ w \/ w (_ z) <-> A.w(E.x e. A w = `'x -> (z (_ w \/ w (_ z)))
5049anbi2i 483 . . . . . . 7 |- ((Fun z /\ A.w e. {y | E.x e. A y = `'x} (z (_ w \/ w (_ z)) <-> (Fun z /\ A.w(E.x e. A w = `'x -> (z (_ w \/ w (_ z))))
5141, 50imbi12i 188 . . . . . 6 |- ((z e. {y | E.x e. A y = `'x} -> (Fun z /\ A.w e. {y | E.x e. A y = `'x} (z (_ w \/ w (_ z))) <-> (E.x e. A z = `'x -> (Fun z /\ A.w(E.x e. A w = `'x -> (z (_ w \/ w (_ z)))))
5251albii 1003 . . . . 5 |- (A.z(z e. {y | E.x e. A y = `'x} -> (Fun z /\ A.w e. {y | E.x e. A y = `'x} (z (_ w \/ w (_ z))) <-> A.z(E.x e. A z = `'x -> (Fun z /\ A.w(E.x e. A w = `'x -> (z (_ w \/ w (_ z)))))
5337, 52bitr2i 174 . . . 4 |- (A.z(E.x e. A z = `'x -> (Fun z /\ A.w(E.x e. A w = `'x -> (z (_ w \/ w (_ z)))) <-> A.z e. {y | E.x e. A y = `'x} (Fun z /\ A.w e. {y | E.x e. A y = `'x} (z (_ w \/ w (_ z)))
5436, 53sylib 198 . . 3 |- (A.f e. A (Fun `'f /\ A.g e. A (f (_ g \/ g (_ f)) -> A.z e. {y | E.