Users' Mathboxes Mathbox for Matthew House < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >   Mathboxes  >  weiunlem Structured version   Visualization version   GIF version

Theorem weiunlem 36661
Description: Lemma for weiunpo 36663, weiunso 36664, weiunfr 36665, and weiunse 36666. (Contributed by Matthew House, 23-Aug-2025.)
Hypotheses
Ref Expression
weiun.1 𝐹 = (𝑤 𝑥𝐴 𝐵 ↦ (𝑢 ∈ {𝑥𝐴𝑤𝐵}∀𝑣 ∈ {𝑥𝐴𝑤𝐵} ¬ 𝑣𝑅𝑢))
weiun.2 𝑇 = {⟨𝑦, 𝑧⟩ ∣ ((𝑦 𝑥𝐴 𝐵𝑧 𝑥𝐴 𝐵) ∧ ((𝐹𝑦)𝑅(𝐹𝑧) ∨ ((𝐹𝑦) = (𝐹𝑧) ∧ 𝑦(𝐹𝑦) / 𝑥𝑆𝑧)))}
weiunlem.3 (𝜑𝑅 We 𝐴)
weiunlem.4 (𝜑𝑅 Se 𝐴)
Assertion
Ref Expression
weiunlem (𝜑 → (𝐹: 𝑥𝐴 𝐵𝐴 ∧ ∀𝑡 𝑥𝐴 𝐵𝑡(𝐹𝑡) / 𝑥𝐵 ∧ ∀𝑠𝐴𝑡 𝑠 / 𝑥𝐵 ¬ 𝑠𝑅(𝐹𝑡)))
Distinct variable groups:   𝜑,𝑡   𝐴,𝑠,𝑡,𝑢,𝑣,𝑤,𝑥   𝑦,𝐴,𝑧,𝑥   𝐵,𝑠,𝑡,𝑢,𝑣,𝑤   𝑦,𝐵,𝑧   𝐹,𝑠,𝑡,𝑦,𝑧   𝑅,𝑠,𝑡,𝑢,𝑣,𝑤   𝑦,𝑅,𝑧   𝑆,𝑠,𝑡,𝑦,𝑧
Allowed substitution hints:   𝜑(𝑥,𝑦,𝑧,𝑤,𝑣,𝑢,𝑠)   𝐵(𝑥)   𝑅(𝑥)   𝑆(𝑥,𝑤,𝑣,𝑢)   𝑇(𝑥,𝑦,𝑧,𝑤,𝑣,𝑢,𝑡,𝑠)   𝐹(𝑥,𝑤,𝑣,𝑢)

Proof of Theorem weiunlem
Dummy variable 𝑟 is distinct from all other variables.
StepHypRef Expression
1 weiunlem.3 . 2 (𝜑𝑅 We 𝐴)
2 weiunlem.4 . 2 (𝜑𝑅 Se 𝐴)
3 riotaex 7321 . . . . . 6 (𝑢 ∈ {𝑥𝐴𝑤𝐵}∀𝑣 ∈ {𝑥𝐴𝑤𝐵} ¬ 𝑣𝑅𝑢) ∈ V
4 weiun.1 . . . . . 6 𝐹 = (𝑤 𝑥𝐴 𝐵 ↦ (𝑢 ∈ {𝑥𝐴𝑤𝐵}∀𝑣 ∈ {𝑥𝐴𝑤𝐵} ¬ 𝑣𝑅𝑢))
53, 4fnmpti 6635 . . . . 5 𝐹 Fn 𝑥𝐴 𝐵
65a1i 11 . . . 4 ((𝑅 We 𝐴𝑅 Se 𝐴) → 𝐹 Fn 𝑥𝐴 𝐵)
7 breq2 5090 . . . . . . . . . . . . 13 (𝑢 = 𝑟 → (𝑣𝑅𝑢𝑣𝑅𝑟))
87notbid 318 . . . . . . . . . . . 12 (𝑢 = 𝑟 → (¬ 𝑣𝑅𝑢 ↔ ¬ 𝑣𝑅𝑟))
98ralbidv 3161 . . . . . . . . . . 11 (𝑢 = 𝑟 → (∀𝑣 ∈ {𝑥𝐴𝑤𝐵} ¬ 𝑣𝑅𝑢 ↔ ∀𝑣 ∈ {𝑥𝐴𝑤𝐵} ¬ 𝑣𝑅𝑟))
109cbvriotavw 7327 . . . . . . . . . 10 (𝑢 ∈ {𝑥𝐴𝑤𝐵}∀𝑣 ∈ {𝑥𝐴𝑤𝐵} ¬ 𝑣𝑅𝑢) = (𝑟 ∈ {𝑥𝐴𝑤𝐵}∀𝑣 ∈ {𝑥𝐴𝑤𝐵} ¬ 𝑣𝑅𝑟)
11 eleq1w 2820 . . . . . . . . . . . 12 (𝑤 = 𝑡 → (𝑤𝐵𝑡𝐵))
1211rabbidv 3397 . . . . . . . . . . 11 (𝑤 = 𝑡 → {𝑥𝐴𝑤𝐵} = {𝑥𝐴𝑡𝐵})
13 breq1 5089 . . . . . . . . . . . . . 14 (𝑣 = 𝑠 → (𝑣𝑅𝑟𝑠𝑅𝑟))
1413notbid 318 . . . . . . . . . . . . 13 (𝑣 = 𝑠 → (¬ 𝑣𝑅𝑟 ↔ ¬ 𝑠𝑅𝑟))
1514cbvralvw 3216 . . . . . . . . . . . 12 (∀𝑣 ∈ {𝑥𝐴𝑤𝐵} ¬ 𝑣𝑅𝑟 ↔ ∀𝑠 ∈ {𝑥𝐴𝑤𝐵} ¬ 𝑠𝑅𝑟)
1612raleqdv 3296 . . . . . . . . . . . 12 (𝑤 = 𝑡 → (∀𝑠 ∈ {𝑥𝐴𝑤𝐵} ¬ 𝑠𝑅𝑟 ↔ ∀𝑠 ∈ {𝑥𝐴𝑡𝐵} ¬ 𝑠𝑅𝑟))
1715, 16bitrid 283 . . . . . . . . . . 11 (𝑤 = 𝑡 → (∀𝑣 ∈ {𝑥𝐴𝑤𝐵} ¬ 𝑣𝑅𝑟 ↔ ∀𝑠 ∈ {𝑥𝐴𝑡𝐵} ¬ 𝑠𝑅𝑟))
1812, 17riotaeqbidv 7320 . . . . . . . . . 10 (𝑤 = 𝑡 → (𝑟 ∈ {𝑥𝐴𝑤𝐵}∀𝑣 ∈ {𝑥𝐴𝑤𝐵} ¬ 𝑣𝑅𝑟) = (𝑟 ∈ {𝑥𝐴𝑡𝐵}∀𝑠 ∈ {𝑥𝐴𝑡𝐵} ¬ 𝑠𝑅𝑟))
1910, 18eqtrid 2784 . . . . . . . . 9 (𝑤 = 𝑡 → (𝑢 ∈ {𝑥𝐴𝑤𝐵}∀𝑣 ∈ {𝑥𝐴𝑤𝐵} ¬ 𝑣𝑅𝑢) = (𝑟 ∈ {𝑥𝐴𝑡𝐵}∀𝑠 ∈ {𝑥𝐴𝑡𝐵} ¬ 𝑠𝑅𝑟))
2019, 4, 3fvmpt3i 6947 . . . . . . . 8 (𝑡 𝑥𝐴 𝐵 → (𝐹𝑡) = (𝑟 ∈ {𝑥𝐴𝑡𝐵}∀𝑠 ∈ {𝑥𝐴𝑡𝐵} ¬ 𝑠𝑅𝑟))
2120adantl 481 . . . . . . 7 (((𝑅 We 𝐴𝑅 Se 𝐴) ∧ 𝑡 𝑥𝐴 𝐵) → (𝐹𝑡) = (𝑟 ∈ {𝑥𝐴𝑡𝐵}∀𝑠 ∈ {𝑥𝐴𝑡𝐵} ¬ 𝑠𝑅𝑟))
22 eliun 4938 . . . . . . . . . 10 (𝑡 𝑥𝐴 𝐵 ↔ ∃𝑥𝐴 𝑡𝐵)
23 rabn0 4330 . . . . . . . . . 10 ({𝑥𝐴𝑡𝐵} ≠ ∅ ↔ ∃𝑥𝐴 𝑡𝐵)
2422, 23bitr4i 278 . . . . . . . . 9 (𝑡 𝑥𝐴 𝐵 ↔ {𝑥𝐴𝑡𝐵} ≠ ∅)
25 ssrab2 4021 . . . . . . . . . 10 {𝑥𝐴𝑡𝐵} ⊆ 𝐴
26 wereu2 5621 . . . . . . . . . 10 (((𝑅 We 𝐴𝑅 Se 𝐴) ∧ ({𝑥𝐴𝑡𝐵} ⊆ 𝐴 ∧ {𝑥𝐴𝑡𝐵} ≠ ∅)) → ∃!𝑟 ∈ {𝑥𝐴𝑡𝐵}∀𝑠 ∈ {𝑥𝐴𝑡𝐵} ¬ 𝑠𝑅𝑟)
2725, 26mpanr1 704 . . . . . . . . 9 (((𝑅 We 𝐴𝑅 Se 𝐴) ∧ {𝑥𝐴𝑡𝐵} ≠ ∅) → ∃!𝑟 ∈ {𝑥𝐴𝑡𝐵}∀𝑠 ∈ {𝑥𝐴𝑡𝐵} ¬ 𝑠𝑅𝑟)
2824, 27sylan2b 595 . . . . . . . 8 (((𝑅 We 𝐴𝑅 Se 𝐴) ∧ 𝑡 𝑥𝐴 𝐵) → ∃!𝑟 ∈ {𝑥𝐴𝑡𝐵}∀𝑠 ∈ {𝑥𝐴𝑡𝐵} ¬ 𝑠𝑅𝑟)
29 riotacl2 7333 . . . . . . . 8 (∃!𝑟 ∈ {𝑥𝐴𝑡𝐵}∀𝑠 ∈ {𝑥𝐴𝑡𝐵} ¬ 𝑠𝑅𝑟 → (𝑟 ∈ {𝑥𝐴𝑡𝐵}∀𝑠 ∈ {𝑥𝐴𝑡𝐵} ¬ 𝑠𝑅𝑟) ∈ {𝑟 ∈ {𝑥𝐴𝑡𝐵} ∣ ∀𝑠 ∈ {𝑥𝐴𝑡𝐵} ¬ 𝑠𝑅𝑟})
3028, 29syl 17 . . . . . . 7 (((𝑅 We 𝐴𝑅 Se 𝐴) ∧ 𝑡 𝑥𝐴 𝐵) → (𝑟 ∈ {𝑥𝐴𝑡𝐵}∀𝑠 ∈ {𝑥𝐴𝑡𝐵} ¬ 𝑠𝑅𝑟) ∈ {𝑟 ∈ {𝑥𝐴𝑡𝐵} ∣ ∀𝑠 ∈ {𝑥𝐴𝑡𝐵} ¬ 𝑠𝑅𝑟})
3121, 30eqeltrd 2837 . . . . . 6 (((𝑅 We 𝐴𝑅 Se 𝐴) ∧ 𝑡 𝑥𝐴 𝐵) → (𝐹𝑡) ∈ {𝑟 ∈ {𝑥𝐴𝑡𝐵} ∣ ∀𝑠 ∈ {𝑥𝐴𝑡𝐵} ¬ 𝑠𝑅𝑟})
32 elrabi 3631 . . . . . 6 ((𝐹𝑡) ∈ {𝑟 ∈ {𝑥𝐴𝑡𝐵} ∣ ∀𝑠 ∈ {𝑥𝐴𝑡𝐵} ¬ 𝑠𝑅𝑟} → (𝐹𝑡) ∈ {𝑥𝐴𝑡𝐵})
33 elrabi 3631 . . . . . 6 ((𝐹𝑡) ∈ {𝑥𝐴𝑡𝐵} → (𝐹𝑡) ∈ 𝐴)
3431, 32, 333syl 18 . . . . 5 (((𝑅 We 𝐴𝑅 Se 𝐴) ∧ 𝑡 𝑥𝐴 𝐵) → (𝐹𝑡) ∈ 𝐴)
3534ralrimiva 3130 . . . 4 ((𝑅 We 𝐴𝑅 Se 𝐴) → ∀𝑡 𝑥𝐴 𝐵(𝐹𝑡) ∈ 𝐴)
36 ffnfv 7065 . . . 4 (𝐹: 𝑥𝐴 𝐵𝐴 ↔ (𝐹 Fn 𝑥𝐴 𝐵 ∧ ∀𝑡 𝑥𝐴 𝐵(𝐹𝑡) ∈ 𝐴))
376, 35, 36sylanbrc 584 . . 3 ((𝑅 We 𝐴𝑅 Se 𝐴) → 𝐹: 𝑥𝐴 𝐵𝐴)
38 dfsbcq 3731 . . . . . . 7 (𝑠 = (𝐹𝑡) → ([𝑠 / 𝑥]𝑡𝐵[(𝐹𝑡) / 𝑥]𝑡𝐵))
39 nfcv 2899 . . . . . . . . 9 𝑥𝐴
4039elrabsf 3775 . . . . . . . 8 (𝑠 ∈ {𝑥𝐴𝑡𝐵} ↔ (𝑠𝐴[𝑠 / 𝑥]𝑡𝐵))
4140simprbi 497 . . . . . . 7 (𝑠 ∈ {𝑥𝐴𝑡𝐵} → [𝑠 / 𝑥]𝑡𝐵)
4238, 41vtoclga 3521 . . . . . 6 ((𝐹𝑡) ∈ {𝑥𝐴𝑡𝐵} → [(𝐹𝑡) / 𝑥]𝑡𝐵)
4331, 32, 423syl 18 . . . . 5 (((𝑅 We 𝐴𝑅 Se 𝐴) ∧ 𝑡 𝑥𝐴 𝐵) → [(𝐹𝑡) / 𝑥]𝑡𝐵)
44 sbcel2 4359 . . . . 5 ([(𝐹𝑡) / 𝑥]𝑡𝐵𝑡(𝐹𝑡) / 𝑥𝐵)
4543, 44sylib 218 . . . 4 (((𝑅 We 𝐴𝑅 Se 𝐴) ∧ 𝑡 𝑥𝐴 𝐵) → 𝑡(𝐹𝑡) / 𝑥𝐵)
4645ralrimiva 3130 . . 3 ((𝑅 We 𝐴𝑅 Se 𝐴) → ∀𝑡 𝑥𝐴 𝐵𝑡(𝐹𝑡) / 𝑥𝐵)
47 simpr 484 . . . . . . . . 9 (((𝑅 We 𝐴𝑅 Se 𝐴) ∧ (𝑠𝐴𝑡𝑠 / 𝑥𝐵)) → (𝑠𝐴𝑡𝑠 / 𝑥𝐵))
48 sbcel2 4359 . . . . . . . . . . 11 ([𝑠 / 𝑥]𝑡𝐵𝑡𝑠 / 𝑥𝐵)
4948anbi2i 624 . . . . . . . . . 10 ((𝑠𝐴[𝑠 / 𝑥]𝑡𝐵) ↔ (𝑠𝐴𝑡𝑠 / 𝑥𝐵))
5040, 49bitri 275 . . . . . . . . 9 (𝑠 ∈ {𝑥𝐴𝑡𝐵} ↔ (𝑠𝐴𝑡𝑠 / 𝑥𝐵))
5147, 50sylibr 234 . . . . . . . 8 (((𝑅 We 𝐴𝑅 Se 𝐴) ∧ (𝑠𝐴𝑡𝑠 / 𝑥𝐵)) → 𝑠 ∈ {𝑥𝐴𝑡𝐵})
5251ne0d 4283 . . . . . . 7 (((𝑅 We 𝐴𝑅 Se 𝐴) ∧ (𝑠𝐴𝑡𝑠 / 𝑥𝐵)) → {𝑥𝐴𝑡𝐵} ≠ ∅)
5352, 24sylibr 234 . . . . . 6 (((𝑅 We 𝐴𝑅 Se 𝐴) ∧ (𝑠𝐴𝑡𝑠 / 𝑥𝐵)) → 𝑡 𝑥𝐴 𝐵)
54 breq2 5090 . . . . . . . . . . 11 (𝑟 = (𝐹𝑡) → (𝑠𝑅𝑟𝑠𝑅(𝐹𝑡)))
5554notbid 318 . . . . . . . . . 10 (𝑟 = (𝐹𝑡) → (¬ 𝑠𝑅𝑟 ↔ ¬ 𝑠𝑅(𝐹𝑡)))
5655ralbidv 3161 . . . . . . . . 9 (𝑟 = (𝐹𝑡) → (∀𝑠 ∈ {𝑥𝐴𝑡𝐵} ¬ 𝑠𝑅𝑟 ↔ ∀𝑠 ∈ {𝑥𝐴𝑡𝐵} ¬ 𝑠𝑅(𝐹𝑡)))
5756elrab 3635 . . . . . . . 8 ((𝐹𝑡) ∈ {𝑟 ∈ {𝑥𝐴𝑡𝐵} ∣ ∀𝑠 ∈ {𝑥𝐴𝑡𝐵} ¬ 𝑠𝑅𝑟} ↔ ((𝐹𝑡) ∈ {𝑥𝐴𝑡𝐵} ∧ ∀𝑠 ∈ {𝑥𝐴𝑡𝐵} ¬ 𝑠𝑅(𝐹𝑡)))
5857simprbi 497 . . . . . . 7 ((𝐹𝑡) ∈ {𝑟 ∈ {𝑥𝐴𝑡𝐵} ∣ ∀𝑠 ∈ {𝑥𝐴𝑡𝐵} ¬ 𝑠𝑅𝑟} → ∀𝑠 ∈ {𝑥𝐴𝑡𝐵} ¬ 𝑠𝑅(𝐹𝑡))
5931, 58syl 17 . . . . . 6 (((𝑅 We 𝐴𝑅 Se 𝐴) ∧ 𝑡 𝑥𝐴 𝐵) → ∀𝑠 ∈ {𝑥𝐴𝑡𝐵} ¬ 𝑠𝑅(𝐹𝑡))
6053, 59syldan 592 . . . . 5 (((𝑅 We 𝐴𝑅 Se 𝐴) ∧ (𝑠𝐴𝑡𝑠 / 𝑥𝐵)) → ∀𝑠 ∈ {𝑥𝐴𝑡𝐵} ¬ 𝑠𝑅(𝐹𝑡))
61 rsp 3226 . . . . 5 (∀𝑠 ∈ {𝑥𝐴𝑡𝐵} ¬ 𝑠𝑅(𝐹𝑡) → (𝑠 ∈ {𝑥𝐴𝑡𝐵} → ¬ 𝑠𝑅(𝐹𝑡)))
6260, 51, 61sylc 65 . . . 4 (((𝑅 We 𝐴𝑅 Se 𝐴) ∧ (𝑠𝐴𝑡𝑠 / 𝑥𝐵)) → ¬ 𝑠𝑅(𝐹𝑡))
6362ralrimivva 3181 . . 3 ((𝑅 We 𝐴𝑅 Se 𝐴) → ∀𝑠𝐴𝑡 𝑠 / 𝑥𝐵 ¬ 𝑠𝑅(𝐹𝑡))
6437, 46, 633jca 1129 . 2 ((𝑅 We 𝐴𝑅 Se 𝐴) → (𝐹: 𝑥𝐴 𝐵𝐴 ∧ ∀𝑡 𝑥𝐴 𝐵𝑡(𝐹𝑡) / 𝑥𝐵 ∧ ∀𝑠𝐴𝑡 𝑠 / 𝑥𝐵 ¬ 𝑠𝑅(𝐹𝑡)))
651, 2, 64syl2anc 585 1 (𝜑 → (𝐹: 𝑥𝐴 𝐵𝐴 ∧ ∀𝑡 𝑥𝐴 𝐵𝑡(𝐹𝑡) / 𝑥𝐵 ∧ ∀𝑠𝐴𝑡 𝑠 / 𝑥𝐵 ¬ 𝑠𝑅(𝐹𝑡)))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wa 395  wo 848  w3a 1087   = wceq 1542  wcel 2114  wne 2933  wral 3052  wrex 3062  ∃!wreu 3341  {crab 3390  [wsbc 3729  csb 3838  wss 3890  c0 4274   ciun 4934   class class class wbr 5086  {copab 5148  cmpt 5167   Se wse 5575   We wwe 5576   Fn wfn 6487  wf 6488  cfv 6492  crio 7316
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1797  ax-4 1811  ax-5 1912  ax-6 1969  ax-7 2010  ax-8 2116  ax-9 2124  ax-10 2147  ax-11 2163  ax-12 2185  ax-ext 2709  ax-sep 5231  ax-nul 5241  ax-pr 5370
This theorem depends on definitions:  df-bi 207  df-an 396  df-or 849  df-3or 1088  df-3an 1089  df-tru 1545  df-fal 1555  df-ex 1782  df-nf 1786  df-sb 2069  df-mo 2540  df-eu 2570  df-clab 2716  df-cleq 2729  df-clel 2812  df-nfc 2886  df-ne 2934  df-ral 3053  df-rex 3063  df-rmo 3343  df-reu 3344  df-rab 3391  df-v 3432  df-sbc 3730  df-csb 3839  df-dif 3893  df-un 3895  df-in 3897  df-ss 3907  df-nul 4275  df-if 4468  df-pw 4544  df-sn 4569  df-pr 4571  df-op 4575  df-uni 4852  df-iun 4936  df-br 5087  df-opab 5149  df-mpt 5168  df-id 5519  df-po 5532  df-so 5533  df-fr 5577  df-se 5578  df-we 5579  df-xp 5630  df-rel 5631  df-cnv 5632  df-co 5633  df-dm 5634  df-rn 5635  df-iota 6448  df-fun 6494  df-fn 6495  df-f 6496  df-fv 6500  df-riota 7317
This theorem is referenced by:  weiunfrlem  36662  weiunpo  36663  weiunso  36664  weiunfr  36665  weiunse  36666
  Copyright terms: Public domain W3C validator