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

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

Proof of Theorem weiunlem2
Dummy variable 𝑟 is distinct from all other variables.
StepHypRef Expression
1 weiunlem2.3 . 2 (𝜑𝑅 We 𝐴)
2 weiunlem2.4 . 2 (𝜑𝑅 Se 𝐴)
3 riotaex 7321 . . . . . 6 (𝑢 ∈ {𝑥𝐴𝑤𝐵}∀𝑣 ∈ {𝑥𝐴𝑤𝐵} ¬ 𝑣𝑅𝑢) ∈ V
4 weiun.1 . . . . . 6 𝐹 = (𝑤 𝑥𝐴 𝐵 ↦ (𝑢 ∈ {𝑥𝐴𝑤𝐵}∀𝑣 ∈ {𝑥𝐴𝑤𝐵} ¬ 𝑣𝑅𝑢))
53, 4fnmpti 6636 . . . . 5 𝐹 Fn 𝑥𝐴 𝐵
65a1i 11 . . . 4 ((𝑅 We 𝐴𝑅 Se 𝐴) → 𝐹 Fn 𝑥𝐴 𝐵)
7 breq2 5103 . . . . . . . . . . . . 13 (𝑢 = 𝑟 → (𝑣𝑅𝑢𝑣𝑅𝑟))
87notbid 318 . . . . . . . . . . . 12 (𝑢 = 𝑟 → (¬ 𝑣𝑅𝑢 ↔ ¬ 𝑣𝑅𝑟))
98ralbidv 3160 . . . . . . . . . . 11 (𝑢 = 𝑟 → (∀𝑣 ∈ {𝑥𝐴𝑤𝐵} ¬ 𝑣𝑅𝑢 ↔ ∀𝑣 ∈ {𝑥𝐴𝑤𝐵} ¬ 𝑣𝑅𝑟))
109cbvriotavw 7327 . . . . . . . . . 10 (𝑢 ∈ {𝑥𝐴𝑤𝐵}∀𝑣 ∈ {𝑥𝐴𝑤𝐵} ¬ 𝑣𝑅𝑢) = (𝑟 ∈ {𝑥𝐴𝑤𝐵}∀𝑣 ∈ {𝑥𝐴𝑤𝐵} ¬ 𝑣𝑅𝑟)
11 eleq1w 2820 . . . . . . . . . . . 12 (𝑤 = 𝑡 → (𝑤𝐵𝑡𝐵))
1211rabbidv 3407 . . . . . . . . . . 11 (𝑤 = 𝑡 → {𝑥𝐴𝑤𝐵} = {𝑥𝐴𝑡𝐵})
13 breq1 5102 . . . . . . . . . . . . . 14 (𝑣 = 𝑠 → (𝑣𝑅𝑟𝑠𝑅𝑟))
1413notbid 318 . . . . . . . . . . . . 13 (𝑣 = 𝑠 → (¬ 𝑣𝑅𝑟 ↔ ¬ 𝑠𝑅𝑟))
1514cbvralvw 3215 . . . . . . . . . . . 12 (∀𝑣 ∈ {𝑥𝐴𝑤𝐵} ¬ 𝑣𝑅𝑟 ↔ ∀𝑠 ∈ {𝑥𝐴𝑤𝐵} ¬ 𝑠𝑅𝑟)
1612raleqdv 3297 . . . . . . . . . . . 12 (𝑤 = 𝑡 → (∀𝑠 ∈ {𝑥𝐴𝑤𝐵} ¬ 𝑠𝑅𝑟 ↔ ∀𝑠 ∈ {𝑥𝐴𝑡𝐵} ¬ 𝑠𝑅𝑟))
1715, 16bitrid 283 . . . . . . . . . . 11 (𝑤 = 𝑡 → (∀𝑣 ∈ {𝑥𝐴𝑤𝐵} ¬ 𝑣𝑅𝑟 ↔ ∀𝑠 ∈ {𝑥𝐴𝑡𝐵} ¬ 𝑠𝑅𝑟))
1812, 17riotaeqbidv 7320 . . . . . . . . . 10 (𝑤 = 𝑡 → (𝑟 ∈ {𝑥𝐴𝑤𝐵}∀𝑣 ∈ {𝑥𝐴𝑤𝐵} ¬ 𝑣𝑅𝑟) = (𝑟 ∈ {𝑥𝐴𝑡𝐵}∀𝑠 ∈ {𝑥𝐴𝑡𝐵} ¬ 𝑠𝑅𝑟))
1910, 18eqtrid 2784 . . . . . . . . 9 (𝑤 = 𝑡 → (𝑢 ∈ {𝑥𝐴𝑤𝐵}∀𝑣 ∈ {𝑥𝐴𝑤𝐵} ¬ 𝑣𝑅𝑢) = (𝑟 ∈ {𝑥𝐴𝑡𝐵}∀𝑠 ∈ {𝑥𝐴𝑡𝐵} ¬ 𝑠𝑅𝑟))
2019, 4, 3fvmpt3i 6948 . . . . . . . 8 (𝑡 𝑥𝐴 𝐵 → (𝐹𝑡) = (𝑟 ∈ {𝑥𝐴𝑡𝐵}∀𝑠 ∈ {𝑥𝐴𝑡𝐵} ¬ 𝑠𝑅𝑟))
2120adantl 481 . . . . . . 7 (((𝑅 We 𝐴𝑅 Se 𝐴) ∧ 𝑡 𝑥𝐴 𝐵) → (𝐹𝑡) = (𝑟 ∈ {𝑥𝐴𝑡𝐵}∀𝑠 ∈ {𝑥𝐴𝑡𝐵} ¬ 𝑠𝑅𝑟))
22 eliun 4951 . . . . . . . . . 10 (𝑡 𝑥𝐴 𝐵 ↔ ∃𝑥𝐴 𝑡𝐵)
23 rabn0 4342 . . . . . . . . . 10 ({𝑥𝐴𝑡𝐵} ≠ ∅ ↔ ∃𝑥𝐴 𝑡𝐵)
2422, 23bitr4i 278 . . . . . . . . 9 (𝑡 𝑥𝐴 𝐵 ↔ {𝑥𝐴𝑡𝐵} ≠ ∅)
25 ssrab2 4033 . . . . . . . . . 10 {𝑥𝐴𝑡𝐵} ⊆ 𝐴
26 wereu2 5622 . . . . . . . . . 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 3643 . . . . . 6 ((𝐹𝑡) ∈ {𝑟 ∈ {𝑥𝐴𝑡𝐵} ∣ ∀𝑠 ∈ {𝑥𝐴𝑡𝐵} ¬ 𝑠𝑅𝑟} → (𝐹𝑡) ∈ {𝑥𝐴𝑡𝐵})
33 elrabi 3643 . . . . . 6 ((𝐹𝑡) ∈ {𝑥𝐴𝑡𝐵} → (𝐹𝑡) ∈ 𝐴)
3431, 32, 333syl 18 . . . . 5 (((𝑅 We 𝐴𝑅 Se 𝐴) ∧ 𝑡 𝑥𝐴 𝐵) → (𝐹𝑡) ∈ 𝐴)
3534ralrimiva 3129 . . . 4 ((𝑅 We 𝐴𝑅 Se 𝐴) → ∀𝑡 𝑥𝐴 𝐵(𝐹𝑡) ∈ 𝐴)
36 ffnfv 7066 . . . 4 (𝐹: 𝑥𝐴 𝐵𝐴 ↔ (𝐹 Fn 𝑥𝐴 𝐵 ∧ ∀𝑡 𝑥𝐴 𝐵(𝐹𝑡) ∈ 𝐴))
376, 35, 36sylanbrc 584 . . 3 ((𝑅 We 𝐴𝑅 Se 𝐴) → 𝐹: 𝑥𝐴 𝐵𝐴)
38 dfsbcq 3743 . . . . . . 7 (𝑠 = (𝐹𝑡) → ([𝑠 / 𝑥]𝑡𝐵[(𝐹𝑡) / 𝑥]𝑡𝐵))
39 nfcv 2899 . . . . . . . . 9 𝑥𝐴
4039elrabsf 3787 . . . . . . . 8 (𝑠 ∈ {𝑥𝐴𝑡𝐵} ↔ (𝑠𝐴[𝑠 / 𝑥]𝑡𝐵))
4140simprbi 496 . . . . . . 7 (𝑠 ∈ {𝑥𝐴𝑡𝐵} → [𝑠 / 𝑥]𝑡𝐵)
4238, 41vtoclga 3533 . . . . . 6 ((𝐹𝑡) ∈ {𝑥𝐴𝑡𝐵} → [(𝐹𝑡) / 𝑥]𝑡𝐵)
4331, 32, 423syl 18 . . . . 5 (((𝑅 We 𝐴𝑅 Se 𝐴) ∧ 𝑡 𝑥𝐴 𝐵) → [(𝐹𝑡) / 𝑥]𝑡𝐵)
44 sbcel2 4371 . . . . 5 ([(𝐹𝑡) / 𝑥]𝑡𝐵𝑡(𝐹𝑡) / 𝑥𝐵)
4543, 44sylib 218 . . . 4 (((𝑅 We 𝐴𝑅 Se 𝐴) ∧ 𝑡 𝑥𝐴 𝐵) → 𝑡(𝐹𝑡) / 𝑥𝐵)
4645ralrimiva 3129 . . 3 ((𝑅 We 𝐴𝑅 Se 𝐴) → ∀𝑡 𝑥𝐴 𝐵𝑡(𝐹𝑡) / 𝑥𝐵)
47 simpr 484 . . . . . . . . 9 (((𝑅 We 𝐴𝑅 Se 𝐴) ∧ (𝑠𝐴𝑡𝑠 / 𝑥𝐵)) → (𝑠𝐴𝑡𝑠 / 𝑥𝐵))
48 sbcel2 4371 . . . . . . . . . . 11 ([𝑠 / 𝑥]𝑡𝐵𝑡𝑠 / 𝑥𝐵)
4948anbi2i 624 . . . . . . . . . 10 ((𝑠𝐴[𝑠 / 𝑥]𝑡𝐵) ↔ (𝑠𝐴𝑡𝑠 / 𝑥𝐵))
5040, 49bitri 275 . . . . . . . . 9 (𝑠 ∈ {𝑥𝐴𝑡𝐵} ↔ (𝑠𝐴𝑡𝑠 / 𝑥𝐵))
5147, 50sylibr 234 . . . . . . . 8 (((𝑅 We 𝐴𝑅 Se 𝐴) ∧ (𝑠𝐴𝑡𝑠 / 𝑥𝐵)) → 𝑠 ∈ {𝑥𝐴𝑡𝐵})
5251ne0d 4295 . . . . . . 7 (((𝑅 We 𝐴𝑅 Se 𝐴) ∧ (𝑠𝐴𝑡𝑠 / 𝑥𝐵)) → {𝑥𝐴𝑡𝐵} ≠ ∅)
5352, 24sylibr 234 . . . . . 6 (((𝑅 We 𝐴𝑅 Se 𝐴) ∧ (𝑠𝐴𝑡𝑠 / 𝑥𝐵)) → 𝑡 𝑥𝐴 𝐵)
54 breq2 5103 . . . . . . . . . . 11 (𝑟 = (𝐹𝑡) → (𝑠𝑅𝑟𝑠𝑅(𝐹𝑡)))
5554notbid 318 . . . . . . . . . 10 (𝑟 = (𝐹𝑡) → (¬ 𝑠𝑅𝑟 ↔ ¬ 𝑠𝑅(𝐹𝑡)))
5655ralbidv 3160 . . . . . . . . 9 (𝑟 = (𝐹𝑡) → (∀𝑠 ∈ {𝑥𝐴𝑡𝐵} ¬ 𝑠𝑅𝑟 ↔ ∀𝑠 ∈ {𝑥𝐴𝑡𝐵} ¬ 𝑠𝑅(𝐹𝑡)))
5756elrab 3647 . . . . . . . 8 ((𝐹𝑡) ∈ {𝑟 ∈ {𝑥𝐴𝑡𝐵} ∣ ∀𝑠 ∈ {𝑥𝐴𝑡𝐵} ¬ 𝑠𝑅𝑟} ↔ ((𝐹𝑡) ∈ {𝑥𝐴𝑡𝐵} ∧ ∀𝑠 ∈ {𝑥𝐴𝑡𝐵} ¬ 𝑠𝑅(𝐹𝑡)))
5857simprbi 496 . . . . . . 7 ((𝐹𝑡) ∈ {𝑟 ∈ {𝑥𝐴𝑡𝐵} ∣ ∀𝑠 ∈ {𝑥𝐴𝑡𝐵} ¬ 𝑠𝑅𝑟} → ∀𝑠 ∈ {𝑥𝐴𝑡𝐵} ¬ 𝑠𝑅(𝐹𝑡))
5931, 58syl 17 . . . . . 6 (((𝑅 We 𝐴𝑅 Se 𝐴) ∧ 𝑡 𝑥𝐴 𝐵) → ∀𝑠 ∈ {𝑥𝐴𝑡𝐵} ¬ 𝑠𝑅(𝐹𝑡))
6053, 59syldan 592 . . . . 5 (((𝑅 We 𝐴𝑅 Se 𝐴) ∧ (𝑠𝐴𝑡𝑠 / 𝑥𝐵)) → ∀𝑠 ∈ {𝑥𝐴𝑡𝐵} ¬ 𝑠𝑅(𝐹𝑡))
61 rsp 3225 . . . . 5 (∀𝑠 ∈ {𝑥𝐴𝑡𝐵} ¬ 𝑠𝑅(𝐹𝑡) → (𝑠 ∈ {𝑥𝐴𝑡𝐵} → ¬ 𝑠𝑅(𝐹𝑡)))
6260, 51, 61sylc 65 . . . 4 (((𝑅 We 𝐴𝑅 Se 𝐴) ∧ (𝑠𝐴𝑡𝑠 / 𝑥𝐵)) → ¬ 𝑠𝑅(𝐹𝑡))
6362ralrimivva 3180 . . 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 3061  ∃!wreu 3349  {crab 3400  [wsbc 3741  csb 3850  wss 3902  c0 4286   ciun 4947   class class class wbr 5099  {copab 5161  cmpt 5180   Se wse 5576   We wwe 5577   Fn wfn 6488  wf 6489  cfv 6493  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 5242  ax-nul 5252  ax-pr 5378
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 3062  df-rmo 3351  df-reu 3352  df-rab 3401  df-v 3443  df-sbc 3742  df-csb 3851  df-dif 3905  df-un 3907  df-in 3909  df-ss 3919  df-nul 4287  df-if 4481  df-pw 4557  df-sn 4582  df-pr 4584  df-op 4588  df-uni 4865  df-iun 4949  df-br 5100  df-opab 5162  df-mpt 5181  df-id 5520  df-po 5533  df-so 5534  df-fr 5578  df-se 5579  df-we 5580  df-xp 5631  df-rel 5632  df-cnv 5633  df-co 5634  df-dm 5635  df-rn 5636  df-iota 6449  df-fun 6495  df-fn 6496  df-f 6497  df-fv 6501  df-riota 7317
This theorem is referenced by:  weiunfrlem  36639  weiunpo  36640  weiunso  36641  weiunfr  36642  weiunse  36643
  Copyright terms: Public domain W3C validator