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 36645
Description: Lemma for weiunpo 36647, weiunso 36648, weiunfr 36649, and weiunse 36650. (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 7328 . . . . . 6 (𝑢 ∈ {𝑥𝐴𝑤𝐵}∀𝑣 ∈ {𝑥𝐴𝑤𝐵} ¬ 𝑣𝑅𝑢) ∈ V
4 weiun.1 . . . . . 6 𝐹 = (𝑤 𝑥𝐴 𝐵 ↦ (𝑢 ∈ {𝑥𝐴𝑤𝐵}∀𝑣 ∈ {𝑥𝐴𝑤𝐵} ¬ 𝑣𝑅𝑢))
53, 4fnmpti 6641 . . . . 5 𝐹 Fn 𝑥𝐴 𝐵
65a1i 11 . . . 4 ((𝑅 We 𝐴𝑅 Se 𝐴) → 𝐹 Fn 𝑥𝐴 𝐵)
7 breq2 5089 . . . . . . . . . . . . 13 (𝑢 = 𝑟 → (𝑣𝑅𝑢𝑣𝑅𝑟))
87notbid 318 . . . . . . . . . . . 12 (𝑢 = 𝑟 → (¬ 𝑣𝑅𝑢 ↔ ¬ 𝑣𝑅𝑟))
98ralbidv 3160 . . . . . . . . . . 11 (𝑢 = 𝑟 → (∀𝑣 ∈ {𝑥𝐴𝑤𝐵} ¬ 𝑣𝑅𝑢 ↔ ∀𝑣 ∈ {𝑥𝐴𝑤𝐵} ¬ 𝑣𝑅𝑟))
109cbvriotavw 7334 . . . . . . . . . 10 (𝑢 ∈ {𝑥𝐴𝑤𝐵}∀𝑣 ∈ {𝑥𝐴𝑤𝐵} ¬ 𝑣𝑅𝑢) = (𝑟 ∈ {𝑥𝐴𝑤𝐵}∀𝑣 ∈ {𝑥𝐴𝑤𝐵} ¬ 𝑣𝑅𝑟)
11 eleq1w 2819 . . . . . . . . . . . 12 (𝑤 = 𝑡 → (𝑤𝐵𝑡𝐵))
1211rabbidv 3396 . . . . . . . . . . 11 (𝑤 = 𝑡 → {𝑥𝐴𝑤𝐵} = {𝑥𝐴𝑡𝐵})
13 breq1 5088 . . . . . . . . . . . . . 14 (𝑣 = 𝑠 → (𝑣𝑅𝑟𝑠𝑅𝑟))
1413notbid 318 . . . . . . . . . . . . 13 (𝑣 = 𝑠 → (¬ 𝑣𝑅𝑟 ↔ ¬ 𝑠𝑅𝑟))
1514cbvralvw 3215 . . . . . . . . . . . 12 (∀𝑣 ∈ {𝑥𝐴𝑤𝐵} ¬ 𝑣𝑅𝑟 ↔ ∀𝑠 ∈ {𝑥𝐴𝑤𝐵} ¬ 𝑠𝑅𝑟)
1612raleqdv 3295 . . . . . . . . . . . 12 (𝑤 = 𝑡 → (∀𝑠 ∈ {𝑥𝐴𝑤𝐵} ¬ 𝑠𝑅𝑟 ↔ ∀𝑠 ∈ {𝑥𝐴𝑡𝐵} ¬ 𝑠𝑅𝑟))
1715, 16bitrid 283 . . . . . . . . . . 11 (𝑤 = 𝑡 → (∀𝑣 ∈ {𝑥𝐴𝑤𝐵} ¬ 𝑣𝑅𝑟 ↔ ∀𝑠 ∈ {𝑥𝐴𝑡𝐵} ¬ 𝑠𝑅𝑟))
1812, 17riotaeqbidv 7327 . . . . . . . . . 10 (𝑤 = 𝑡 → (𝑟 ∈ {𝑥𝐴𝑤𝐵}∀𝑣 ∈ {𝑥𝐴𝑤𝐵} ¬ 𝑣𝑅𝑟) = (𝑟 ∈ {𝑥𝐴𝑡𝐵}∀𝑠 ∈ {𝑥𝐴𝑡𝐵} ¬ 𝑠𝑅𝑟))
1910, 18eqtrid 2783 . . . . . . . . 9 (𝑤 = 𝑡 → (𝑢 ∈ {𝑥𝐴𝑤𝐵}∀𝑣 ∈ {𝑥𝐴𝑤𝐵} ¬ 𝑣𝑅𝑢) = (𝑟 ∈ {𝑥𝐴𝑡𝐵}∀𝑠 ∈ {𝑥𝐴𝑡𝐵} ¬ 𝑠𝑅𝑟))
2019, 4, 3fvmpt3i 6953 . . . . . . . 8 (𝑡 𝑥𝐴 𝐵 → (𝐹𝑡) = (𝑟 ∈ {𝑥𝐴𝑡𝐵}∀𝑠 ∈ {𝑥𝐴𝑡𝐵} ¬ 𝑠𝑅𝑟))
2120adantl 481 . . . . . . 7 (((𝑅 We 𝐴𝑅 Se 𝐴) ∧ 𝑡 𝑥𝐴 𝐵) → (𝐹𝑡) = (𝑟 ∈ {𝑥𝐴𝑡𝐵}∀𝑠 ∈ {𝑥𝐴𝑡𝐵} ¬ 𝑠𝑅𝑟))
22 eliun 4937 . . . . . . . . . 10 (𝑡 𝑥𝐴 𝐵 ↔ ∃𝑥𝐴 𝑡𝐵)
23 rabn0 4329 . . . . . . . . . 10 ({𝑥𝐴𝑡𝐵} ≠ ∅ ↔ ∃𝑥𝐴 𝑡𝐵)
2422, 23bitr4i 278 . . . . . . . . 9 (𝑡 𝑥𝐴 𝐵 ↔ {𝑥𝐴𝑡𝐵} ≠ ∅)
25 ssrab2 4020 . . . . . . . . . 10 {𝑥𝐴𝑡𝐵} ⊆ 𝐴
26 wereu2 5628 . . . . . . . . . 10 (((𝑅 We 𝐴𝑅 Se 𝐴) ∧ ({𝑥𝐴𝑡𝐵} ⊆ 𝐴 ∧ {𝑥𝐴𝑡𝐵} ≠ ∅)) → ∃!𝑟 ∈ {𝑥𝐴𝑡𝐵}∀𝑠 ∈ {𝑥𝐴𝑡𝐵} ¬ 𝑠𝑅𝑟)
2725, 26mpanr1 704 . . . . . . . . 9 (((𝑅 We 𝐴𝑅 Se 𝐴) ∧ {𝑥𝐴𝑡𝐵} ≠ ∅) → ∃!𝑟 ∈ {𝑥𝐴𝑡𝐵}∀𝑠 ∈ {𝑥𝐴𝑡𝐵} ¬ 𝑠𝑅𝑟)
2824, 27sylan2b 595 . . . . . . . 8 (((𝑅 We 𝐴𝑅 Se 𝐴) ∧ 𝑡 𝑥𝐴 𝐵) → ∃!𝑟 ∈ {𝑥𝐴𝑡𝐵}∀𝑠 ∈ {𝑥𝐴𝑡𝐵} ¬ 𝑠𝑅𝑟)
29 riotacl2 7340 . . . . . . . 8 (∃!𝑟 ∈ {𝑥𝐴𝑡𝐵}∀𝑠 ∈ {𝑥𝐴𝑡𝐵} ¬ 𝑠𝑅𝑟 → (𝑟 ∈ {𝑥𝐴𝑡𝐵}∀𝑠 ∈ {𝑥𝐴𝑡𝐵} ¬ 𝑠𝑅𝑟) ∈ {𝑟 ∈ {𝑥𝐴𝑡𝐵} ∣ ∀𝑠 ∈ {𝑥𝐴𝑡𝐵} ¬ 𝑠𝑅𝑟})
3028, 29syl 17 . . . . . . 7 (((𝑅 We 𝐴𝑅 Se 𝐴) ∧ 𝑡 𝑥𝐴 𝐵) → (𝑟 ∈ {𝑥𝐴𝑡𝐵}∀𝑠 ∈ {𝑥𝐴𝑡𝐵} ¬ 𝑠𝑅𝑟) ∈ {𝑟 ∈ {𝑥𝐴𝑡𝐵} ∣ ∀𝑠 ∈ {𝑥𝐴𝑡𝐵} ¬ 𝑠𝑅𝑟})
3121, 30eqeltrd 2836 . . . . . 6 (((𝑅 We 𝐴𝑅 Se 𝐴) ∧ 𝑡 𝑥𝐴 𝐵) → (𝐹𝑡) ∈ {𝑟 ∈ {𝑥𝐴𝑡𝐵} ∣ ∀𝑠 ∈ {𝑥𝐴𝑡𝐵} ¬ 𝑠𝑅𝑟})
32 elrabi 3630 . . . . . 6 ((𝐹𝑡) ∈ {𝑟 ∈ {𝑥𝐴𝑡𝐵} ∣ ∀𝑠 ∈ {𝑥𝐴𝑡𝐵} ¬ 𝑠𝑅𝑟} → (𝐹𝑡) ∈ {𝑥𝐴𝑡𝐵})
33 elrabi 3630 . . . . . 6 ((𝐹𝑡) ∈ {𝑥𝐴𝑡𝐵} → (𝐹𝑡) ∈ 𝐴)
3431, 32, 333syl 18 . . . . 5 (((𝑅 We 𝐴𝑅 Se 𝐴) ∧ 𝑡 𝑥𝐴 𝐵) → (𝐹𝑡) ∈ 𝐴)
3534ralrimiva 3129 . . . 4 ((𝑅 We 𝐴𝑅 Se 𝐴) → ∀𝑡 𝑥𝐴 𝐵(𝐹𝑡) ∈ 𝐴)
36 ffnfv 7071 . . . 4 (𝐹: 𝑥𝐴 𝐵𝐴 ↔ (𝐹 Fn 𝑥𝐴 𝐵 ∧ ∀𝑡 𝑥𝐴 𝐵(𝐹𝑡) ∈ 𝐴))
376, 35, 36sylanbrc 584 . . 3 ((𝑅 We 𝐴𝑅 Se 𝐴) → 𝐹: 𝑥𝐴 𝐵𝐴)
38 dfsbcq 3730 . . . . . . 7 (𝑠 = (𝐹𝑡) → ([𝑠 / 𝑥]𝑡𝐵[(𝐹𝑡) / 𝑥]𝑡𝐵))
39 nfcv 2898 . . . . . . . . 9 𝑥𝐴
4039elrabsf 3774 . . . . . . . 8 (𝑠 ∈ {𝑥𝐴𝑡𝐵} ↔ (𝑠𝐴[𝑠 / 𝑥]𝑡𝐵))
4140simprbi 497 . . . . . . 7 (𝑠 ∈ {𝑥𝐴𝑡𝐵} → [𝑠 / 𝑥]𝑡𝐵)
4238, 41vtoclga 3520 . . . . . 6 ((𝐹𝑡) ∈ {𝑥𝐴𝑡𝐵} → [(𝐹𝑡) / 𝑥]𝑡𝐵)
4331, 32, 423syl 18 . . . . 5 (((𝑅 We 𝐴𝑅 Se 𝐴) ∧ 𝑡 𝑥𝐴 𝐵) → [(𝐹𝑡) / 𝑥]𝑡𝐵)
44 sbcel2 4358 . . . . 5 ([(𝐹𝑡) / 𝑥]𝑡𝐵𝑡(𝐹𝑡) / 𝑥𝐵)
4543, 44sylib 218 . . . 4 (((𝑅 We 𝐴𝑅 Se 𝐴) ∧ 𝑡 𝑥𝐴 𝐵) → 𝑡(𝐹𝑡) / 𝑥𝐵)
4645ralrimiva 3129 . . 3 ((𝑅 We 𝐴𝑅 Se 𝐴) → ∀𝑡 𝑥𝐴 𝐵𝑡(𝐹𝑡) / 𝑥𝐵)
47 simpr 484 . . . . . . . . 9 (((𝑅 We 𝐴𝑅 Se 𝐴) ∧ (𝑠𝐴𝑡𝑠 / 𝑥𝐵)) → (𝑠𝐴𝑡𝑠 / 𝑥𝐵))
48 sbcel2 4358 . . . . . . . . . . 11 ([𝑠 / 𝑥]𝑡𝐵𝑡𝑠 / 𝑥𝐵)
4948anbi2i 624 . . . . . . . . . 10 ((𝑠𝐴[𝑠 / 𝑥]𝑡𝐵) ↔ (𝑠𝐴𝑡𝑠 / 𝑥𝐵))
5040, 49bitri 275 . . . . . . . . 9 (𝑠 ∈ {𝑥𝐴𝑡𝐵} ↔ (𝑠𝐴𝑡𝑠 / 𝑥𝐵))
5147, 50sylibr 234 . . . . . . . 8 (((𝑅 We 𝐴𝑅 Se 𝐴) ∧ (𝑠𝐴𝑡𝑠 / 𝑥𝐵)) → 𝑠 ∈ {𝑥𝐴𝑡𝐵})
5251ne0d 4282 . . . . . . 7 (((𝑅 We 𝐴𝑅 Se 𝐴) ∧ (𝑠𝐴𝑡𝑠 / 𝑥𝐵)) → {𝑥𝐴𝑡𝐵} ≠ ∅)
5352, 24sylibr 234 . . . . . 6 (((𝑅 We 𝐴𝑅 Se 𝐴) ∧ (𝑠𝐴𝑡𝑠 / 𝑥𝐵)) → 𝑡 𝑥𝐴 𝐵)
54 breq2 5089 . . . . . . . . . . 11 (𝑟 = (𝐹𝑡) → (𝑠𝑅𝑟𝑠𝑅(𝐹𝑡)))
5554notbid 318 . . . . . . . . . 10 (𝑟 = (𝐹𝑡) → (¬ 𝑠𝑅𝑟 ↔ ¬ 𝑠𝑅(𝐹𝑡)))
5655ralbidv 3160 . . . . . . . . 9 (𝑟 = (𝐹𝑡) → (∀𝑠 ∈ {𝑥𝐴𝑡𝐵} ¬ 𝑠𝑅𝑟 ↔ ∀𝑠 ∈ {𝑥𝐴𝑡𝐵} ¬ 𝑠𝑅(𝐹𝑡)))
5756elrab 3634 . . . . . . . 8 ((𝐹𝑡) ∈ {𝑟 ∈ {𝑥𝐴𝑡𝐵} ∣ ∀𝑠 ∈ {𝑥𝐴𝑡𝐵} ¬ 𝑠𝑅𝑟} ↔ ((𝐹𝑡) ∈ {𝑥𝐴𝑡𝐵} ∧ ∀𝑠 ∈ {𝑥𝐴𝑡𝐵} ¬ 𝑠𝑅(𝐹𝑡)))
5857simprbi 497 . . . . . . 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 2932  wral 3051  wrex 3061  ∃!wreu 3340  {crab 3389  [wsbc 3728  csb 3837  wss 3889  c0 4273   ciun 4933   class class class wbr 5085  {copab 5147  cmpt 5166   Se wse 5582   We wwe 5583   Fn wfn 6493  wf 6494  cfv 6498  crio 7323
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 2708  ax-sep 5231  ax-nul 5241  ax-pr 5375
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 2539  df-eu 2569  df-clab 2715  df-cleq 2728  df-clel 2811  df-nfc 2885  df-ne 2933  df-ral 3052  df-rex 3062  df-rmo 3342  df-reu 3343  df-rab 3390  df-v 3431  df-sbc 3729  df-csb 3838  df-dif 3892  df-un 3894  df-in 3896  df-ss 3906  df-nul 4274  df-if 4467  df-pw 4543  df-sn 4568  df-pr 4570  df-op 4574  df-uni 4851  df-iun 4935  df-br 5086  df-opab 5148  df-mpt 5167  df-id 5526  df-po 5539  df-so 5540  df-fr 5584  df-se 5585  df-we 5586  df-xp 5637  df-rel 5638  df-cnv 5639  df-co 5640  df-dm 5641  df-rn 5642  df-iota 6454  df-fun 6500  df-fn 6501  df-f 6502  df-fv 6506  df-riota 7324
This theorem is referenced by:  weiunfrlem  36646  weiunpo  36647  weiunso  36648  weiunfr  36649  weiunse  36650
  Copyright terms: Public domain W3C validator