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 36952
Description: Lemma for weiunpo 36954, weiunso 36955, weiunfr 36956, and weiunse 36957. (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 7373 . . . . . 6 (𝑢 ∈ {𝑥𝐴𝑤𝐵}∀𝑣 ∈ {𝑥𝐴𝑤𝐵} ¬ 𝑣𝑅𝑢) ∈ V
4 weiun.1 . . . . . 6 𝐹 = (𝑤 𝑥𝐴 𝐵 ↦ (𝑢 ∈ {𝑥𝐴𝑤𝐵}∀𝑣 ∈ {𝑥𝐴𝑤𝐵} ¬ 𝑣𝑅𝑢))
53, 4fnmpti 6680 . . . . 5 𝐹 Fn 𝑥𝐴 𝐵
65a1i 11 . . . 4 ((𝑅 We 𝐴𝑅 Se 𝐴) → 𝐹 Fn 𝑥𝐴 𝐵)
7 breq2 5114 . . . . . . . . . . . . 13 (𝑢 = 𝑟 → (𝑣𝑅𝑢𝑣𝑅𝑟))
87notbid 321 . . . . . . . . . . . 12 (𝑢 = 𝑟 → (¬ 𝑣𝑅𝑢 ↔ ¬ 𝑣𝑅𝑟))
98ralbidv 3188 . . . . . . . . . . 11 (𝑢 = 𝑟 → (∀𝑣 ∈ {𝑥𝐴𝑤𝐵} ¬ 𝑣𝑅𝑢 ↔ ∀𝑣 ∈ {𝑥𝐴𝑤𝐵} ¬ 𝑣𝑅𝑟))
109cbvriotavw 7379 . . . . . . . . . 10 (𝑢 ∈ {𝑥𝐴𝑤𝐵}∀𝑣 ∈ {𝑥𝐴𝑤𝐵} ¬ 𝑣𝑅𝑢) = (𝑟 ∈ {𝑥𝐴𝑤𝐵}∀𝑣 ∈ {𝑥𝐴𝑤𝐵} ¬ 𝑣𝑅𝑟)
11 eleq1w 2846 . . . . . . . . . . . 12 (𝑤 = 𝑡 → (𝑤𝐵𝑡𝐵))
1211rabbidv 3423 . . . . . . . . . . 11 (𝑤 = 𝑡 → {𝑥𝐴𝑤𝐵} = {𝑥𝐴𝑡𝐵})
13 breq1 5113 . . . . . . . . . . . . . 14 (𝑣 = 𝑠 → (𝑣𝑅𝑟𝑠𝑅𝑟))
1413notbid 321 . . . . . . . . . . . . 13 (𝑣 = 𝑠 → (¬ 𝑣𝑅𝑟 ↔ ¬ 𝑠𝑅𝑟))
1514cbvralvw 3243 . . . . . . . . . . . 12 (∀𝑣 ∈ {𝑥𝐴𝑤𝐵} ¬ 𝑣𝑅𝑟 ↔ ∀𝑠 ∈ {𝑥𝐴𝑤𝐵} ¬ 𝑠𝑅𝑟)
1612raleqdv 3323 . . . . . . . . . . . 12 (𝑤 = 𝑡 → (∀𝑠 ∈ {𝑥𝐴𝑤𝐵} ¬ 𝑠𝑅𝑟 ↔ ∀𝑠 ∈ {𝑥𝐴𝑡𝐵} ¬ 𝑠𝑅𝑟))
1715, 16bitrid 286 . . . . . . . . . . 11 (𝑤 = 𝑡 → (∀𝑣 ∈ {𝑥𝐴𝑤𝐵} ¬ 𝑣𝑅𝑟 ↔ ∀𝑠 ∈ {𝑥𝐴𝑡𝐵} ¬ 𝑠𝑅𝑟))
1812, 17riotaeqbidv 7372 . . . . . . . . . 10 (𝑤 = 𝑡 → (𝑟 ∈ {𝑥𝐴𝑤𝐵}∀𝑣 ∈ {𝑥𝐴𝑤𝐵} ¬ 𝑣𝑅𝑟) = (𝑟 ∈ {𝑥𝐴𝑡𝐵}∀𝑠 ∈ {𝑥𝐴𝑡𝐵} ¬ 𝑠𝑅𝑟))
1910, 18eqtrid 2810 . . . . . . . . 9 (𝑤 = 𝑡 → (𝑢 ∈ {𝑥𝐴𝑤𝐵}∀𝑣 ∈ {𝑥𝐴𝑤𝐵} ¬ 𝑣𝑅𝑢) = (𝑟 ∈ {𝑥𝐴𝑡𝐵}∀𝑠 ∈ {𝑥𝐴𝑡𝐵} ¬ 𝑠𝑅𝑟))
2019, 4, 3fvmpt3i 6997 . . . . . . . 8 (𝑡 𝑥𝐴 𝐵 → (𝐹𝑡) = (𝑟 ∈ {𝑥𝐴𝑡𝐵}∀𝑠 ∈ {𝑥𝐴𝑡𝐵} ¬ 𝑠𝑅𝑟))
2120adantl 486 . . . . . . 7 (((𝑅 We 𝐴𝑅 Se 𝐴) ∧ 𝑡 𝑥𝐴 𝐵) → (𝐹𝑡) = (𝑟 ∈ {𝑥𝐴𝑡𝐵}∀𝑠 ∈ {𝑥𝐴𝑡𝐵} ¬ 𝑠𝑅𝑟))
22 eliun 4961 . . . . . . . . . 10 (𝑡 𝑥𝐴 𝐵 ↔ ∃𝑥𝐴 𝑡𝐵)
23 rabn0 4347 . . . . . . . . . 10 ({𝑥𝐴𝑡𝐵} ≠ ∅ ↔ ∃𝑥𝐴 𝑡𝐵)
2422, 23bitr4i 281 . . . . . . . . 9 (𝑡 𝑥𝐴 𝐵 ↔ {𝑥𝐴𝑡𝐵} ≠ ∅)
25 ssrab2 4035 . . . . . . . . . 10 {𝑥𝐴𝑡𝐵} ⊆ 𝐴
26 wereu2 5660 . . . . . . . . . 10 (((𝑅 We 𝐴𝑅 Se 𝐴) ∧ ({𝑥𝐴𝑡𝐵} ⊆ 𝐴 ∧ {𝑥𝐴𝑡𝐵} ≠ ∅)) → ∃!𝑟 ∈ {𝑥𝐴𝑡𝐵}∀𝑠 ∈ {𝑥𝐴𝑡𝐵} ¬ 𝑠𝑅𝑟)
2725, 26mpanr1 715 . . . . . . . . 9 (((𝑅 We 𝐴𝑅 Se 𝐴) ∧ {𝑥𝐴𝑡𝐵} ≠ ∅) → ∃!𝑟 ∈ {𝑥𝐴𝑡𝐵}∀𝑠 ∈ {𝑥𝐴𝑡𝐵} ¬ 𝑠𝑅𝑟)
2824, 27sylan2b 605 . . . . . . . 8 (((𝑅 We 𝐴𝑅 Se 𝐴) ∧ 𝑡 𝑥𝐴 𝐵) → ∃!𝑟 ∈ {𝑥𝐴𝑡𝐵}∀𝑠 ∈ {𝑥𝐴𝑡𝐵} ¬ 𝑠𝑅𝑟)
29 riotacl2 7385 . . . . . . . 8 (∃!𝑟 ∈ {𝑥𝐴𝑡𝐵}∀𝑠 ∈ {𝑥𝐴𝑡𝐵} ¬ 𝑠𝑅𝑟 → (𝑟 ∈ {𝑥𝐴𝑡𝐵}∀𝑠 ∈ {𝑥𝐴𝑡𝐵} ¬ 𝑠𝑅𝑟) ∈ {𝑟 ∈ {𝑥𝐴𝑡𝐵} ∣ ∀𝑠 ∈ {𝑥𝐴𝑡𝐵} ¬ 𝑠𝑅𝑟})
3028, 29syl 18 . . . . . . 7 (((𝑅 We 𝐴𝑅 Se 𝐴) ∧ 𝑡 𝑥𝐴 𝐵) → (𝑟 ∈ {𝑥𝐴𝑡𝐵}∀𝑠 ∈ {𝑥𝐴𝑡𝐵} ¬ 𝑠𝑅𝑟) ∈ {𝑟 ∈ {𝑥𝐴𝑡𝐵} ∣ ∀𝑠 ∈ {𝑥𝐴𝑡𝐵} ¬ 𝑠𝑅𝑟})
3121, 30eqeltrd 2863 . . . . . 6 (((𝑅 We 𝐴𝑅 Se 𝐴) ∧ 𝑡 𝑥𝐴 𝐵) → (𝐹𝑡) ∈ {𝑟 ∈ {𝑥𝐴𝑡𝐵} ∣ ∀𝑠 ∈ {𝑥𝐴𝑡𝐵} ¬ 𝑠𝑅𝑟})
32 elrabi 3647 . . . . . 6 ((𝐹𝑡) ∈ {𝑟 ∈ {𝑥𝐴𝑡𝐵} ∣ ∀𝑠 ∈ {𝑥𝐴𝑡𝐵} ¬ 𝑠𝑅𝑟} → (𝐹𝑡) ∈ {𝑥𝐴𝑡𝐵})
33 elrabi 3647 . . . . . 6 ((𝐹𝑡) ∈ {𝑥𝐴𝑡𝐵} → (𝐹𝑡) ∈ 𝐴)
3431, 32, 333syl 19 . . . . 5 (((𝑅 We 𝐴𝑅 Se 𝐴) ∧ 𝑡 𝑥𝐴 𝐵) → (𝐹𝑡) ∈ 𝐴)
3534ralrimiva 3157 . . . 4 ((𝑅 We 𝐴𝑅 Se 𝐴) → ∀𝑡 𝑥𝐴 𝐵(𝐹𝑡) ∈ 𝐴)
36 ffnfv 7116 . . . 4 (𝐹: 𝑥𝐴 𝐵𝐴 ↔ (𝐹 Fn 𝑥𝐴 𝐵 ∧ ∀𝑡 𝑥𝐴 𝐵(𝐹𝑡) ∈ 𝐴))
376, 35, 36sylanbrc 594 . . 3 ((𝑅 We 𝐴𝑅 Se 𝐴) → 𝐹: 𝑥𝐴 𝐵𝐴)
38 dfsbcq 3747 . . . . . . 7 (𝑠 = (𝐹𝑡) → ([𝑠 / 𝑥]𝑡𝐵[(𝐹𝑡) / 𝑥]𝑡𝐵))
39 nfcv 2925 . . . . . . . . 9 𝑥𝐴
4039elrabsf 3790 . . . . . . . 8 (𝑠 ∈ {𝑥𝐴𝑡𝐵} ↔ (𝑠𝐴[𝑠 / 𝑥]𝑡𝐵))
4140simprbi 502 . . . . . . 7 (𝑠 ∈ {𝑥𝐴𝑡𝐵} → [𝑠 / 𝑥]𝑡𝐵)
4238, 41vtoclga 3542 . . . . . 6 ((𝐹𝑡) ∈ {𝑥𝐴𝑡𝐵} → [(𝐹𝑡) / 𝑥]𝑡𝐵)
4331, 32, 423syl 19 . . . . 5 (((𝑅 We 𝐴𝑅 Se 𝐴) ∧ 𝑡 𝑥𝐴 𝐵) → [(𝐹𝑡) / 𝑥]𝑡𝐵)
44 sbcel2 4384 . . . . 5 ([(𝐹𝑡) / 𝑥]𝑡𝐵𝑡(𝐹𝑡) / 𝑥𝐵)
4543, 44sylib 221 . . . 4 (((𝑅 We 𝐴𝑅 Se 𝐴) ∧ 𝑡 𝑥𝐴 𝐵) → 𝑡(𝐹𝑡) / 𝑥𝐵)
4645ralrimiva 3157 . . 3 ((𝑅 We 𝐴𝑅 Se 𝐴) → ∀𝑡 𝑥𝐴 𝐵𝑡(𝐹𝑡) / 𝑥𝐵)
47 sbcel2 4384 . . . . . . . . . . 11 ([𝑠 / 𝑥]𝑡𝐵𝑡𝑠 / 𝑥𝐵)
4847anbi2i 634 . . . . . . . . . 10 ((𝑠𝐴[𝑠 / 𝑥]𝑡𝐵) ↔ (𝑠𝐴𝑡𝑠 / 𝑥𝐵))
4940, 48bitri 278 . . . . . . . . 9 (𝑠 ∈ {𝑥𝐴𝑡𝐵} ↔ (𝑠𝐴𝑡𝑠 / 𝑥𝐵))
5049bilanri 511 . . . . . . . 8 (((𝑅 We 𝐴𝑅 Se 𝐴) ∧ (𝑠𝐴𝑡𝑠 / 𝑥𝐵)) → 𝑠 ∈ {𝑥𝐴𝑡𝐵})
5150ne0d 4296 . . . . . . 7 (((𝑅 We 𝐴𝑅 Se 𝐴) ∧ (𝑠𝐴𝑡𝑠 / 𝑥𝐵)) → {𝑥𝐴𝑡𝐵} ≠ ∅)
5251, 24sylibr 237 . . . . . 6 (((𝑅 We 𝐴𝑅 Se 𝐴) ∧ (𝑠𝐴𝑡𝑠 / 𝑥𝐵)) → 𝑡 𝑥𝐴 𝐵)
53 breq2 5114 . . . . . . . . . . 11 (𝑟 = (𝐹𝑡) → (𝑠𝑅𝑟𝑠𝑅(𝐹𝑡)))
5453notbid 321 . . . . . . . . . 10 (𝑟 = (𝐹𝑡) → (¬ 𝑠𝑅𝑟 ↔ ¬ 𝑠𝑅(𝐹𝑡)))
5554ralbidv 3188 . . . . . . . . 9 (𝑟 = (𝐹𝑡) → (∀𝑠 ∈ {𝑥𝐴𝑡𝐵} ¬ 𝑠𝑅𝑟 ↔ ∀𝑠 ∈ {𝑥𝐴𝑡𝐵} ¬ 𝑠𝑅(𝐹𝑡)))
5655elrab 3651 . . . . . . . 8 ((𝐹𝑡) ∈ {𝑟 ∈ {𝑥𝐴𝑡𝐵} ∣ ∀𝑠 ∈ {𝑥𝐴𝑡𝐵} ¬ 𝑠𝑅𝑟} ↔ ((𝐹𝑡) ∈ {𝑥𝐴𝑡𝐵} ∧ ∀𝑠 ∈ {𝑥𝐴𝑡𝐵} ¬ 𝑠𝑅(𝐹𝑡)))
5756simprbi 502 . . . . . . 7 ((𝐹𝑡) ∈ {𝑟 ∈ {𝑥𝐴𝑡𝐵} ∣ ∀𝑠 ∈ {𝑥𝐴𝑡𝐵} ¬ 𝑠𝑅𝑟} → ∀𝑠 ∈ {𝑥𝐴𝑡𝐵} ¬ 𝑠𝑅(𝐹𝑡))
5831, 57syl 18 . . . . . 6 (((𝑅 We 𝐴𝑅 Se 𝐴) ∧ 𝑡 𝑥𝐴 𝐵) → ∀𝑠 ∈ {𝑥𝐴𝑡𝐵} ¬ 𝑠𝑅(𝐹𝑡))
5952, 58syldan 602 . . . . 5 (((𝑅 We 𝐴𝑅 Se 𝐴) ∧ (𝑠𝐴𝑡𝑠 / 𝑥𝐵)) → ∀𝑠 ∈ {𝑥𝐴𝑡𝐵} ¬ 𝑠𝑅(𝐹𝑡))
60 rsp 3253 . . . . 5 (∀𝑠 ∈ {𝑥𝐴𝑡𝐵} ¬ 𝑠𝑅(𝐹𝑡) → (𝑠 ∈ {𝑥𝐴𝑡𝐵} → ¬ 𝑠𝑅(𝐹𝑡)))
6159, 50, 60sylc 66 . . . 4 (((𝑅 We 𝐴𝑅 Se 𝐴) ∧ (𝑠𝐴𝑡𝑠 / 𝑥𝐵)) → ¬ 𝑠𝑅(𝐹𝑡))
6261ralrimivva 3208 . . 3 ((𝑅 We 𝐴𝑅 Se 𝐴) → ∀𝑠𝐴𝑡 𝑠 / 𝑥𝐵 ¬ 𝑠𝑅(𝐹𝑡))
6337, 46, 623jca 1146 . 2 ((𝑅 We 𝐴𝑅 Se 𝐴) → (𝐹: 𝑥𝐴 𝐵𝐴 ∧ ∀𝑡 𝑥𝐴 𝐵𝑡(𝐹𝑡) / 𝑥𝐵 ∧ ∀𝑠𝐴𝑡 𝑠 / 𝑥𝐵 ¬ 𝑠𝑅(𝐹𝑡)))
641, 2, 63syl2anc 595 1 (𝜑 → (𝐹: 𝑥𝐴 𝐵𝐴 ∧ ∀𝑡 𝑥𝐴 𝐵𝑡(𝐹𝑡) / 𝑥𝐵 ∧ ∀𝑠𝐴𝑡 𝑠 / 𝑥𝐵 ¬ 𝑠𝑅(𝐹𝑡)))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wa 400  wo 860  w3a 1103   = wceq 1570  wcel 2143  wne 2958  wral 3079  wrex 3089  ∃!wreu 3367  {crab 3416  [wsbc 3745  csb 3854  wss 3906  c0 4287   ciun 4957   class class class wbr 5110  {copab 5174  cmpt 5193   Se wse 5614   We wwe 5615   Fn wfn 6533  wf 6534  cfv 6538  crio 7368
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1825  ax-4 1839  ax-5 1940  ax-6 1997  ax-7 2038  ax-8 2145  ax-9 2153  ax-10 2176  ax-11 2192  ax-12 2213  ax-ext 2735  ax-sep 5258  ax-nul 5270  ax-pr 5406
This theorem depends on definitions:  df-bi 210  df-an 401  df-or 861  df-3or 1104  df-3an 1105  df-tru 1573  df-fal 1583  df-ex 1810  df-nf 1814  df-sb 2097  df-mo 2567  df-eu 2597  df-clab 2742  df-cleq 2755  df-clel 2838  df-nfc 2912  df-ne 2959  df-ral 3080  df-rex 3090  df-rmo 3369  df-reu 3370  df-rab 3417  df-v 3457  df-sbc 3746  df-csb 3855  df-dif 3909  df-un 3911  df-in 3913  df-ss 3923  df-nul 4288  df-if 4489  df-pw 4565  df-sn 4591  df-pr 4593  df-op 4597  df-uni 4874  df-iun 4959  df-br 5111  df-opab 5175  df-mpt 5194  df-id 5558  df-po 5571  df-so 5572  df-fr 5616  df-se 5617  df-we 5618  df-xp 5669  df-rel 5670  df-cnv 5671  df-co 5672  df-dm 5673  df-rn 5674  df-iota 6494  df-fun 6540  df-fn 6541  df-f 6542  df-fv 6546  df-riota 7369
This theorem is referenced by:  weiunfrlem  36953  weiunpo  36954  weiunso  36955  weiunfr  36956  weiunse  36957
  Copyright terms: Public domain W3C validator