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 41120
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 41105 . . . 4 (𝑥 = 𝐴 → ((𝑋𝑥𝜓) ↔ (𝑋𝐴𝜃)))
71, 4, 6spcedv 3527 . . 3 (𝜑 → ∃𝑥(𝑋𝑥𝜓))
87cnvintabd 41100 . 2 (𝜑 {𝑥 ∣ (𝑋𝑥𝜓)} = {𝑧 ∈ 𝒫 (V × V) ∣ ∃𝑥(𝑧 = 𝑥 ∧ (𝑋𝑥𝜓))})
9 df-rab 3072 . . . . 5 {𝑧 ∈ 𝒫 (V × V) ∣ ∃𝑥(𝑧 = 𝑥 ∧ (𝑋𝑥𝜓))} = {𝑧 ∣ (𝑧 ∈ 𝒫 (V × V) ∧ ∃𝑥(𝑧 = 𝑥 ∧ (𝑋𝑥𝜓)))}
10 exsimpl 1872 . . . . . . . . . . 11 (∃𝑥(𝑧 = 𝑥 ∧ (𝑋𝑥𝜓)) → ∃𝑥 𝑧 = 𝑥)
11 relcnv 6001 . . . . . . . . . . . . 13 Rel 𝑥
12 releq 5677 . . . . . . . . . . . . 13 (𝑧 = 𝑥 → (Rel 𝑧 ↔ Rel 𝑥))
1311, 12mpbiri 257 . . . . . . . . . . . 12 (𝑧 = 𝑥 → Rel 𝑧)
1413exlimiv 1934 . . . . . . . . . . 11 (∃𝑥 𝑧 = 𝑥 → Rel 𝑧)
1510, 14syl 17 . . . . . . . . . 10 (∃𝑥(𝑧 = 𝑥 ∧ (𝑋𝑥𝜓)) → Rel 𝑧)
16 df-rel 5587 . . . . . . . . . 10 (Rel 𝑧𝑧 ⊆ (V × V))
1715, 16sylib 217 . . . . . . . . 9 (∃𝑥(𝑧 = 𝑥 ∧ (𝑋𝑥𝜓)) → 𝑧 ⊆ (V × V))
18 velpw 4535 . . . . . . . . . 10 (𝑧 ∈ 𝒫 (V × V) ↔ 𝑧 ⊆ (V × V))
1918bicomi 223 . . . . . . . . 9 (𝑧 ⊆ (V × V) ↔ 𝑧 ∈ 𝒫 (V × V))
2017, 19sylib 217 . . . . . . . 8 (∃𝑥(𝑧 = 𝑥 ∧ (𝑋𝑥𝜓)) → 𝑧 ∈ 𝒫 (V × V))
2120pm4.71ri 560 . . . . . . 7 (∃𝑥(𝑧 = 𝑥 ∧ (𝑋𝑥𝜓)) ↔ (𝑧 ∈ 𝒫 (V × V) ∧ ∃𝑥(𝑧 = 𝑥 ∧ (𝑋𝑥𝜓))))
2221bicomi 223 . . . . . 6 ((𝑧 ∈ 𝒫 (V × V) ∧ ∃𝑥(𝑧 = 𝑥 ∧ (𝑋𝑥𝜓))) ↔ ∃𝑥(𝑧 = 𝑥 ∧ (𝑋𝑥𝜓)))
2322abbii 2809 . . . . 5 {𝑧 ∣ (𝑧 ∈ 𝒫 (V × V) ∧ ∃𝑥(𝑧 = 𝑥 ∧ (𝑋𝑥𝜓)))} = {𝑧 ∣ ∃𝑥(𝑧 = 𝑥 ∧ (𝑋𝑥𝜓))}
249, 23eqtri 2766 . . . 4 {𝑧 ∈ 𝒫 (V × V) ∣ ∃𝑥(𝑧 = 𝑥 ∧ (𝑋𝑥𝜓))} = {𝑧 ∣ ∃𝑥(𝑧 = 𝑥 ∧ (𝑋𝑥𝜓))}
2524inteqi 4880 . . 3 {𝑧 ∈ 𝒫 (V × V) ∣ ∃𝑥(𝑧 = 𝑥 ∧ (𝑋𝑥𝜓))} = {𝑧 ∣ ∃𝑥(𝑧 = 𝑥 ∧ (𝑋𝑥𝜓))}
2625a1i 11 . 2 (𝜑 {𝑧 ∈ 𝒫 (V × V) ∣ ∃𝑥(𝑧 = 𝑥 ∧ (𝑋𝑥𝜓))} = {𝑧 ∣ ∃𝑥(𝑧 = 𝑥 ∧ (𝑋𝑥𝜓))})
27 vex 3426 . . . . . . 7 𝑦 ∈ V
2827cnvex 7746 . . . . . 6 𝑦 ∈ V
2928cnvex 7746 . . . . 5 𝑦 ∈ V
3029a1i 11 . . . 4 (𝜑𝑦 ∈ V)
311, 2ssexd 5243 . . . . . . . . . . 11 (𝜑𝑋 ∈ V)
3231difexd 5248 . . . . . . . . . 10 (𝜑 → (𝑋𝑋) ∈ V)
33 unexg 7577 . . . . . . . . . 10 ((𝑦 ∈ V ∧ (𝑋𝑋) ∈ V) → (𝑦 ∪ (𝑋𝑋)) ∈ V)
3428, 32, 33sylancr 586 . . . . . . . . 9 (𝜑 → (𝑦 ∪ (𝑋𝑋)) ∈ V)
35 inundif 4409 . . . . . . . . . . . . . 14 ((𝑋𝑋) ∪ (𝑋𝑋)) = 𝑋
36 cnvun 6035 . . . . . . . . . . . . . . . . . . . . 21 ((𝑋𝑋) ∪ (𝑋𝑋)) = ((𝑋𝑋) ∪ (𝑋𝑋))
3736sseq1i 3945 . . . . . . . . . . . . . . . . . . . 20 (((𝑋𝑋) ∪ (𝑋𝑋)) ⊆ 𝑦 ↔ ((𝑋𝑋) ∪ (𝑋𝑋)) ⊆ 𝑦)
3837biimpi 215 . . . . . . . . . . . . . . . . . . 19 (((𝑋𝑋) ∪ (𝑋𝑋)) ⊆ 𝑦 → ((𝑋𝑋) ∪ (𝑋𝑋)) ⊆ 𝑦)
3938unssad 4117 . . . . . . . . . . . . . . . . . 18 (((𝑋𝑋) ∪ (𝑋𝑋)) ⊆ 𝑦(𝑋𝑋) ⊆ 𝑦)
40 relcnv 6001 . . . . . . . . . . . . . . . . . . . . 21 Rel 𝑋
41 relin2 5712 . . . . . . . . . . . . . . . . . . . . 21 (Rel 𝑋 → Rel (𝑋𝑋))
4240, 41ax-mp 5 . . . . . . . . . . . . . . . . . . . 20 Rel (𝑋𝑋)
43 dfrel2 6081 . . . . . . . . . . . . . . . . . . . 20 (Rel (𝑋𝑋) ↔ (𝑋𝑋) = (𝑋𝑋))
4442, 43mpbi 229 . . . . . . . . . . . . . . . . . . 19 (𝑋𝑋) = (𝑋𝑋)
45 cnvss 5770 . . . . . . . . . . . . . . . . . . 19 ((𝑋𝑋) ⊆ 𝑦(𝑋𝑋) ⊆ 𝑦)
4644, 45eqsstrrid 3966 . . . . . . . . . . . . . . . . . 18 ((𝑋𝑋) ⊆ 𝑦 → (𝑋𝑋) ⊆ 𝑦)
4739, 46syl 17 . . . . . . . . . . . . . . . . 17 (((𝑋𝑋) ∪ (𝑋𝑋)) ⊆ 𝑦 → (𝑋𝑋) ⊆ 𝑦)
48 ssid 3939 . . . . . . . . . . . . . . . . 17 (𝑋𝑋) ⊆ (𝑋𝑋)
49 unss12 4112 . . . . . . . . . . . . . . . . 17 (((𝑋𝑋) ⊆ 𝑦 ∧ (𝑋𝑋) ⊆ (𝑋𝑋)) → ((𝑋𝑋) ∪ (𝑋𝑋)) ⊆ (𝑦 ∪ (𝑋𝑋)))
5047, 48, 49sylancl 585 . . . . . . . . . . . . . . . 16 (((𝑋𝑋) ∪ (𝑋𝑋)) ⊆ 𝑦 → ((𝑋𝑋) ∪ (𝑋𝑋)) ⊆ (𝑦 ∪ (𝑋𝑋)))
5150a1i 11 . . . . . . . . . . . . . . 15 (((𝑋𝑋) ∪ (𝑋𝑋)) = 𝑋 → (((𝑋𝑋) ∪ (𝑋𝑋)) ⊆ 𝑦 → ((𝑋𝑋) ∪ (𝑋𝑋)) ⊆ (𝑦 ∪ (𝑋𝑋))))
52 cnveq 5771 . . . . . . . . . . . . . . . 16 (((𝑋𝑋) ∪ (𝑋𝑋)) = 𝑋((𝑋𝑋) ∪ (𝑋𝑋)) = 𝑋)
5352sseq1d 3948 . . . . . . . . . . . . . . 15 (((𝑋𝑋) ∪ (𝑋𝑋)) = 𝑋 → (((𝑋𝑋) ∪ (𝑋𝑋)) ⊆ 𝑦𝑋𝑦))
54 sseq1 3942 . . . . . . . . . . . . . . 15 (((𝑋𝑋) ∪ (𝑋𝑋)) = 𝑋 → (((𝑋𝑋) ∪ (𝑋𝑋)) ⊆ (𝑦 ∪ (𝑋𝑋)) ↔ 𝑋 ⊆ (𝑦 ∪ (𝑋𝑋))))
5551, 53, 543imtr3d 292 . . . . . . . . . . . . . 14 (((𝑋𝑋) ∪ (𝑋𝑋)) = 𝑋 → (𝑋𝑦𝑋 ⊆ (𝑦 ∪ (𝑋𝑋))))
5635, 55ax-mp 5 . . . . . . . . . . . . 13 (𝑋𝑦𝑋 ⊆ (𝑦 ∪ (𝑋𝑋)))
57 sseq2 3943 . . . . . . . . . . . . 13 (𝑥 = (𝑦 ∪ (𝑋𝑋)) → (𝑋𝑥𝑋 ⊆ (𝑦 ∪ (𝑋𝑋))))
5856, 57syl5ibr 245 . . . . . . . . . . . 12 (𝑥 = (𝑦 ∪ (𝑋𝑋)) → (𝑋𝑦𝑋𝑥))
5958adantl 481 . . . . . . . . . . 11 ((𝜑𝑥 = (𝑦 ∪ (𝑋𝑋))) → (𝑋𝑦𝑋𝑥))
60 clcnvlem.sub1 . . . . . . . . . . 11 ((𝜑𝑥 = (𝑦 ∪ (𝑋𝑋))) → (𝜒𝜓))
6159, 60anim12d 608 . . . . . . . . . 10 ((𝜑𝑥 = (𝑦 ∪ (𝑋𝑋))) → ((𝑋𝑦𝜒) → (𝑋𝑥𝜓)))
62 cnvun 6035 . . . . . . . . . . . . 13 (𝑦 ∪ (𝑋𝑋)) = (𝑦(𝑋𝑋))
63 cnvnonrel 41085 . . . . . . . . . . . . . . 15 (𝑋𝑋) = ∅
64 0ss 4327 . . . . . . . . . . . . . . 15 ∅ ⊆ 𝑦
6563, 64eqsstri 3951 . . . . . . . . . . . . . 14 (𝑋𝑋) ⊆ 𝑦
66 ssequn2 4113 . . . . . . . . . . . . . 14 ((𝑋𝑋) ⊆ 𝑦 ↔ (𝑦(𝑋𝑋)) = 𝑦)
6765, 66mpbi 229 . . . . . . . . . . . . 13 (𝑦(𝑋𝑋)) = 𝑦
6862, 67eqtr2i 2767 . . . . . . . . . . . 12 𝑦 = (𝑦 ∪ (𝑋𝑋))
69 cnveq 5771 . . . . . . . . . . . 12 (𝑥 = (𝑦 ∪ (𝑋𝑋)) → 𝑥 = (𝑦 ∪ (𝑋𝑋)))
7068, 69eqtr4id 2798 . . . . . . . . . . 11 (𝑥 = (𝑦 ∪ (𝑋𝑋)) → 𝑦 = 𝑥)
7170adantl 481 . . . . . . . . . 10 ((𝜑𝑥 = (𝑦 ∪ (𝑋𝑋))) → 𝑦 = 𝑥)
7261, 71jctild 525 . . . . . . . . 9 ((𝜑𝑥 = (𝑦 ∪ (𝑋𝑋))) → ((𝑋𝑦𝜒) → (𝑦 = 𝑥 ∧ (𝑋𝑥𝜓))))
7334, 72spcimedv 3524 . . . . . . . 8 (𝜑 → ((𝑋𝑦𝜒) → ∃𝑥(𝑦 = 𝑥 ∧ (𝑋𝑥𝜓))))
7473imp 406 . . . . . . 7 ((𝜑 ∧ (𝑋𝑦𝜒)) → ∃𝑥(𝑦 = 𝑥 ∧ (𝑋𝑥𝜓)))
7574adantlr 711 . . . . . 6 (((𝜑𝑧 = 𝑦) ∧ (𝑋𝑦𝜒)) → ∃𝑥(𝑦 = 𝑥 ∧ (𝑋𝑥𝜓)))
76 eqeq1 2742 . . . . . . . . 9 (𝑧 = 𝑦 → (𝑧 = 𝑥𝑦 = 𝑥))
7776anbi1d 629 . . . . . . . 8 (𝑧 = 𝑦 → ((𝑧 = 𝑥 ∧ (𝑋𝑥𝜓)) ↔ (𝑦 = 𝑥 ∧ (𝑋𝑥𝜓))))
7877exbidv 1925 . . . . . . 7 (𝑧 = 𝑦 → (∃𝑥(𝑧 = 𝑥 ∧ (𝑋𝑥𝜓)) ↔ ∃𝑥(𝑦 = 𝑥 ∧ (𝑋𝑥𝜓))))
7978ad2antlr 723 . . . . . 6 (((𝜑𝑧 = 𝑦) ∧ (𝑋𝑦𝜒)) → (∃𝑥(𝑧 = 𝑥 ∧ (𝑋𝑥𝜓)) ↔ ∃𝑥(𝑦 = 𝑥 ∧ (𝑋𝑥𝜓))))
8075, 79mpbird 256 . . . . 5 (((𝜑𝑧 = 𝑦) ∧ (𝑋𝑦𝜒)) → ∃𝑥(𝑧 = 𝑥 ∧ (𝑋𝑥𝜓)))
8180ex 412 . . . 4 ((𝜑𝑧 = 𝑦) → ((𝑋𝑦𝜒) → ∃𝑥(𝑧 = 𝑥 ∧ (𝑋𝑥𝜓))))
82 cnvcnvss 6086 . . . . 5 𝑦𝑦
8382a1i 11 . . . 4 (𝜑𝑦𝑦)
8430, 81, 83intabssd 41024 . . 3 (𝜑 {𝑧 ∣ ∃𝑥(𝑧 = 𝑥 ∧ (𝑋𝑥𝜓))} ⊆ {𝑦 ∣ (𝑋𝑦𝜒)})
85 vex 3426 . . . . 5 𝑧 ∈ V
8685a1i 11 . . . 4 (𝜑𝑧 ∈ V)
87 eqtr 2761 . . . . . . . 8 ((𝑦 = 𝑧𝑧 = 𝑥) → 𝑦 = 𝑥)
88 cnvss 5770 . . . . . . . . . . . 12 (𝑋𝑥𝑋𝑥)
89 sseq2 3943 . . . . . . . . . . . 12 (𝑦 = 𝑥 → (𝑋𝑦𝑋𝑥))
9088, 89syl5ibr 245 . . . . . . . . . . 11 (𝑦 = 𝑥 → (𝑋𝑥𝑋𝑦))
9190adantl 481 . . . . . . . . . 10 ((𝜑𝑦 = 𝑥) → (𝑋𝑥𝑋𝑦))
92 clcnvlem.sub2 . . . . . . . . . 10 ((𝜑𝑦 = 𝑥) → (𝜓𝜒))
9391, 92anim12d 608 . . . . . . . . 9 ((𝜑𝑦 = 𝑥) → ((𝑋𝑥𝜓) → (𝑋𝑦𝜒)))
9493ex 412 . . . . . . . 8 (𝜑 → (𝑦 = 𝑥 → ((𝑋𝑥𝜓) → (𝑋𝑦𝜒))))
9587, 94syl5 34 . . . . . . 7 (𝜑 → ((𝑦 = 𝑧𝑧 = 𝑥) → ((𝑋𝑥𝜓) → (𝑋𝑦𝜒))))
9695impl 455 . . . . . 6 (((𝜑𝑦 = 𝑧) ∧ 𝑧 = 𝑥) → ((𝑋𝑥𝜓) → (𝑋𝑦𝜒)))
9796expimpd 453 . . . . 5 ((𝜑𝑦 = 𝑧) → ((𝑧 = 𝑥 ∧ (𝑋𝑥𝜓)) → (𝑋𝑦𝜒)))
9897exlimdv 1937 . . . 4 ((𝜑𝑦 = 𝑧) → (∃𝑥(𝑧 = 𝑥 ∧ (𝑋𝑥𝜓)) → (𝑋𝑦𝜒)))
99 ssid 3939 . . . . 5 𝑧𝑧
10099a1i 11 . . . 4 (𝜑𝑧𝑧)
10186, 98, 100intabssd 41024 . . 3 (𝜑 {𝑦 ∣ (𝑋𝑦𝜒)} ⊆ {𝑧 ∣ ∃𝑥(𝑧 = 𝑥 ∧ (𝑋𝑥𝜓))})
10284, 101eqssd 3934 . 2 (𝜑 {𝑧 ∣ ∃𝑥(𝑧 = 𝑥 ∧ (𝑋𝑥𝜓))} = {𝑦 ∣ (𝑋𝑦𝜒)})
1038, 26, 1023eqtrd 2782 1 (𝜑 {𝑥 ∣ (𝑋𝑥𝜓)} = {𝑦 ∣ (𝑋𝑦𝜒)})
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 205  wa 395   = wceq 1539  wex 1783  wcel 2108  {cab 2715  {crab 3067  Vcvv 3422  cdif 3880  cun 3881  cin 3882  wss 3883  c0 4253  𝒫 cpw 4530   cint 4876   × cxp 5578  ccnv 5579  Rel wrel 5585
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1799  ax-4 1813  ax-5 1914  ax-6 1972  ax-7 2012  ax-8 2110  ax-9 2118  ax-10 2139  ax-11 2156  ax-12 2173  ax-ext 2709  ax-sep 5218  ax-nul 5225  ax-pow 5283  ax-pr 5347  ax-un 7566
This theorem depends on definitions:  df-bi 206  df-an 396  df-or 844  df-3an 1087  df-tru 1542  df-fal 1552  df-ex 1784  df-nf 1788  df-sb 2069  df-mo 2540  df-eu 2569  df-clab 2716  df-cleq 2730  df-clel 2817  df-nfc 2888  df-ne 2943  df-ral 3068  df-rex 3069  df-rab 3072  df-v 3424  df-dif 3886  df-un 3888  df-in 3890  df-ss 3900  df-nul 4254  df-if 4457  df-pw 4532  df-sn 4559  df-pr 4561  df-op 4565  df-uni 4837  df-int 4877  df-br 5071  df-opab 5133  df-mpt 5154  df-id 5480  df-xp 5586  df-rel 5587  df-cnv 5588  df-co 5589  df-dm 5590  df-rn 5591  df-iota 6376  df-fun 6420  df-fv 6426  df-1st 7804  df-2nd 7805
This theorem is referenced by:  cnvtrucl0  41121  cnvrcl0  41122  cnvtrcl0  41123
  Copyright terms: Public domain W3C validator