Users' Mathboxes Mathbox for Richard Penner < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >   Mathboxes  >  clcnvlem Structured version   Visualization version   GIF version

Theorem clcnvlem 43619
Description: When 𝐴, an upper bound of the closure, exists and certain substitutions hold the converse of the closure is equal to the closure of the converse. (Contributed by RP, 18-Oct-2020.)
Hypotheses
Ref Expression
clcnvlem.sub1 ((𝜑𝑥 = (𝑦 ∪ (𝑋𝑋))) → (𝜒𝜓))
clcnvlem.sub2 ((𝜑𝑦 = 𝑥) → (𝜓𝜒))
clcnvlem.sub3 (𝑥 = 𝐴 → (𝜓𝜃))
clcnvlem.ssub (𝜑𝑋𝐴)
clcnvlem.ubex (𝜑𝐴 ∈ V)
clcnvlem.clex (𝜑𝜃)
Assertion
Ref Expression
clcnvlem (𝜑 {𝑥 ∣ (𝑋𝑥𝜓)} = {𝑦 ∣ (𝑋𝑦𝜒)})
Distinct variable groups:   𝑥,𝐴   𝑥,𝑦,𝑋   𝜑,𝑥,𝑦   𝜓,𝑦   𝜒,𝑥   𝜃,𝑥
Allowed substitution hints:   𝜓(𝑥)   𝜒(𝑦)   𝜃(𝑦)   𝐴(𝑦)

Proof of Theorem clcnvlem
Dummy variable 𝑧 is distinct from all other variables.
StepHypRef Expression
1 clcnvlem.ubex . . . 4 (𝜑𝐴 ∈ V)
2 clcnvlem.ssub . . . . 5 (𝜑𝑋𝐴)
3 clcnvlem.clex . . . . 5 (𝜑𝜃)
42, 3jca 511 . . . 4 (𝜑 → (𝑋𝐴𝜃))
5 clcnvlem.sub3 . . . . 5 (𝑥 = 𝐴 → (𝜓𝜃))
65cleq2lem 43604 . . . 4 (𝑥 = 𝐴 → ((𝑋𝑥𝜓) ↔ (𝑋𝐴𝜃)))
71, 4, 6spcedv 3567 . . 3 (𝜑 → ∃𝑥(𝑋𝑥𝜓))
87cnvintabd 43599 . 2 (𝜑 {𝑥 ∣ (𝑋𝑥𝜓)} = {𝑧 ∈ 𝒫 (V × V) ∣ ∃𝑥(𝑧 = 𝑥 ∧ (𝑋𝑥𝜓))})
9 df-rab 3409 . . . . 5 {𝑧 ∈ 𝒫 (V × V) ∣ ∃𝑥(𝑧 = 𝑥 ∧ (𝑋𝑥𝜓))} = {𝑧 ∣ (𝑧 ∈ 𝒫 (V × V) ∧ ∃𝑥(𝑧 = 𝑥 ∧ (𝑋𝑥𝜓)))}
10 exsimpl 1868 . . . . . . . . . . 11 (∃𝑥(𝑧 = 𝑥 ∧ (𝑋𝑥𝜓)) → ∃𝑥 𝑧 = 𝑥)
11 relcnv 6078 . . . . . . . . . . . . 13 Rel 𝑥
12 releq 5742 . . . . . . . . . . . . 13 (𝑧 = 𝑥 → (Rel 𝑧 ↔ Rel 𝑥))
1311, 12mpbiri 258 . . . . . . . . . . . 12 (𝑧 = 𝑥 → Rel 𝑧)
1413exlimiv 1930 . . . . . . . . . . 11 (∃𝑥 𝑧 = 𝑥 → Rel 𝑧)
1510, 14syl 17 . . . . . . . . . 10 (∃𝑥(𝑧 = 𝑥 ∧ (𝑋𝑥𝜓)) → Rel 𝑧)
16 df-rel 5648 . . . . . . . . . 10 (Rel 𝑧𝑧 ⊆ (V × V))
1715, 16sylib 218 . . . . . . . . 9 (∃𝑥(𝑧 = 𝑥 ∧ (𝑋𝑥𝜓)) → 𝑧 ⊆ (V × V))
18 velpw 4571 . . . . . . . . . 10 (𝑧 ∈ 𝒫 (V × V) ↔ 𝑧 ⊆ (V × V))
1918bicomi 224 . . . . . . . . 9 (𝑧 ⊆ (V × V) ↔ 𝑧 ∈ 𝒫 (V × V))
2017, 19sylib 218 . . . . . . . 8 (∃𝑥(𝑧 = 𝑥 ∧ (𝑋𝑥𝜓)) → 𝑧 ∈ 𝒫 (V × V))
2120pm4.71ri 560 . . . . . . 7 (∃𝑥(𝑧 = 𝑥 ∧ (𝑋𝑥𝜓)) ↔ (𝑧 ∈ 𝒫 (V × V) ∧ ∃𝑥(𝑧 = 𝑥 ∧ (𝑋𝑥𝜓))))
2221bicomi 224 . . . . . 6 ((𝑧 ∈ 𝒫 (V × V) ∧ ∃𝑥(𝑧 = 𝑥 ∧ (𝑋𝑥𝜓))) ↔ ∃𝑥(𝑧 = 𝑥 ∧ (𝑋𝑥𝜓)))
2322abbii 2797 . . . . 5 {𝑧 ∣ (𝑧 ∈ 𝒫 (V × V) ∧ ∃𝑥(𝑧 = 𝑥 ∧ (𝑋𝑥𝜓)))} = {𝑧 ∣ ∃𝑥(𝑧 = 𝑥 ∧ (𝑋𝑥𝜓))}
249, 23eqtri 2753 . . . 4 {𝑧 ∈ 𝒫 (V × V) ∣ ∃𝑥(𝑧 = 𝑥 ∧ (𝑋𝑥𝜓))} = {𝑧 ∣ ∃𝑥(𝑧 = 𝑥 ∧ (𝑋𝑥𝜓))}
2524inteqi 4917 . . 3 {𝑧 ∈ 𝒫 (V × V) ∣ ∃𝑥(𝑧 = 𝑥 ∧ (𝑋𝑥𝜓))} = {𝑧 ∣ ∃𝑥(𝑧 = 𝑥 ∧ (𝑋𝑥𝜓))}
2625a1i 11 . 2 (𝜑 {𝑧 ∈ 𝒫 (V × V) ∣ ∃𝑥(𝑧 = 𝑥 ∧ (𝑋𝑥𝜓))} = {𝑧 ∣ ∃𝑥(𝑧 = 𝑥 ∧ (𝑋𝑥𝜓))})
27 vex 3454 . . . . . . 7 𝑦 ∈ V
2827cnvex 7904 . . . . . 6 𝑦 ∈ V
2928cnvex 7904 . . . . 5 𝑦 ∈ V
3029a1i 11 . . . 4 (𝜑𝑦 ∈ V)
311, 2ssexd 5282 . . . . . . . . . . 11 (𝜑𝑋 ∈ V)
3231difexd 5289 . . . . . . . . . 10 (𝜑 → (𝑋𝑋) ∈ V)
33 unexg 7722 . . . . . . . . . 10 ((𝑦 ∈ V ∧ (𝑋𝑋) ∈ V) → (𝑦 ∪ (𝑋𝑋)) ∈ V)
3428, 32, 33sylancr 587 . . . . . . . . 9 (𝜑 → (𝑦 ∪ (𝑋𝑋)) ∈ V)
35 inundif 4445 . . . . . . . . . . . . . 14 ((𝑋𝑋) ∪ (𝑋𝑋)) = 𝑋
36 cnvun 6118 . . . . . . . . . . . . . . . . . . . . 21 ((𝑋𝑋) ∪ (𝑋𝑋)) = ((𝑋𝑋) ∪ (𝑋𝑋))
3736sseq1i 3978 . . . . . . . . . . . . . . . . . . . 20 (((𝑋𝑋) ∪ (𝑋𝑋)) ⊆ 𝑦 ↔ ((𝑋𝑋) ∪ (𝑋𝑋)) ⊆ 𝑦)
3837biimpi 216 . . . . . . . . . . . . . . . . . . 19 (((𝑋𝑋) ∪ (𝑋𝑋)) ⊆ 𝑦 → ((𝑋𝑋) ∪ (𝑋𝑋)) ⊆ 𝑦)
3938unssad 4159 . . . . . . . . . . . . . . . . . 18 (((𝑋𝑋) ∪ (𝑋𝑋)) ⊆ 𝑦(𝑋𝑋) ⊆ 𝑦)
40 relcnv 6078 . . . . . . . . . . . . . . . . . . . . 21 Rel 𝑋
41 relin2 5779 . . . . . . . . . . . . . . . . . . . . 21 (Rel 𝑋 → Rel (𝑋𝑋))
4240, 41ax-mp 5 . . . . . . . . . . . . . . . . . . . 20 Rel (𝑋𝑋)
43 dfrel2 6165 . . . . . . . . . . . . . . . . . . . 20 (Rel (𝑋𝑋) ↔ (𝑋𝑋) = (𝑋𝑋))
4442, 43mpbi 230 . . . . . . . . . . . . . . . . . . 19 (𝑋𝑋) = (𝑋𝑋)
45 cnvss 5839 . . . . . . . . . . . . . . . . . . 19 ((𝑋𝑋) ⊆ 𝑦(𝑋𝑋) ⊆ 𝑦)
4644, 45eqsstrrid 3989 . . . . . . . . . . . . . . . . . 18 ((𝑋𝑋) ⊆ 𝑦 → (𝑋𝑋) ⊆ 𝑦)
4739, 46syl 17 . . . . . . . . . . . . . . . . 17 (((𝑋𝑋) ∪ (𝑋𝑋)) ⊆ 𝑦 → (𝑋𝑋) ⊆ 𝑦)
48 ssid 3972 . . . . . . . . . . . . . . . . 17 (𝑋𝑋) ⊆ (𝑋𝑋)
49 unss12 4154 . . . . . . . . . . . . . . . . 17 (((𝑋𝑋) ⊆ 𝑦 ∧ (𝑋𝑋) ⊆ (𝑋𝑋)) → ((𝑋𝑋) ∪ (𝑋𝑋)) ⊆ (𝑦 ∪ (𝑋𝑋)))
5047, 48, 49sylancl 586 . . . . . . . . . . . . . . . 16 (((𝑋𝑋) ∪ (𝑋𝑋)) ⊆ 𝑦 → ((𝑋𝑋) ∪ (𝑋𝑋)) ⊆ (𝑦 ∪ (𝑋𝑋)))
5150a1i 11 . . . . . . . . . . . . . . 15 (((𝑋𝑋) ∪ (𝑋𝑋)) = 𝑋 → (((𝑋𝑋) ∪ (𝑋𝑋)) ⊆ 𝑦 → ((𝑋𝑋) ∪ (𝑋𝑋)) ⊆ (𝑦 ∪ (𝑋𝑋))))
52 cnveq 5840 . . . . . . . . . . . . . . . 16 (((𝑋𝑋) ∪ (𝑋𝑋)) = 𝑋((𝑋𝑋) ∪ (𝑋𝑋)) = 𝑋)
5352sseq1d 3981 . . . . . . . . . . . . . . 15 (((𝑋𝑋) ∪ (𝑋𝑋)) = 𝑋 → (((𝑋𝑋) ∪ (𝑋𝑋)) ⊆ 𝑦𝑋𝑦))
54 sseq1 3975 . . . . . . . . . . . . . . 15 (((𝑋𝑋) ∪ (𝑋𝑋)) = 𝑋 → (((𝑋𝑋) ∪ (𝑋𝑋)) ⊆ (𝑦 ∪ (𝑋𝑋)) ↔ 𝑋 ⊆ (𝑦 ∪ (𝑋𝑋))))
5551, 53, 543imtr3d 293 . . . . . . . . . . . . . 14 (((𝑋𝑋) ∪ (𝑋𝑋)) = 𝑋 → (𝑋𝑦𝑋 ⊆ (𝑦 ∪ (𝑋𝑋))))
5635, 55ax-mp 5 . . . . . . . . . . . . 13 (𝑋𝑦𝑋 ⊆ (𝑦 ∪ (𝑋𝑋)))
57 sseq2 3976 . . . . . . . . . . . . 13 (𝑥 = (𝑦 ∪ (𝑋𝑋)) → (𝑋𝑥𝑋 ⊆ (𝑦 ∪ (𝑋𝑋))))
5856, 57imbitrrid 246 . . . . . . . . . . . 12 (𝑥 = (𝑦 ∪ (𝑋𝑋)) → (𝑋𝑦𝑋𝑥))
5958adantl 481 . . . . . . . . . . 11 ((𝜑𝑥 = (𝑦 ∪ (𝑋𝑋))) → (𝑋𝑦𝑋𝑥))
60 clcnvlem.sub1 . . . . . . . . . . 11 ((𝜑𝑥 = (𝑦 ∪ (𝑋𝑋))) → (𝜒𝜓))
6159, 60anim12d 609 . . . . . . . . . 10 ((𝜑𝑥 = (𝑦 ∪ (𝑋𝑋))) → ((𝑋𝑦𝜒) → (𝑋𝑥𝜓)))
62 cnvun 6118 . . . . . . . . . . . . 13 (𝑦 ∪ (𝑋𝑋)) = (𝑦(𝑋𝑋))
63 cnvnonrel 43584 . . . . . . . . . . . . . . 15 (𝑋𝑋) = ∅
64 0ss 4366 . . . . . . . . . . . . . . 15 ∅ ⊆ 𝑦
6563, 64eqsstri 3996 . . . . . . . . . . . . . 14 (𝑋𝑋) ⊆ 𝑦
66 ssequn2 4155 . . . . . . . . . . . . . 14 ((𝑋𝑋) ⊆ 𝑦 ↔ (𝑦(𝑋𝑋)) = 𝑦)
6765, 66mpbi 230 . . . . . . . . . . . . 13 (𝑦(𝑋𝑋)) = 𝑦
6862, 67eqtr2i 2754 . . . . . . . . . . . 12 𝑦 = (𝑦 ∪ (𝑋𝑋))
69 cnveq 5840 . . . . . . . . . . . 12 (𝑥 = (𝑦 ∪ (𝑋𝑋)) → 𝑥 = (𝑦 ∪ (𝑋𝑋)))
7068, 69eqtr4id 2784 . . . . . . . . . . 11 (𝑥 = (𝑦 ∪ (𝑋𝑋)) → 𝑦 = 𝑥)
7170adantl 481 . . . . . . . . . 10 ((𝜑𝑥 = (𝑦 ∪ (𝑋𝑋))) → 𝑦 = 𝑥)
7261, 71jctild 525 . . . . . . . . 9 ((𝜑𝑥 = (𝑦 ∪ (𝑋𝑋))) → ((𝑋𝑦𝜒) → (𝑦 = 𝑥 ∧ (𝑋𝑥𝜓))))
7334, 72spcimedv 3564 . . . . . . . 8 (𝜑 → ((𝑋𝑦𝜒) → ∃𝑥(𝑦 = 𝑥 ∧ (𝑋𝑥𝜓))))
7473imp 406 . . . . . . 7 ((𝜑 ∧ (𝑋𝑦𝜒)) → ∃𝑥(𝑦 = 𝑥 ∧ (𝑋𝑥𝜓)))
7574adantlr 715 . . . . . 6 (((𝜑𝑧 = 𝑦) ∧ (𝑋𝑦𝜒)) → ∃𝑥(𝑦 = 𝑥 ∧ (𝑋𝑥𝜓)))
76 eqeq1 2734 . . . . . . . . 9 (𝑧 = 𝑦 → (𝑧 = 𝑥𝑦 = 𝑥))
7776anbi1d 631 . . . . . . . 8 (𝑧 = 𝑦 → ((𝑧 = 𝑥 ∧ (𝑋𝑥𝜓)) ↔ (𝑦 = 𝑥 ∧ (𝑋𝑥𝜓))))
7877exbidv 1921 . . . . . . 7 (𝑧 = 𝑦 → (∃𝑥(𝑧 = 𝑥 ∧ (𝑋𝑥𝜓)) ↔ ∃𝑥(𝑦 = 𝑥 ∧ (𝑋𝑥𝜓))))
7978ad2antlr 727 . . . . . 6 (((𝜑𝑧 = 𝑦) ∧ (𝑋𝑦𝜒)) → (∃𝑥(𝑧 = 𝑥 ∧ (𝑋𝑥𝜓)) ↔ ∃𝑥(𝑦 = 𝑥 ∧ (𝑋𝑥𝜓))))
8075, 79mpbird 257 . . . . 5 (((𝜑𝑧 = 𝑦) ∧ (𝑋𝑦𝜒)) → ∃𝑥(𝑧 = 𝑥 ∧ (𝑋𝑥𝜓)))
8180ex 412 . . . 4 ((𝜑𝑧 = 𝑦) → ((𝑋𝑦𝜒) → ∃𝑥(𝑧 = 𝑥 ∧ (𝑋𝑥𝜓))))
82 cnvcnvss 6170 . . . . 5 𝑦𝑦
8382a1i 11 . . . 4 (𝜑𝑦𝑦)
8430, 81, 83intabssd 43515 . . 3 (𝜑 {𝑧 ∣ ∃𝑥(𝑧 = 𝑥 ∧ (𝑋𝑥𝜓))} ⊆ {𝑦 ∣ (𝑋𝑦𝜒)})
85 vex 3454 . . . . 5 𝑧 ∈ V
8685a1i 11 . . . 4 (𝜑𝑧 ∈ V)
87 eqtr 2750 . . . . . . . 8 ((𝑦 = 𝑧𝑧 = 𝑥) → 𝑦 = 𝑥)
88 cnvss 5839 . . . . . . . . . . . 12 (𝑋𝑥𝑋𝑥)
89 sseq2 3976 . . . . . . . . . . . 12 (𝑦 = 𝑥 → (𝑋𝑦𝑋𝑥))
9088, 89imbitrrid 246 . . . . . . . . . . 11 (𝑦 = 𝑥 → (𝑋𝑥𝑋𝑦))
9190adantl 481 . . . . . . . . . 10 ((𝜑𝑦 = 𝑥) → (𝑋𝑥𝑋𝑦))
92 clcnvlem.sub2 . . . . . . . . . 10 ((𝜑𝑦 = 𝑥) → (𝜓𝜒))
9391, 92anim12d 609 . . . . . . . . 9 ((𝜑𝑦 = 𝑥) → ((𝑋𝑥𝜓) → (𝑋𝑦𝜒)))
9493ex 412 . . . . . . . 8 (𝜑 → (𝑦 = 𝑥 → ((𝑋𝑥𝜓) → (𝑋𝑦𝜒))))
9587, 94syl5 34 . . . . . . 7 (𝜑 → ((𝑦 = 𝑧𝑧 = 𝑥) → ((𝑋𝑥𝜓) → (𝑋𝑦𝜒))))
9695impl 455 . . . . . 6 (((𝜑𝑦 = 𝑧) ∧ 𝑧 = 𝑥) → ((𝑋𝑥𝜓) → (𝑋𝑦𝜒)))
9796expimpd 453 . . . . 5 ((𝜑𝑦 = 𝑧) → ((𝑧 = 𝑥 ∧ (𝑋𝑥𝜓)) → (𝑋𝑦𝜒)))
9897exlimdv 1933 . . . 4 ((𝜑𝑦 = 𝑧) → (∃𝑥(𝑧 = 𝑥 ∧ (𝑋𝑥𝜓)) → (𝑋𝑦𝜒)))
99 ssid 3972 . . . . 5 𝑧𝑧
10099a1i 11 . . . 4 (𝜑𝑧𝑧)
10186, 98, 100intabssd 43515 . . 3 (𝜑 {𝑦 ∣ (𝑋𝑦𝜒)} ⊆ {𝑧 ∣ ∃𝑥(𝑧 = 𝑥 ∧ (𝑋𝑥𝜓))})
10284, 101eqssd 3967 . 2 (𝜑 {𝑧 ∣ ∃𝑥(𝑧 = 𝑥 ∧ (𝑋𝑥𝜓))} = {𝑦 ∣ (𝑋𝑦𝜒)})
1038, 26, 1023eqtrd 2769 1 (𝜑 {𝑥 ∣ (𝑋𝑥𝜓)} = {𝑦 ∣ (𝑋𝑦𝜒)})
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 206  wa 395   = wceq 1540  wex 1779  wcel 2109  {cab 2708  {crab 3408  Vcvv 3450  cdif 3914  cun 3915  cin 3916  wss 3917  c0 4299  𝒫 cpw 4566   cint 4913   × cxp 5639  ccnv 5640  Rel wrel 5646
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1795  ax-4 1809  ax-5 1910  ax-6 1967  ax-7 2008  ax-8 2111  ax-9 2119  ax-10 2142  ax-11 2158  ax-12 2178  ax-ext 2702  ax-sep 5254  ax-nul 5264  ax-pow 5323  ax-pr 5390  ax-un 7714
This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-3an 1088  df-tru 1543  df-fal 1553  df-ex 1780  df-nf 1784  df-sb 2066  df-mo 2534  df-eu 2563  df-clab 2709  df-cleq 2722  df-clel 2804  df-nfc 2879  df-ne 2927  df-ral 3046  df-rex 3055  df-rab 3409  df-v 3452  df-dif 3920  df-un 3922  df-in 3924  df-ss 3934  df-nul 4300  df-if 4492  df-pw 4568  df-sn 4593  df-pr 4595  df-op 4599  df-uni 4875  df-int 4914  df-br 5111  df-opab 5173  df-mpt 5192  df-id 5536  df-xp 5647  df-rel 5648  df-cnv 5649  df-co 5650  df-dm 5651  df-rn 5652  df-iota 6467  df-fun 6516  df-fv 6522  df-1st 7971  df-2nd 7972
This theorem is referenced by:  cnvtrucl0  43620  cnvrcl0  43621  cnvtrcl0  43622
  Copyright terms: Public domain W3C validator