ILE Home Intuitionistic Logic Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  ILE Home  >  Th. List  >  ctiunctlemfo GIF version

Theorem ctiunctlemfo 12423
Description: Lemma for ctiunct 12424. (Contributed by Jim Kingdon, 28-Oct-2023.)
Hypotheses
Ref Expression
ctiunct.som (𝜑𝑆 ⊆ ω)
ctiunct.sdc (𝜑 → ∀𝑛 ∈ ω DECID 𝑛𝑆)
ctiunct.f (𝜑𝐹:𝑆onto𝐴)
ctiunct.tom ((𝜑𝑥𝐴) → 𝑇 ⊆ ω)
ctiunct.tdc ((𝜑𝑥𝐴) → ∀𝑛 ∈ ω DECID 𝑛𝑇)
ctiunct.g ((𝜑𝑥𝐴) → 𝐺:𝑇onto𝐵)
ctiunct.j (𝜑𝐽:ω–1-1-onto→(ω × ω))
ctiunct.u 𝑈 = {𝑧 ∈ ω ∣ ((1st ‘(𝐽𝑧)) ∈ 𝑆 ∧ (2nd ‘(𝐽𝑧)) ∈ (𝐹‘(1st ‘(𝐽𝑧))) / 𝑥𝑇)}
ctiunct.h 𝐻 = (𝑛𝑈 ↦ ((𝐹‘(1st ‘(𝐽𝑛))) / 𝑥𝐺‘(2nd ‘(𝐽𝑛))))
ctiunct.nfh 𝑥𝐻
ctiunct.nfu 𝑥𝑈
Assertion
Ref Expression
ctiunctlemfo (𝜑𝐻:𝑈onto 𝑥𝐴 𝐵)
Distinct variable groups:   𝐴,𝑛,𝑥   𝐵,𝑛   𝑛,𝐹,𝑥,𝑧   𝑛,𝐺   𝑛,𝐽,𝑥,𝑧   𝑧,𝑆   𝑧,𝑇   𝑈,𝑛   𝜑,𝑛,𝑥   𝑧,𝑛
Allowed substitution hints:   𝜑(𝑧)   𝐴(𝑧)   𝐵(𝑥,𝑧)   𝑆(𝑥,𝑛)   𝑇(𝑥,𝑛)   𝑈(𝑥,𝑧)   𝐺(𝑥,𝑧)   𝐻(𝑥,𝑧,𝑛)

Proof of Theorem ctiunctlemfo
Dummy variables 𝑟 𝑤 𝑢 𝑣 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 ctiunct.som . . 3 (𝜑𝑆 ⊆ ω)
2 ctiunct.sdc . . 3 (𝜑 → ∀𝑛 ∈ ω DECID 𝑛𝑆)
3 ctiunct.f . . 3 (𝜑𝐹:𝑆onto𝐴)
4 ctiunct.tom . . 3 ((𝜑𝑥𝐴) → 𝑇 ⊆ ω)
5 ctiunct.tdc . . 3 ((𝜑𝑥𝐴) → ∀𝑛 ∈ ω DECID 𝑛𝑇)
6 ctiunct.g . . 3 ((𝜑𝑥𝐴) → 𝐺:𝑇onto𝐵)
7 ctiunct.j . . 3 (𝜑𝐽:ω–1-1-onto→(ω × ω))
8 ctiunct.u . . 3 𝑈 = {𝑧 ∈ ω ∣ ((1st ‘(𝐽𝑧)) ∈ 𝑆 ∧ (2nd ‘(𝐽𝑧)) ∈ (𝐹‘(1st ‘(𝐽𝑧))) / 𝑥𝑇)}
9 ctiunct.h . . 3 𝐻 = (𝑛𝑈 ↦ ((𝐹‘(1st ‘(𝐽𝑛))) / 𝑥𝐺‘(2nd ‘(𝐽𝑛))))
101, 2, 3, 4, 5, 6, 7, 8, 9ctiunctlemf 12422 . 2 (𝜑𝐻:𝑈 𝑥𝐴 𝐵)
11 nfv 1528 . . . . 5 𝑥𝜑
12 nfiu1 3914 . . . . . 6 𝑥 𝑥𝐴 𝐵
1312nfcri 2313 . . . . 5 𝑥 𝑢 𝑥𝐴 𝐵
1411, 13nfan 1565 . . . 4 𝑥(𝜑𝑢 𝑥𝐴 𝐵)
15 ctiunct.nfu . . . . 5 𝑥𝑈
16 ctiunct.nfh . . . . . . 7 𝑥𝐻
17 nfcv 2319 . . . . . . 7 𝑥𝑣
1816, 17nffv 5521 . . . . . 6 𝑥(𝐻𝑣)
1918nfeq2 2331 . . . . 5 𝑥 𝑢 = (𝐻𝑣)
2015, 19nfrexxy 2516 . . . 4 𝑥𝑣𝑈 𝑢 = (𝐻𝑣)
21 simplll 533 . . . . . . 7 ((((𝜑𝑢 𝑥𝐴 𝐵) ∧ 𝑥𝐴) ∧ 𝑢𝐵) → 𝜑)
22 simplr 528 . . . . . . 7 ((((𝜑𝑢 𝑥𝐴 𝐵) ∧ 𝑥𝐴) ∧ 𝑢𝐵) → 𝑥𝐴)
2321, 22, 6syl2anc 411 . . . . . 6 ((((𝜑𝑢 𝑥𝐴 𝐵) ∧ 𝑥𝐴) ∧ 𝑢𝐵) → 𝐺:𝑇onto𝐵)
24 foelrn 5748 . . . . . 6 ((𝐺:𝑇onto𝐵𝑢𝐵) → ∃𝑤𝑇 𝑢 = (𝐺𝑤))
2523, 24sylancom 420 . . . . 5 ((((𝜑𝑢 𝑥𝐴 𝐵) ∧ 𝑥𝐴) ∧ 𝑢𝐵) → ∃𝑤𝑇 𝑢 = (𝐺𝑤))
263ad4antr 494 . . . . . . 7 (((((𝜑𝑢 𝑥𝐴 𝐵) ∧ 𝑥𝐴) ∧ 𝑢𝐵) ∧ (𝑤𝑇𝑢 = (𝐺𝑤))) → 𝐹:𝑆onto𝐴)
27 simpllr 534 . . . . . . 7 (((((𝜑𝑢 𝑥𝐴 𝐵) ∧ 𝑥𝐴) ∧ 𝑢𝐵) ∧ (𝑤𝑇𝑢 = (𝐺𝑤))) → 𝑥𝐴)
28 foelrn 5748 . . . . . . 7 ((𝐹:𝑆onto𝐴𝑥𝐴) → ∃𝑟𝑆 𝑥 = (𝐹𝑟))
2926, 27, 28syl2anc 411 . . . . . 6 (((((𝜑𝑢 𝑥𝐴 𝐵) ∧ 𝑥𝐴) ∧ 𝑢𝐵) ∧ (𝑤𝑇𝑢 = (𝐺𝑤))) → ∃𝑟𝑆 𝑥 = (𝐹𝑟))
30 f1ocnv 5470 . . . . . . . . . . . 12 (𝐽:ω–1-1-onto→(ω × ω) → 𝐽:(ω × ω)–1-1-onto→ω)
317, 30syl 14 . . . . . . . . . . 11 (𝜑𝐽:(ω × ω)–1-1-onto→ω)
32 f1of 5457 . . . . . . . . . . 11 (𝐽:(ω × ω)–1-1-onto→ω → 𝐽:(ω × ω)⟶ω)
3331, 32syl 14 . . . . . . . . . 10 (𝜑𝐽:(ω × ω)⟶ω)
3433ad5antr 496 . . . . . . . . 9 ((((((𝜑𝑢 𝑥𝐴 𝐵) ∧ 𝑥𝐴) ∧ 𝑢𝐵) ∧ (𝑤𝑇𝑢 = (𝐺𝑤))) ∧ (𝑟𝑆𝑥 = (𝐹𝑟))) → 𝐽:(ω × ω)⟶ω)
351ad5antr 496 . . . . . . . . . . 11 ((((((𝜑𝑢 𝑥𝐴 𝐵) ∧ 𝑥𝐴) ∧ 𝑢𝐵) ∧ (𝑤𝑇𝑢 = (𝐺𝑤))) ∧ (𝑟𝑆𝑥 = (𝐹𝑟))) → 𝑆 ⊆ ω)
36 simprl 529 . . . . . . . . . . 11 ((((((𝜑𝑢 𝑥𝐴 𝐵) ∧ 𝑥𝐴) ∧ 𝑢𝐵) ∧ (𝑤𝑇𝑢 = (𝐺𝑤))) ∧ (𝑟𝑆𝑥 = (𝐹𝑟))) → 𝑟𝑆)
3735, 36sseldd 3156 . . . . . . . . . 10 ((((((𝜑𝑢 𝑥𝐴 𝐵) ∧ 𝑥𝐴) ∧ 𝑢𝐵) ∧ (𝑤𝑇𝑢 = (𝐺𝑤))) ∧ (𝑟𝑆𝑥 = (𝐹𝑟))) → 𝑟 ∈ ω)
38 simp-5l 543 . . . . . . . . . . . 12 ((((((𝜑𝑢 𝑥𝐴 𝐵) ∧ 𝑥𝐴) ∧ 𝑢𝐵) ∧ (𝑤𝑇𝑢 = (𝐺𝑤))) ∧ (𝑟𝑆𝑥 = (𝐹𝑟))) → 𝜑)
3927adantr 276 . . . . . . . . . . . 12 ((((((𝜑𝑢 𝑥𝐴 𝐵) ∧ 𝑥𝐴) ∧ 𝑢𝐵) ∧ (𝑤𝑇𝑢 = (𝐺𝑤))) ∧ (𝑟𝑆𝑥 = (𝐹𝑟))) → 𝑥𝐴)
4038, 39, 4syl2anc 411 . . . . . . . . . . 11 ((((((𝜑𝑢 𝑥𝐴 𝐵) ∧ 𝑥𝐴) ∧ 𝑢𝐵) ∧ (𝑤𝑇𝑢 = (𝐺𝑤))) ∧ (𝑟𝑆𝑥 = (𝐹𝑟))) → 𝑇 ⊆ ω)
41 simplrl 535 . . . . . . . . . . 11 ((((((𝜑𝑢 𝑥𝐴 𝐵) ∧ 𝑥𝐴) ∧ 𝑢𝐵) ∧ (𝑤𝑇𝑢 = (𝐺𝑤))) ∧ (𝑟𝑆𝑥 = (𝐹𝑟))) → 𝑤𝑇)
4240, 41sseldd 3156 . . . . . . . . . 10 ((((((𝜑𝑢 𝑥𝐴 𝐵) ∧ 𝑥𝐴) ∧ 𝑢𝐵) ∧ (𝑤𝑇𝑢 = (𝐺𝑤))) ∧ (𝑟𝑆𝑥 = (𝐹𝑟))) → 𝑤 ∈ ω)
4337, 42opelxpd 4656 . . . . . . . . 9 ((((((𝜑𝑢 𝑥𝐴 𝐵) ∧ 𝑥𝐴) ∧ 𝑢𝐵) ∧ (𝑤𝑇𝑢 = (𝐺𝑤))) ∧ (𝑟𝑆𝑥 = (𝐹𝑟))) → ⟨𝑟, 𝑤⟩ ∈ (ω × ω))
4434, 43ffvelcdmd 5648 . . . . . . . 8 ((((((𝜑𝑢 𝑥𝐴 𝐵) ∧ 𝑥𝐴) ∧ 𝑢𝐵) ∧ (𝑤𝑇𝑢 = (𝐺𝑤))) ∧ (𝑟𝑆𝑥 = (𝐹𝑟))) → (𝐽‘⟨𝑟, 𝑤⟩) ∈ ω)
4538, 7syl 14 . . . . . . . . . . . . 13 ((((((𝜑𝑢 𝑥𝐴 𝐵) ∧ 𝑥𝐴) ∧ 𝑢𝐵) ∧ (𝑤𝑇𝑢 = (𝐺𝑤))) ∧ (𝑟𝑆𝑥 = (𝐹𝑟))) → 𝐽:ω–1-1-onto→(ω × ω))
46 f1ocnvfv2 5773 . . . . . . . . . . . . 13 ((𝐽:ω–1-1-onto→(ω × ω) ∧ ⟨𝑟, 𝑤⟩ ∈ (ω × ω)) → (𝐽‘(𝐽‘⟨𝑟, 𝑤⟩)) = ⟨𝑟, 𝑤⟩)
4745, 43, 46syl2anc 411 . . . . . . . . . . . 12 ((((((𝜑𝑢 𝑥𝐴 𝐵) ∧ 𝑥𝐴) ∧ 𝑢𝐵) ∧ (𝑤𝑇𝑢 = (𝐺𝑤))) ∧ (𝑟𝑆𝑥 = (𝐹𝑟))) → (𝐽‘(𝐽‘⟨𝑟, 𝑤⟩)) = ⟨𝑟, 𝑤⟩)
4847fveq2d 5515 . . . . . . . . . . 11 ((((((𝜑𝑢 𝑥𝐴 𝐵) ∧ 𝑥𝐴) ∧ 𝑢𝐵) ∧ (𝑤𝑇𝑢 = (𝐺𝑤))) ∧ (𝑟𝑆𝑥 = (𝐹𝑟))) → (1st ‘(𝐽‘(𝐽‘⟨𝑟, 𝑤⟩))) = (1st ‘⟨𝑟, 𝑤⟩))
49 vex 2740 . . . . . . . . . . . 12 𝑟 ∈ V
50 vex 2740 . . . . . . . . . . . 12 𝑤 ∈ V
5149, 50op1st 6141 . . . . . . . . . . 11 (1st ‘⟨𝑟, 𝑤⟩) = 𝑟
5248, 51eqtrdi 2226 . . . . . . . . . 10 ((((((𝜑𝑢 𝑥𝐴 𝐵) ∧ 𝑥𝐴) ∧ 𝑢𝐵) ∧ (𝑤𝑇𝑢 = (𝐺𝑤))) ∧ (𝑟𝑆𝑥 = (𝐹𝑟))) → (1st ‘(𝐽‘(𝐽‘⟨𝑟, 𝑤⟩))) = 𝑟)
5352, 36eqeltrd 2254 . . . . . . . . 9 ((((((𝜑𝑢 𝑥𝐴 𝐵) ∧ 𝑥𝐴) ∧ 𝑢𝐵) ∧ (𝑤𝑇𝑢 = (𝐺𝑤))) ∧ (𝑟𝑆𝑥 = (𝐹𝑟))) → (1st ‘(𝐽‘(𝐽‘⟨𝑟, 𝑤⟩))) ∈ 𝑆)
5447fveq2d 5515 . . . . . . . . . . 11 ((((((𝜑𝑢 𝑥𝐴 𝐵) ∧ 𝑥𝐴) ∧ 𝑢𝐵) ∧ (𝑤𝑇𝑢 = (𝐺𝑤))) ∧ (𝑟𝑆𝑥 = (𝐹𝑟))) → (2nd ‘(𝐽‘(𝐽‘⟨𝑟, 𝑤⟩))) = (2nd ‘⟨𝑟, 𝑤⟩))
5549, 50op2nd 6142 . . . . . . . . . . 11 (2nd ‘⟨𝑟, 𝑤⟩) = 𝑤
5654, 55eqtrdi 2226 . . . . . . . . . 10 ((((((𝜑𝑢 𝑥𝐴 𝐵) ∧ 𝑥𝐴) ∧ 𝑢𝐵) ∧ (𝑤𝑇𝑢 = (𝐺𝑤))) ∧ (𝑟𝑆𝑥 = (𝐹𝑟))) → (2nd ‘(𝐽‘(𝐽‘⟨𝑟, 𝑤⟩))) = 𝑤)
5752fveq2d 5515 . . . . . . . . . . . . 13 ((((((𝜑𝑢 𝑥𝐴 𝐵) ∧ 𝑥𝐴) ∧ 𝑢𝐵) ∧ (𝑤𝑇𝑢 = (𝐺𝑤))) ∧ (𝑟𝑆𝑥 = (𝐹𝑟))) → (𝐹‘(1st ‘(𝐽‘(𝐽‘⟨𝑟, 𝑤⟩)))) = (𝐹𝑟))
58 simprr 531 . . . . . . . . . . . . 13 ((((((𝜑𝑢 𝑥𝐴 𝐵) ∧ 𝑥𝐴) ∧ 𝑢𝐵) ∧ (𝑤𝑇𝑢 = (𝐺𝑤))) ∧ (𝑟𝑆𝑥 = (𝐹𝑟))) → 𝑥 = (𝐹𝑟))
5957, 58eqtr4d 2213 . . . . . . . . . . . 12 ((((((𝜑𝑢 𝑥𝐴 𝐵) ∧ 𝑥𝐴) ∧ 𝑢𝐵) ∧ (𝑤𝑇𝑢 = (𝐺𝑤))) ∧ (𝑟𝑆𝑥 = (𝐹𝑟))) → (𝐹‘(1st ‘(𝐽‘(𝐽‘⟨𝑟, 𝑤⟩)))) = 𝑥)
6059csbeq1d 3064 . . . . . . . . . . 11 ((((((𝜑𝑢 𝑥𝐴 𝐵) ∧ 𝑥𝐴) ∧ 𝑢𝐵) ∧ (𝑤𝑇𝑢 = (𝐺𝑤))) ∧ (𝑟𝑆𝑥 = (𝐹𝑟))) → (𝐹‘(1st ‘(𝐽‘(𝐽‘⟨𝑟, 𝑤⟩)))) / 𝑥𝑇 = 𝑥 / 𝑥𝑇)
61 csbid 3065 . . . . . . . . . . 11 𝑥 / 𝑥𝑇 = 𝑇
6260, 61eqtrdi 2226 . . . . . . . . . 10 ((((((𝜑𝑢 𝑥𝐴 𝐵) ∧ 𝑥𝐴) ∧ 𝑢𝐵) ∧ (𝑤𝑇𝑢 = (𝐺𝑤))) ∧ (𝑟𝑆𝑥 = (𝐹𝑟))) → (𝐹‘(1st ‘(𝐽‘(𝐽‘⟨𝑟, 𝑤⟩)))) / 𝑥𝑇 = 𝑇)
6341, 56, 623eltr4d 2261 . . . . . . . . 9 ((((((𝜑𝑢 𝑥𝐴 𝐵) ∧ 𝑥𝐴) ∧ 𝑢𝐵) ∧ (𝑤𝑇𝑢 = (𝐺𝑤))) ∧ (𝑟𝑆𝑥 = (𝐹𝑟))) → (2nd ‘(𝐽‘(𝐽‘⟨𝑟, 𝑤⟩))) ∈ (𝐹‘(1st ‘(𝐽‘(𝐽‘⟨𝑟, 𝑤⟩)))) / 𝑥𝑇)
6453, 63jca 306 . . . . . . . 8 ((((((𝜑𝑢 𝑥𝐴 𝐵) ∧ 𝑥𝐴) ∧ 𝑢𝐵) ∧ (𝑤𝑇𝑢 = (𝐺𝑤))) ∧ (𝑟𝑆𝑥 = (𝐹𝑟))) → ((1st ‘(𝐽‘(𝐽‘⟨𝑟, 𝑤⟩))) ∈ 𝑆 ∧ (2nd ‘(𝐽‘(𝐽‘⟨𝑟, 𝑤⟩))) ∈ (𝐹‘(1st ‘(𝐽‘(𝐽‘⟨𝑟, 𝑤⟩)))) / 𝑥𝑇))
65 2fveq3 5516 . . . . . . . . . . 11 (𝑧 = (𝐽‘⟨𝑟, 𝑤⟩) → (1st ‘(𝐽𝑧)) = (1st ‘(𝐽‘(𝐽‘⟨𝑟, 𝑤⟩))))
6665eleq1d 2246 . . . . . . . . . 10 (𝑧 = (𝐽‘⟨𝑟, 𝑤⟩) → ((1st ‘(𝐽𝑧)) ∈ 𝑆 ↔ (1st ‘(𝐽‘(𝐽‘⟨𝑟, 𝑤⟩))) ∈ 𝑆))
67 2fveq3 5516 . . . . . . . . . . 11 (𝑧 = (𝐽‘⟨𝑟, 𝑤⟩) → (2nd ‘(𝐽𝑧)) = (2nd ‘(𝐽‘(𝐽‘⟨𝑟, 𝑤⟩))))
6865fveq2d 5515 . . . . . . . . . . . 12 (𝑧 = (𝐽‘⟨𝑟, 𝑤⟩) → (𝐹‘(1st ‘(𝐽𝑧))) = (𝐹‘(1st ‘(𝐽‘(𝐽‘⟨𝑟, 𝑤⟩)))))
6968csbeq1d 3064 . . . . . . . . . . 11 (𝑧 = (𝐽‘⟨𝑟, 𝑤⟩) → (𝐹‘(1st ‘(𝐽𝑧))) / 𝑥𝑇 = (𝐹‘(1st ‘(𝐽‘(𝐽‘⟨𝑟, 𝑤⟩)))) / 𝑥𝑇)
7067, 69eleq12d 2248 . . . . . . . . . 10 (𝑧 = (𝐽‘⟨𝑟, 𝑤⟩) → ((2nd ‘(𝐽𝑧)) ∈ (𝐹‘(1st ‘(𝐽𝑧))) / 𝑥𝑇 ↔ (2nd ‘(𝐽‘(𝐽‘⟨𝑟, 𝑤⟩))) ∈ (𝐹‘(1st ‘(𝐽‘(𝐽‘⟨𝑟, 𝑤⟩)))) / 𝑥𝑇))
7166, 70anbi12d 473 . . . . . . . . 9 (𝑧 = (𝐽‘⟨𝑟, 𝑤⟩) → (((1st ‘(𝐽𝑧)) ∈ 𝑆 ∧ (2nd ‘(𝐽𝑧)) ∈ (𝐹‘(1st ‘(𝐽𝑧))) / 𝑥𝑇) ↔ ((1st ‘(𝐽‘(𝐽‘⟨𝑟, 𝑤⟩))) ∈ 𝑆 ∧ (2nd ‘(𝐽‘(𝐽‘⟨𝑟, 𝑤⟩))) ∈ (𝐹‘(1st ‘(𝐽‘(𝐽‘⟨𝑟, 𝑤⟩)))) / 𝑥𝑇)))
7271, 8elrab2 2896 . . . . . . . 8 ((𝐽‘⟨𝑟, 𝑤⟩) ∈ 𝑈 ↔ ((𝐽‘⟨𝑟, 𝑤⟩) ∈ ω ∧ ((1st ‘(𝐽‘(𝐽‘⟨𝑟, 𝑤⟩))) ∈ 𝑆 ∧ (2nd ‘(𝐽‘(𝐽‘⟨𝑟, 𝑤⟩))) ∈ (𝐹‘(1st ‘(𝐽‘(𝐽‘⟨𝑟, 𝑤⟩)))) / 𝑥𝑇)))
7344, 64, 72sylanbrc 417 . . . . . . 7 ((((((𝜑𝑢 𝑥𝐴 𝐵) ∧ 𝑥𝐴) ∧ 𝑢𝐵) ∧ (𝑤𝑇𝑢 = (𝐺𝑤))) ∧ (𝑟𝑆𝑥 = (𝐹𝑟))) → (𝐽‘⟨𝑟, 𝑤⟩) ∈ 𝑈)
7459csbeq1d 3064 . . . . . . . . . 10 ((((((𝜑𝑢 𝑥𝐴 𝐵) ∧ 𝑥𝐴) ∧ 𝑢𝐵) ∧ (𝑤𝑇𝑢 = (𝐺𝑤))) ∧ (𝑟𝑆𝑥 = (𝐹𝑟))) → (𝐹‘(1st ‘(𝐽‘(𝐽‘⟨𝑟, 𝑤⟩)))) / 𝑥𝐺 = 𝑥 / 𝑥𝐺)
75 csbid 3065 . . . . . . . . . 10 𝑥 / 𝑥𝐺 = 𝐺
7674, 75eqtrdi 2226 . . . . . . . . 9 ((((((𝜑𝑢 𝑥𝐴 𝐵) ∧ 𝑥𝐴) ∧ 𝑢𝐵) ∧ (𝑤𝑇𝑢 = (𝐺𝑤))) ∧ (𝑟𝑆𝑥 = (𝐹𝑟))) → (𝐹‘(1st ‘(𝐽‘(𝐽‘⟨𝑟, 𝑤⟩)))) / 𝑥𝐺 = 𝐺)
7776, 56fveq12d 5518 . . . . . . . 8 ((((((𝜑𝑢 𝑥𝐴 𝐵) ∧ 𝑥𝐴) ∧ 𝑢𝐵) ∧ (𝑤𝑇𝑢 = (𝐺𝑤))) ∧ (𝑟𝑆𝑥 = (𝐹𝑟))) → ((𝐹‘(1st ‘(𝐽‘(𝐽‘⟨𝑟, 𝑤⟩)))) / 𝑥𝐺‘(2nd ‘(𝐽‘(𝐽‘⟨𝑟, 𝑤⟩)))) = (𝐺𝑤))
78 2fveq3 5516 . . . . . . . . . . . 12 (𝑛 = (𝐽‘⟨𝑟, 𝑤⟩) → (1st ‘(𝐽𝑛)) = (1st ‘(𝐽‘(𝐽‘⟨𝑟, 𝑤⟩))))
7978fveq2d 5515 . . . . . . . . . . 11 (𝑛 = (𝐽‘⟨𝑟, 𝑤⟩) → (𝐹‘(1st ‘(𝐽𝑛))) = (𝐹‘(1st ‘(𝐽‘(𝐽‘⟨𝑟, 𝑤⟩)))))
8079csbeq1d 3064 . . . . . . . . . 10 (𝑛 = (𝐽‘⟨𝑟, 𝑤⟩) → (𝐹‘(1st ‘(𝐽𝑛))) / 𝑥𝐺 = (𝐹‘(1st ‘(𝐽‘(𝐽‘⟨𝑟, 𝑤⟩)))) / 𝑥𝐺)
81 2fveq3 5516 . . . . . . . . . 10 (𝑛 = (𝐽‘⟨𝑟, 𝑤⟩) → (2nd ‘(𝐽𝑛)) = (2nd ‘(𝐽‘(𝐽‘⟨𝑟, 𝑤⟩))))
8280, 81fveq12d 5518 . . . . . . . . 9 (𝑛 = (𝐽‘⟨𝑟, 𝑤⟩) → ((𝐹‘(1st ‘(𝐽𝑛))) / 𝑥𝐺‘(2nd ‘(𝐽𝑛))) = ((𝐹‘(1st ‘(𝐽‘(𝐽‘⟨𝑟, 𝑤⟩)))) / 𝑥𝐺‘(2nd ‘(𝐽‘(𝐽‘⟨𝑟, 𝑤⟩)))))
83 simplrr 536 . . . . . . . . . . 11 ((((((𝜑𝑢 𝑥𝐴 𝐵) ∧ 𝑥𝐴) ∧ 𝑢𝐵) ∧ (𝑤𝑇𝑢 = (𝐺𝑤))) ∧ (𝑟𝑆𝑥 = (𝐹𝑟))) → 𝑢 = (𝐺𝑤))
8483, 77eqtr4d 2213 . . . . . . . . . 10 ((((((𝜑𝑢 𝑥𝐴 𝐵) ∧ 𝑥𝐴) ∧ 𝑢𝐵) ∧ (𝑤𝑇𝑢 = (𝐺𝑤))) ∧ (𝑟𝑆𝑥 = (𝐹𝑟))) → 𝑢 = ((𝐹‘(1st ‘(𝐽‘(𝐽‘⟨𝑟, 𝑤⟩)))) / 𝑥𝐺‘(2nd ‘(𝐽‘(𝐽‘⟨𝑟, 𝑤⟩)))))
85 simpllr 534 . . . . . . . . . 10 ((((((𝜑𝑢 𝑥𝐴 𝐵) ∧ 𝑥𝐴) ∧ 𝑢𝐵) ∧ (𝑤𝑇𝑢 = (𝐺𝑤))) ∧ (𝑟𝑆𝑥 = (𝐹𝑟))) → 𝑢𝐵)
8684, 85eqeltrrd 2255 . . . . . . . . 9 ((((((𝜑𝑢 𝑥𝐴 𝐵) ∧ 𝑥𝐴) ∧ 𝑢𝐵) ∧ (𝑤𝑇𝑢 = (𝐺𝑤))) ∧ (𝑟𝑆𝑥 = (𝐹𝑟))) → ((𝐹‘(1st ‘(𝐽‘(𝐽‘⟨𝑟, 𝑤⟩)))) / 𝑥𝐺‘(2nd ‘(𝐽‘(𝐽‘⟨𝑟, 𝑤⟩)))) ∈ 𝐵)
879, 82, 73, 86fvmptd3 5605 . . . . . . . 8 ((((((𝜑𝑢 𝑥𝐴 𝐵) ∧ 𝑥𝐴) ∧ 𝑢𝐵) ∧ (𝑤𝑇𝑢 = (𝐺𝑤))) ∧ (𝑟𝑆𝑥 = (𝐹𝑟))) → (𝐻‘(𝐽‘⟨𝑟, 𝑤⟩)) = ((𝐹‘(1st ‘(𝐽‘(𝐽‘⟨𝑟, 𝑤⟩)))) / 𝑥𝐺‘(2nd ‘(𝐽‘(𝐽‘⟨𝑟, 𝑤⟩)))))
8877, 87, 833eqtr4rd 2221 . . . . . . 7 ((((((𝜑𝑢 𝑥𝐴 𝐵) ∧ 𝑥𝐴) ∧ 𝑢𝐵) ∧ (𝑤𝑇𝑢 = (𝐺𝑤))) ∧ (𝑟𝑆𝑥 = (𝐹𝑟))) → 𝑢 = (𝐻‘(𝐽‘⟨𝑟, 𝑤⟩)))
89 fveq2 5511 . . . . . . . 8 (𝑣 = (𝐽‘⟨𝑟, 𝑤⟩) → (𝐻𝑣) = (𝐻‘(𝐽‘⟨𝑟, 𝑤⟩)))
9089rspceeqv 2859 . . . . . . 7 (((𝐽‘⟨𝑟, 𝑤⟩) ∈ 𝑈𝑢 = (𝐻‘(𝐽‘⟨𝑟, 𝑤⟩))) → ∃𝑣𝑈 𝑢 = (𝐻𝑣))
9173, 88, 90syl2anc 411 . . . . . 6 ((((((𝜑𝑢 𝑥𝐴 𝐵) ∧ 𝑥𝐴) ∧ 𝑢𝐵) ∧ (𝑤𝑇𝑢 = (𝐺𝑤))) ∧ (𝑟𝑆𝑥 = (𝐹𝑟))) → ∃𝑣𝑈 𝑢 = (𝐻𝑣))
9229, 91rexlimddv 2599 . . . . 5 (((((𝜑𝑢 𝑥𝐴 𝐵) ∧ 𝑥𝐴) ∧ 𝑢𝐵) ∧ (𝑤𝑇𝑢 = (𝐺𝑤))) → ∃𝑣𝑈 𝑢 = (𝐻𝑣))
9325, 92rexlimddv 2599 . . . 4 ((((𝜑𝑢 𝑥𝐴 𝐵) ∧ 𝑥𝐴) ∧ 𝑢𝐵) → ∃𝑣𝑈 𝑢 = (𝐻𝑣))
94 eliun 3888 . . . . . 6 (𝑢 𝑥𝐴 𝐵 ↔ ∃𝑥𝐴 𝑢𝐵)
9594biimpi 120 . . . . 5 (𝑢 𝑥𝐴 𝐵 → ∃𝑥𝐴 𝑢𝐵)
9695adantl 277 . . . 4 ((𝜑𝑢 𝑥𝐴 𝐵) → ∃𝑥𝐴 𝑢𝐵)
9714, 20, 93, 96r19.29af2 2617 . . 3 ((𝜑𝑢 𝑥𝐴 𝐵) → ∃𝑣𝑈 𝑢 = (𝐻𝑣))
9897ralrimiva 2550 . 2 (𝜑 → ∀𝑢 𝑥𝐴 𝐵𝑣𝑈 𝑢 = (𝐻𝑣))
99 dffo3 5659 . 2 (𝐻:𝑈onto 𝑥𝐴 𝐵 ↔ (𝐻:𝑈 𝑥𝐴 𝐵 ∧ ∀𝑢 𝑥𝐴 𝐵𝑣𝑈 𝑢 = (𝐻𝑣)))
10010, 98, 99sylanbrc 417 1 (𝜑𝐻:𝑈onto 𝑥𝐴 𝐵)
Colors of variables: wff set class
Syntax hints:  wi 4  wa 104  DECID wdc 834   = wceq 1353  wcel 2148  wnfc 2306  wral 2455  wrex 2456  {crab 2459  csb 3057  wss 3129  cop 3594   ciun 3884  cmpt 4061  ωcom 4586   × cxp 4621  ccnv 4622  wf 5208  ontowfo 5210  1-1-ontowf1o 5211  cfv 5212  1st c1st 6133  2nd c2nd 6134
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-ia1 106  ax-ia2 107  ax-ia3 108  ax-io 709  ax-5 1447  ax-7 1448  ax-gen 1449  ax-ie1 1493  ax-ie2 1494  ax-8 1504  ax-10 1505  ax-11 1506  ax-i12 1507  ax-bndl 1509  ax-4 1510  ax-17 1526  ax-i9 1530  ax-ial 1534  ax-i5r 1535  ax-13 2150  ax-14 2151  ax-ext 2159  ax-sep 4118  ax-pow 4171  ax-pr 4206  ax-un 4430
This theorem depends on definitions:  df-bi 117  df-3an 980  df-tru 1356  df-nf 1461  df-sb 1763  df-eu 2029  df-mo 2030  df-clab 2164  df-cleq 2170  df-clel 2173  df-nfc 2308  df-ral 2460  df-rex 2461  df-rab 2464  df-v 2739  df-sbc 2963  df-csb 3058  df-un 3133  df-in 3135  df-ss 3142  df-pw 3576  df-sn 3597  df-pr 3598  df-op 3600  df-uni 3808  df-iun 3886  df-br 4001  df-opab 4062  df-mpt 4063  df-id 4290  df-xp 4629  df-rel 4630  df-cnv 4631  df-co 4632  df-dm 4633  df-rn 4634  df-res 4635  df-ima 4636  df-iota 5174  df-fun 5214  df-fn 5215  df-f 5216  df-f1 5217  df-fo 5218  df-f1o 5219  df-fv 5220  df-1st 6135  df-2nd 6136
This theorem is referenced by:  ctiunct  12424
  Copyright terms: Public domain W3C validator