Users' Mathboxes Mathbox for Alexander van der Vekens < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >   Mathboxes  >  prproropf1olem4 Structured version   Visualization version   GIF version

Theorem prproropf1olem4 44846
Description: Lemma 4 for prproropf1o 44847. (Contributed by AV, 14-Mar-2023.)
Hypotheses
Ref Expression
prproropf1o.o 𝑂 = (𝑅 ∩ (𝑉 × 𝑉))
prproropf1o.p 𝑃 = {𝑝 ∈ 𝒫 𝑉 ∣ (♯‘𝑝) = 2}
prproropf1o.f 𝐹 = (𝑝𝑃 ↦ ⟨inf(𝑝, 𝑉, 𝑅), sup(𝑝, 𝑉, 𝑅)⟩)
Assertion
Ref Expression
prproropf1olem4 ((𝑅 Or 𝑉𝑊𝑃𝑍𝑃) → ((𝐹𝑍) = (𝐹𝑊) → 𝑍 = 𝑊))
Distinct variable groups:   𝑉,𝑝   𝑊,𝑝   𝑂,𝑝   𝑃,𝑝   𝑅,𝑝   𝑍,𝑝
Allowed substitution hint:   𝐹(𝑝)

Proof of Theorem prproropf1olem4
Dummy variables 𝑎 𝑏 𝑐 𝑑 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 prproropf1o.f . . . 4 𝐹 = (𝑝𝑃 ↦ ⟨inf(𝑝, 𝑉, 𝑅), sup(𝑝, 𝑉, 𝑅)⟩)
2 infeq1 9165 . . . . 5 (𝑝 = 𝑍 → inf(𝑝, 𝑉, 𝑅) = inf(𝑍, 𝑉, 𝑅))
3 supeq1 9134 . . . . 5 (𝑝 = 𝑍 → sup(𝑝, 𝑉, 𝑅) = sup(𝑍, 𝑉, 𝑅))
42, 3opeq12d 4809 . . . 4 (𝑝 = 𝑍 → ⟨inf(𝑝, 𝑉, 𝑅), sup(𝑝, 𝑉, 𝑅)⟩ = ⟨inf(𝑍, 𝑉, 𝑅), sup(𝑍, 𝑉, 𝑅)⟩)
5 simp3 1136 . . . 4 ((𝑅 Or 𝑉𝑊𝑃𝑍𝑃) → 𝑍𝑃)
6 opex 5373 . . . . 5 ⟨inf(𝑍, 𝑉, 𝑅), sup(𝑍, 𝑉, 𝑅)⟩ ∈ V
76a1i 11 . . . 4 ((𝑅 Or 𝑉𝑊𝑃𝑍𝑃) → ⟨inf(𝑍, 𝑉, 𝑅), sup(𝑍, 𝑉, 𝑅)⟩ ∈ V)
81, 4, 5, 7fvmptd3 6880 . . 3 ((𝑅 Or 𝑉𝑊𝑃𝑍𝑃) → (𝐹𝑍) = ⟨inf(𝑍, 𝑉, 𝑅), sup(𝑍, 𝑉, 𝑅)⟩)
9 infeq1 9165 . . . . 5 (𝑝 = 𝑊 → inf(𝑝, 𝑉, 𝑅) = inf(𝑊, 𝑉, 𝑅))
10 supeq1 9134 . . . . 5 (𝑝 = 𝑊 → sup(𝑝, 𝑉, 𝑅) = sup(𝑊, 𝑉, 𝑅))
119, 10opeq12d 4809 . . . 4 (𝑝 = 𝑊 → ⟨inf(𝑝, 𝑉, 𝑅), sup(𝑝, 𝑉, 𝑅)⟩ = ⟨inf(𝑊, 𝑉, 𝑅), sup(𝑊, 𝑉, 𝑅)⟩)
12 simp2 1135 . . . 4 ((𝑅 Or 𝑉𝑊𝑃𝑍𝑃) → 𝑊𝑃)
13 opex 5373 . . . . 5 ⟨inf(𝑊, 𝑉, 𝑅), sup(𝑊, 𝑉, 𝑅)⟩ ∈ V
1413a1i 11 . . . 4 ((𝑅 Or 𝑉𝑊𝑃𝑍𝑃) → ⟨inf(𝑊, 𝑉, 𝑅), sup(𝑊, 𝑉, 𝑅)⟩ ∈ V)
151, 11, 12, 14fvmptd3 6880 . . 3 ((𝑅 Or 𝑉𝑊𝑃𝑍𝑃) → (𝐹𝑊) = ⟨inf(𝑊, 𝑉, 𝑅), sup(𝑊, 𝑉, 𝑅)⟩)
168, 15eqeq12d 2754 . 2 ((𝑅 Or 𝑉𝑊𝑃𝑍𝑃) → ((𝐹𝑍) = (𝐹𝑊) ↔ ⟨inf(𝑍, 𝑉, 𝑅), sup(𝑍, 𝑉, 𝑅)⟩ = ⟨inf(𝑊, 𝑉, 𝑅), sup(𝑊, 𝑉, 𝑅)⟩))
17 prproropf1o.p . . . . 5 𝑃 = {𝑝 ∈ 𝒫 𝑉 ∣ (♯‘𝑝) = 2}
1817prpair 44841 . . . 4 (𝑍𝑃 ↔ ∃𝑐𝑉𝑑𝑉 (𝑍 = {𝑐, 𝑑} ∧ 𝑐𝑑))
1917prpair 44841 . . . . 5 (𝑊𝑃 ↔ ∃𝑎𝑉𝑏𝑉 (𝑊 = {𝑎, 𝑏} ∧ 𝑎𝑏))
20 id 22 . . . . . . . . . . . . . . . 16 (𝑅 Or 𝑉𝑅 Or 𝑉)
2120infexd 9172 . . . . . . . . . . . . . . 15 (𝑅 Or 𝑉 → inf({𝑐, 𝑑}, 𝑉, 𝑅) ∈ V)
2220supexd 9142 . . . . . . . . . . . . . . 15 (𝑅 Or 𝑉 → sup({𝑐, 𝑑}, 𝑉, 𝑅) ∈ V)
2321, 22jca 511 . . . . . . . . . . . . . 14 (𝑅 Or 𝑉 → (inf({𝑐, 𝑑}, 𝑉, 𝑅) ∈ V ∧ sup({𝑐, 𝑑}, 𝑉, 𝑅) ∈ V))
2423ad4antr 728 . . . . . . . . . . . . 13 (((((𝑅 Or 𝑉 ∧ (𝑎𝑉𝑏𝑉)) ∧ (𝑊 = {𝑎, 𝑏} ∧ 𝑎𝑏)) ∧ (𝑐𝑉𝑑𝑉)) ∧ (𝑍 = {𝑐, 𝑑} ∧ 𝑐𝑑)) → (inf({𝑐, 𝑑}, 𝑉, 𝑅) ∈ V ∧ sup({𝑐, 𝑑}, 𝑉, 𝑅) ∈ V))
25 opthg 5386 . . . . . . . . . . . . 13 ((inf({𝑐, 𝑑}, 𝑉, 𝑅) ∈ V ∧ sup({𝑐, 𝑑}, 𝑉, 𝑅) ∈ V) → (⟨inf({𝑐, 𝑑}, 𝑉, 𝑅), sup({𝑐, 𝑑}, 𝑉, 𝑅)⟩ = ⟨inf({𝑎, 𝑏}, 𝑉, 𝑅), sup({𝑎, 𝑏}, 𝑉, 𝑅)⟩ ↔ (inf({𝑐, 𝑑}, 𝑉, 𝑅) = inf({𝑎, 𝑏}, 𝑉, 𝑅) ∧ sup({𝑐, 𝑑}, 𝑉, 𝑅) = sup({𝑎, 𝑏}, 𝑉, 𝑅))))
2624, 25syl 17 . . . . . . . . . . . 12 (((((𝑅 Or 𝑉 ∧ (𝑎𝑉𝑏𝑉)) ∧ (𝑊 = {𝑎, 𝑏} ∧ 𝑎𝑏)) ∧ (𝑐𝑉𝑑𝑉)) ∧ (𝑍 = {𝑐, 𝑑} ∧ 𝑐𝑑)) → (⟨inf({𝑐, 𝑑}, 𝑉, 𝑅), sup({𝑐, 𝑑}, 𝑉, 𝑅)⟩ = ⟨inf({𝑎, 𝑏}, 𝑉, 𝑅), sup({𝑎, 𝑏}, 𝑉, 𝑅)⟩ ↔ (inf({𝑐, 𝑑}, 𝑉, 𝑅) = inf({𝑎, 𝑏}, 𝑉, 𝑅) ∧ sup({𝑐, 𝑑}, 𝑉, 𝑅) = sup({𝑎, 𝑏}, 𝑉, 𝑅))))
27 solin 5519 . . . . . . . . . . . . . . . . . . 19 ((𝑅 Or 𝑉 ∧ (𝑎𝑉𝑏𝑉)) → (𝑎𝑅𝑏𝑎 = 𝑏𝑏𝑅𝑎))
28 infpr 9192 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ((𝑅 Or 𝑉𝑎𝑉𝑏𝑉) → inf({𝑎, 𝑏}, 𝑉, 𝑅) = if(𝑎𝑅𝑏, 𝑎, 𝑏))
29283expb 1118 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((𝑅 Or 𝑉 ∧ (𝑎𝑉𝑏𝑉)) → inf({𝑎, 𝑏}, 𝑉, 𝑅) = if(𝑎𝑅𝑏, 𝑎, 𝑏))
30 iftrue 4462 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (𝑎𝑅𝑏 → if(𝑎𝑅𝑏, 𝑎, 𝑏) = 𝑎)
3129, 30sylan9eqr 2801 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((𝑎𝑅𝑏 ∧ (𝑅 Or 𝑉 ∧ (𝑎𝑉𝑏𝑉))) → inf({𝑎, 𝑏}, 𝑉, 𝑅) = 𝑎)
3231eqeq2d 2749 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((𝑎𝑅𝑏 ∧ (𝑅 Or 𝑉 ∧ (𝑎𝑉𝑏𝑉))) → (inf({𝑐, 𝑑}, 𝑉, 𝑅) = inf({𝑎, 𝑏}, 𝑉, 𝑅) ↔ inf({𝑐, 𝑑}, 𝑉, 𝑅) = 𝑎))
33 suppr 9160 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ((𝑅 Or 𝑉𝑎𝑉𝑏𝑉) → sup({𝑎, 𝑏}, 𝑉, 𝑅) = if(𝑏𝑅𝑎, 𝑎, 𝑏))
34333expb 1118 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ((𝑅 Or 𝑉 ∧ (𝑎𝑉𝑏𝑉)) → sup({𝑎, 𝑏}, 𝑉, 𝑅) = if(𝑏𝑅𝑎, 𝑎, 𝑏))
3534adantl 481 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((𝑎𝑅𝑏 ∧ (𝑅 Or 𝑉 ∧ (𝑎𝑉𝑏𝑉))) → sup({𝑎, 𝑏}, 𝑉, 𝑅) = if(𝑏𝑅𝑎, 𝑎, 𝑏))
36 sotric 5522 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ((𝑅 Or 𝑉 ∧ (𝑎𝑉𝑏𝑉)) → (𝑎𝑅𝑏 ↔ ¬ (𝑎 = 𝑏𝑏𝑅𝑎)))
37 ioran 980 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 (¬ (𝑎 = 𝑏𝑏𝑅𝑎) ↔ (¬ 𝑎 = 𝑏 ∧ ¬ 𝑏𝑅𝑎))
38 iffalse 4465 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 𝑏𝑅𝑎 → if(𝑏𝑅𝑎, 𝑎, 𝑏) = 𝑏)
3937, 38simplbiim 504 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (¬ (𝑎 = 𝑏𝑏𝑅𝑎) → if(𝑏𝑅𝑎, 𝑎, 𝑏) = 𝑏)
4036, 39syl6bi 252 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ((𝑅 Or 𝑉 ∧ (𝑎𝑉𝑏𝑉)) → (𝑎𝑅𝑏 → if(𝑏𝑅𝑎, 𝑎, 𝑏) = 𝑏))
4140impcom 407 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((𝑎𝑅𝑏 ∧ (𝑅 Or 𝑉 ∧ (𝑎𝑉𝑏𝑉))) → if(𝑏𝑅𝑎, 𝑎, 𝑏) = 𝑏)
4235, 41eqtrd 2778 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((𝑎𝑅𝑏 ∧ (𝑅 Or 𝑉 ∧ (𝑎𝑉𝑏𝑉))) → sup({𝑎, 𝑏}, 𝑉, 𝑅) = 𝑏)
4342eqeq2d 2749 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((𝑎𝑅𝑏 ∧ (𝑅 Or 𝑉 ∧ (𝑎𝑉𝑏𝑉))) → (sup({𝑐, 𝑑}, 𝑉, 𝑅) = sup({𝑎, 𝑏}, 𝑉, 𝑅) ↔ sup({𝑐, 𝑑}, 𝑉, 𝑅) = 𝑏))
4432, 43anbi12d 630 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((𝑎𝑅𝑏 ∧ (𝑅 Or 𝑉 ∧ (𝑎𝑉𝑏𝑉))) → ((inf({𝑐, 𝑑}, 𝑉, 𝑅) = inf({𝑎, 𝑏}, 𝑉, 𝑅) ∧ sup({𝑐, 𝑑}, 𝑉, 𝑅) = sup({𝑎, 𝑏}, 𝑉, 𝑅)) ↔ (inf({𝑐, 𝑑}, 𝑉, 𝑅) = 𝑎 ∧ sup({𝑐, 𝑑}, 𝑉, 𝑅) = 𝑏)))
4544adantr 480 . . . . . . . . . . . . . . . . . . . . . . . 24 (((𝑎𝑅𝑏 ∧ (𝑅 Or 𝑉 ∧ (𝑎𝑉𝑏𝑉))) ∧ ((𝑐𝑉𝑑𝑉) ∧ 𝑐𝑑)) → ((inf({𝑐, 𝑑}, 𝑉, 𝑅) = inf({𝑎, 𝑏}, 𝑉, 𝑅) ∧ sup({𝑐, 𝑑}, 𝑉, 𝑅) = sup({𝑎, 𝑏}, 𝑉, 𝑅)) ↔ (inf({𝑐, 𝑑}, 𝑉, 𝑅) = 𝑎 ∧ sup({𝑐, 𝑑}, 𝑉, 𝑅) = 𝑏)))
46 solin 5519 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ((𝑅 Or 𝑉 ∧ (𝑐𝑉𝑑𝑉)) → (𝑐𝑅𝑑𝑐 = 𝑑𝑑𝑅𝑐))
4746adantrr 713 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((𝑅 Or 𝑉 ∧ ((𝑐𝑉𝑑𝑉) ∧ 𝑐𝑑)) → (𝑐𝑅𝑑𝑐 = 𝑑𝑑𝑅𝑐))
48 simpl 482 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 ((𝑅 Or 𝑉 ∧ ((𝑐𝑉𝑑𝑉) ∧ 𝑐𝑑)) → 𝑅 Or 𝑉)
49 simprll 775 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 ((𝑅 Or 𝑉 ∧ ((𝑐𝑉𝑑𝑉) ∧ 𝑐𝑑)) → 𝑐𝑉)
50 simprlr 776 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 ((𝑅 Or 𝑉 ∧ ((𝑐𝑉𝑑𝑉) ∧ 𝑐𝑑)) → 𝑑𝑉)
51 infpr 9192 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 ((𝑅 Or 𝑉𝑐𝑉𝑑𝑉) → inf({𝑐, 𝑑}, 𝑉, 𝑅) = if(𝑐𝑅𝑑, 𝑐, 𝑑))
5248, 49, 50, 51syl3anc 1369 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ((𝑅 Or 𝑉 ∧ ((𝑐𝑉𝑑𝑉) ∧ 𝑐𝑑)) → inf({𝑐, 𝑑}, 𝑉, 𝑅) = if(𝑐𝑅𝑑, 𝑐, 𝑑))
53 iftrue 4462 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 (𝑐𝑅𝑑 → if(𝑐𝑅𝑑, 𝑐, 𝑑) = 𝑐)
5452, 53sylan9eqr 2801 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ((𝑐𝑅𝑑 ∧ (𝑅 Or 𝑉 ∧ ((𝑐𝑉𝑑𝑉) ∧ 𝑐𝑑))) → inf({𝑐, 𝑑}, 𝑉, 𝑅) = 𝑐)
5554eqeq1d 2740 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ((𝑐𝑅𝑑 ∧ (𝑅 Or 𝑉 ∧ ((𝑐𝑉𝑑𝑉) ∧ 𝑐𝑑))) → (inf({𝑐, 𝑑}, 𝑉, 𝑅) = 𝑎𝑐 = 𝑎))
56 suppr 9160 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36 ((𝑅 Or 𝑉𝑐𝑉𝑑𝑉) → sup({𝑐, 𝑑}, 𝑉, 𝑅) = if(𝑑𝑅𝑐, 𝑐, 𝑑))
5748, 49, 50, 56syl3anc 1369 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 ((𝑅 Or 𝑉 ∧ ((𝑐𝑉𝑑𝑉) ∧ 𝑐𝑑)) → sup({𝑐, 𝑑}, 𝑉, 𝑅) = if(𝑑𝑅𝑐, 𝑐, 𝑑))
5857adantl 481 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ((𝑐𝑅𝑑 ∧ (𝑅 Or 𝑉 ∧ ((𝑐𝑉𝑑𝑉) ∧ 𝑐𝑑))) → sup({𝑐, 𝑑}, 𝑉, 𝑅) = if(𝑑𝑅𝑐, 𝑐, 𝑑))
59 sotric 5522 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 ((𝑅 Or 𝑉 ∧ (𝑐𝑉𝑑𝑉)) → (𝑐𝑅𝑑 ↔ ¬ (𝑐 = 𝑑𝑑𝑅𝑐)))
6059adantrr 713 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36 ((𝑅 Or 𝑉 ∧ ((𝑐𝑉𝑑𝑉) ∧ 𝑐𝑑)) → (𝑐𝑅𝑑 ↔ ¬ (𝑐 = 𝑑𝑑𝑅𝑐)))
61 ioran 980 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 (¬ (𝑐 = 𝑑𝑑𝑅𝑐) ↔ (¬ 𝑐 = 𝑑 ∧ ¬ 𝑑𝑅𝑐))
62 iffalse 4465 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 𝑑𝑅𝑐 → if(𝑑𝑅𝑐, 𝑐, 𝑑) = 𝑑)
6361, 62simplbiim 504 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36 (¬ (𝑐 = 𝑑𝑑𝑅𝑐) → if(𝑑𝑅𝑐, 𝑐, 𝑑) = 𝑑)
6460, 63syl6bi 252 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 ((𝑅 Or 𝑉 ∧ ((𝑐𝑉𝑑𝑉) ∧ 𝑐𝑑)) → (𝑐𝑅𝑑 → if(𝑑𝑅𝑐, 𝑐, 𝑑) = 𝑑))
6564impcom 407 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ((𝑐𝑅𝑑 ∧ (𝑅 Or 𝑉 ∧ ((𝑐𝑉𝑑𝑉) ∧ 𝑐𝑑))) → if(𝑑𝑅𝑐, 𝑐, 𝑑) = 𝑑)
6658, 65eqtrd 2778 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ((𝑐𝑅𝑑 ∧ (𝑅 Or 𝑉 ∧ ((𝑐𝑉𝑑𝑉) ∧ 𝑐𝑑))) → sup({𝑐, 𝑑}, 𝑉, 𝑅) = 𝑑)
6766eqeq1d 2740 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ((𝑐𝑅𝑑 ∧ (𝑅 Or 𝑉 ∧ ((𝑐𝑉𝑑𝑉) ∧ 𝑐𝑑))) → (sup({𝑐, 𝑑}, 𝑉, 𝑅) = 𝑏𝑑 = 𝑏))
6855, 67anbi12d 630 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ((𝑐𝑅𝑑 ∧ (𝑅 Or 𝑉 ∧ ((𝑐𝑉𝑑𝑉) ∧ 𝑐𝑑))) → ((inf({𝑐, 𝑑}, 𝑉, 𝑅) = 𝑎 ∧ sup({𝑐, 𝑑}, 𝑉, 𝑅) = 𝑏) ↔ (𝑐 = 𝑎𝑑 = 𝑏)))
69 orc 863 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ((𝑐 = 𝑎𝑑 = 𝑏) → ((𝑐 = 𝑎𝑑 = 𝑏) ∨ (𝑐 = 𝑏𝑑 = 𝑎)))
7068, 69syl6bi 252 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ((𝑐𝑅𝑑 ∧ (𝑅 Or 𝑉 ∧ ((𝑐𝑉𝑑𝑉) ∧ 𝑐𝑑))) → ((inf({𝑐, 𝑑}, 𝑉, 𝑅) = 𝑎 ∧ sup({𝑐, 𝑑}, 𝑉, 𝑅) = 𝑏) → ((𝑐 = 𝑎𝑑 = 𝑏) ∨ (𝑐 = 𝑏𝑑 = 𝑎))))
7170ex 412 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (𝑐𝑅𝑑 → ((𝑅 Or 𝑉 ∧ ((𝑐𝑉𝑑𝑉) ∧ 𝑐𝑑)) → ((inf({𝑐, 𝑑}, 𝑉, 𝑅) = 𝑎 ∧ sup({𝑐, 𝑑}, 𝑉, 𝑅) = 𝑏) → ((𝑐 = 𝑎𝑑 = 𝑏) ∨ (𝑐 = 𝑏𝑑 = 𝑎)))))
72 eqneqall 2953 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 (𝑐 = 𝑑 → (𝑐𝑑 → ((inf({𝑐, 𝑑}, 𝑉, 𝑅) = 𝑎 ∧ sup({𝑐, 𝑑}, 𝑉, 𝑅) = 𝑏) → ((𝑐 = 𝑎𝑑 = 𝑏) ∨ (𝑐 = 𝑏𝑑 = 𝑎)))))
7372adantld 490 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (𝑐 = 𝑑 → (((𝑐𝑉𝑑𝑉) ∧ 𝑐𝑑) → ((inf({𝑐, 𝑑}, 𝑉, 𝑅) = 𝑎 ∧ sup({𝑐, 𝑑}, 𝑉, 𝑅) = 𝑏) → ((𝑐 = 𝑎𝑑 = 𝑏) ∨ (𝑐 = 𝑏𝑑 = 𝑎)))))
7473adantld 490 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (𝑐 = 𝑑 → ((𝑅 Or 𝑉 ∧ ((𝑐𝑉𝑑𝑉) ∧ 𝑐𝑑)) → ((inf({𝑐, 𝑑}, 𝑉, 𝑅) = 𝑎 ∧ sup({𝑐, 𝑑}, 𝑉, 𝑅) = 𝑏) → ((𝑐 = 𝑎𝑑 = 𝑏) ∨ (𝑐 = 𝑏𝑑 = 𝑎)))))
7552adantl 481 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ((𝑑𝑅𝑐 ∧ (𝑅 Or 𝑉 ∧ ((𝑐𝑉𝑑𝑉) ∧ 𝑐𝑑))) → inf({𝑐, 𝑑}, 𝑉, 𝑅) = if(𝑐𝑅𝑑, 𝑐, 𝑑))
7675eqeq1d 2740 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ((𝑑𝑅𝑐 ∧ (𝑅 Or 𝑉 ∧ ((𝑐𝑉𝑑𝑉) ∧ 𝑐𝑑))) → (inf({𝑐, 𝑑}, 𝑉, 𝑅) = 𝑎 ↔ if(𝑐𝑅𝑑, 𝑐, 𝑑) = 𝑎))
77 iftrue 4462 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 (𝑑𝑅𝑐 → if(𝑑𝑅𝑐, 𝑐, 𝑑) = 𝑐)
7857, 77sylan9eqr 2801 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ((𝑑𝑅𝑐 ∧ (𝑅 Or 𝑉 ∧ ((𝑐𝑉𝑑𝑉) ∧ 𝑐𝑑))) → sup({𝑐, 𝑑}, 𝑉, 𝑅) = 𝑐)
7978eqeq1d 2740 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ((𝑑𝑅𝑐 ∧ (𝑅 Or 𝑉 ∧ ((𝑐𝑉𝑑𝑉) ∧ 𝑐𝑑))) → (sup({𝑐, 𝑑}, 𝑉, 𝑅) = 𝑏𝑐 = 𝑏))
8076, 79anbi12d 630 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ((𝑑𝑅𝑐 ∧ (𝑅 Or 𝑉 ∧ ((𝑐𝑉𝑑𝑉) ∧ 𝑐𝑑))) → ((inf({𝑐, 𝑑}, 𝑉, 𝑅) = 𝑎 ∧ sup({𝑐, 𝑑}, 𝑉, 𝑅) = 𝑏) ↔ (if(𝑐𝑅𝑑, 𝑐, 𝑑) = 𝑎𝑐 = 𝑏)))
81 simpl 482 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 (((𝑐𝑉𝑑𝑉) ∧ 𝑐𝑑) → (𝑐𝑉𝑑𝑉))
8281ancomd 461 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36 (((𝑐𝑉𝑑𝑉) ∧ 𝑐𝑑) → (𝑑𝑉𝑐𝑉))
83 sotric 5522 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36 ((𝑅 Or 𝑉 ∧ (𝑑𝑉𝑐𝑉)) → (𝑑𝑅𝑐 ↔ ¬ (𝑑 = 𝑐𝑐𝑅𝑑)))
8482, 83sylan2 592 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 ((𝑅 Or 𝑉 ∧ ((𝑐𝑉𝑑𝑉) ∧ 𝑐𝑑)) → (𝑑𝑅𝑐 ↔ ¬ (𝑑 = 𝑐𝑐𝑅𝑑)))
85 ioran 980 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 (¬ (𝑑 = 𝑐𝑐𝑅𝑑) ↔ (¬ 𝑑 = 𝑐 ∧ ¬ 𝑐𝑅𝑑))
86 iffalse 4465 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 𝑐𝑅𝑑 → if(𝑐𝑅𝑑, 𝑐, 𝑑) = 𝑑)
8785, 86simplbiim 504 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36 (¬ (𝑑 = 𝑐𝑐𝑅𝑑) → if(𝑐𝑅𝑑, 𝑐, 𝑑) = 𝑑)
8887eqeq1d 2740 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 (¬ (𝑑 = 𝑐𝑐𝑅𝑑) → (if(𝑐𝑅𝑑, 𝑐, 𝑑) = 𝑎𝑑 = 𝑎))
8984, 88syl6bi 252 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ((𝑅 Or 𝑉 ∧ ((𝑐𝑉𝑑𝑉) ∧ 𝑐𝑑)) → (𝑑𝑅𝑐 → (if(𝑐𝑅𝑑, 𝑐, 𝑑) = 𝑎𝑑 = 𝑎)))
9089impcom 407 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ((𝑑𝑅𝑐 ∧ (𝑅 Or 𝑉 ∧ ((𝑐𝑉𝑑𝑉) ∧ 𝑐𝑑))) → (if(𝑐𝑅𝑑, 𝑐, 𝑑) = 𝑎𝑑 = 𝑎))
9190anbi1d 629 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ((𝑑𝑅𝑐 ∧ (𝑅 Or 𝑉 ∧ ((𝑐𝑉𝑑𝑉) ∧ 𝑐𝑑))) → ((if(𝑐𝑅𝑑, 𝑐, 𝑑) = 𝑎𝑐 = 𝑏) ↔ (𝑑 = 𝑎𝑐 = 𝑏)))
92 olc 864 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ((𝑐 = 𝑏𝑑 = 𝑎) → ((𝑐 = 𝑎𝑑 = 𝑏) ∨ (𝑐 = 𝑏𝑑 = 𝑎)))
9392ancoms 458 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ((𝑑 = 𝑎𝑐 = 𝑏) → ((𝑐 = 𝑎𝑑 = 𝑏) ∨ (𝑐 = 𝑏𝑑 = 𝑎)))
9491, 93syl6bi 252 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ((𝑑𝑅𝑐 ∧ (𝑅 Or 𝑉 ∧ ((𝑐𝑉𝑑𝑉) ∧ 𝑐𝑑))) → ((if(𝑐𝑅𝑑, 𝑐, 𝑑) = 𝑎𝑐 = 𝑏) → ((𝑐 = 𝑎𝑑 = 𝑏) ∨ (𝑐 = 𝑏𝑑 = 𝑎))))
9580, 94sylbid 239 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ((𝑑𝑅𝑐 ∧ (𝑅 Or 𝑉 ∧ ((𝑐𝑉𝑑𝑉) ∧ 𝑐𝑑))) → ((inf({𝑐, 𝑑}, 𝑉, 𝑅) = 𝑎 ∧ sup({𝑐, 𝑑}, 𝑉, 𝑅) = 𝑏) → ((𝑐 = 𝑎𝑑 = 𝑏) ∨ (𝑐 = 𝑏𝑑 = 𝑎))))
9695ex 412 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (𝑑𝑅𝑐 → ((𝑅 Or 𝑉 ∧ ((𝑐𝑉𝑑𝑉) ∧ 𝑐𝑑)) → ((inf({𝑐, 𝑑}, 𝑉, 𝑅) = 𝑎 ∧ sup({𝑐, 𝑑}, 𝑉, 𝑅) = 𝑏) → ((𝑐 = 𝑎𝑑 = 𝑏) ∨ (𝑐 = 𝑏𝑑 = 𝑎)))))
9771, 74, 963jaoi 1425 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((𝑐𝑅𝑑𝑐 = 𝑑𝑑𝑅𝑐) → ((𝑅 Or 𝑉 ∧ ((𝑐𝑉𝑑𝑉) ∧ 𝑐𝑑)) → ((inf({𝑐, 𝑑}, 𝑉, 𝑅) = 𝑎 ∧ sup({𝑐, 𝑑}, 𝑉, 𝑅) = 𝑏) → ((𝑐 = 𝑎𝑑 = 𝑏) ∨ (𝑐 = 𝑏𝑑 = 𝑎)))))
9847, 97mpcom 38 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((𝑅 Or 𝑉 ∧ ((𝑐𝑉𝑑𝑉) ∧ 𝑐𝑑)) → ((inf({𝑐, 𝑑}, 𝑉, 𝑅) = 𝑎 ∧ sup({𝑐, 𝑑}, 𝑉, 𝑅) = 𝑏) → ((𝑐 = 𝑎𝑑 = 𝑏) ∨ (𝑐 = 𝑏𝑑 = 𝑎))))
9998ex 412 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (𝑅 Or 𝑉 → (((𝑐𝑉𝑑𝑉) ∧ 𝑐𝑑) → ((inf({𝑐, 𝑑}, 𝑉, 𝑅) = 𝑎 ∧ sup({𝑐, 𝑑}, 𝑉, 𝑅) = 𝑏) → ((𝑐 = 𝑎𝑑 = 𝑏) ∨ (𝑐 = 𝑏𝑑 = 𝑎)))))
10099ad2antrl 724 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((𝑎𝑅𝑏 ∧ (𝑅 Or 𝑉 ∧ (𝑎𝑉𝑏𝑉))) → (((𝑐𝑉𝑑𝑉) ∧ 𝑐𝑑) → ((inf({𝑐, 𝑑}, 𝑉, 𝑅) = 𝑎 ∧ sup({𝑐, 𝑑}, 𝑉, 𝑅) = 𝑏) → ((𝑐 = 𝑎𝑑 = 𝑏) ∨ (𝑐 = 𝑏𝑑 = 𝑎)))))
101100imp 406 . . . . . . . . . . . . . . . . . . . . . . . 24 (((𝑎𝑅𝑏 ∧ (𝑅 Or 𝑉 ∧ (𝑎𝑉𝑏𝑉))) ∧ ((𝑐𝑉𝑑𝑉) ∧ 𝑐𝑑)) → ((inf({𝑐, 𝑑}, 𝑉, 𝑅) = 𝑎 ∧ sup({𝑐, 𝑑}, 𝑉, 𝑅) = 𝑏) → ((𝑐 = 𝑎𝑑 = 𝑏) ∨ (𝑐 = 𝑏𝑑 = 𝑎))))
10245, 101sylbid 239 . . . . . . . . . . . . . . . . . . . . . . 23 (((𝑎𝑅𝑏 ∧ (𝑅 Or 𝑉 ∧ (𝑎𝑉𝑏𝑉))) ∧ ((𝑐𝑉𝑑𝑉) ∧ 𝑐𝑑)) → ((inf({𝑐, 𝑑}, 𝑉, 𝑅) = inf({𝑎, 𝑏}, 𝑉, 𝑅) ∧ sup({𝑐, 𝑑}, 𝑉, 𝑅) = sup({𝑎, 𝑏}, 𝑉, 𝑅)) → ((𝑐 = 𝑎𝑑 = 𝑏) ∨ (𝑐 = 𝑏𝑑 = 𝑎))))
103102ex 412 . . . . . . . . . . . . . . . . . . . . . 22 ((𝑎𝑅𝑏 ∧ (𝑅 Or 𝑉 ∧ (𝑎𝑉𝑏𝑉))) → (((𝑐𝑉𝑑𝑉) ∧ 𝑐𝑑) → ((inf({𝑐, 𝑑}, 𝑉, 𝑅) = inf({𝑎, 𝑏}, 𝑉, 𝑅) ∧ sup({𝑐, 𝑑}, 𝑉, 𝑅) = sup({𝑎, 𝑏}, 𝑉, 𝑅)) → ((𝑐 = 𝑎𝑑 = 𝑏) ∨ (𝑐 = 𝑏𝑑 = 𝑎)))))
104103a1d 25 . . . . . . . . . . . . . . . . . . . . 21 ((𝑎𝑅𝑏 ∧ (𝑅 Or 𝑉 ∧ (𝑎𝑉𝑏𝑉))) → (𝑎𝑏 → (((𝑐𝑉𝑑𝑉) ∧ 𝑐𝑑) → ((inf({𝑐, 𝑑}, 𝑉, 𝑅) = inf({𝑎, 𝑏}, 𝑉, 𝑅) ∧ sup({𝑐, 𝑑}, 𝑉, 𝑅) = sup({𝑎, 𝑏}, 𝑉, 𝑅)) → ((𝑐 = 𝑎𝑑 = 𝑏) ∨ (𝑐 = 𝑏𝑑 = 𝑎))))))
105104ex 412 . . . . . . . . . . . . . . . . . . . 20 (𝑎𝑅𝑏 → ((𝑅 Or 𝑉 ∧ (𝑎𝑉𝑏𝑉)) → (𝑎𝑏 → (((𝑐𝑉𝑑𝑉) ∧ 𝑐𝑑) → ((inf({𝑐, 𝑑}, 𝑉, 𝑅) = inf({𝑎, 𝑏}, 𝑉, 𝑅) ∧ sup({𝑐, 𝑑}, 𝑉, 𝑅) = sup({𝑎, 𝑏}, 𝑉, 𝑅)) → ((𝑐 = 𝑎𝑑 = 𝑏) ∨ (𝑐 = 𝑏𝑑 = 𝑎)))))))
106 eqneqall 2953 . . . . . . . . . . . . . . . . . . . . 21 (𝑎 = 𝑏 → (𝑎𝑏 → (((𝑐𝑉𝑑𝑉) ∧ 𝑐𝑑) → ((inf({𝑐, 𝑑}, 𝑉, 𝑅) = inf({𝑎, 𝑏}, 𝑉, 𝑅) ∧ sup({𝑐, 𝑑}, 𝑉, 𝑅) = sup({𝑎, 𝑏}, 𝑉, 𝑅)) → ((𝑐 = 𝑎𝑑 = 𝑏) ∨ (𝑐 = 𝑏𝑑 = 𝑎))))))
107106a1d 25 . . . . . . . . . . . . . . . . . . . 20 (𝑎 = 𝑏 → ((𝑅 Or 𝑉 ∧ (𝑎𝑉𝑏𝑉)) → (𝑎𝑏 → (((𝑐𝑉𝑑𝑉) ∧ 𝑐𝑑) → ((inf({𝑐, 𝑑}, 𝑉, 𝑅) = inf({𝑎, 𝑏}, 𝑉, 𝑅) ∧ sup({𝑐, 𝑑}, 𝑉, 𝑅) = sup({𝑎, 𝑏}, 𝑉, 𝑅)) → ((𝑐 = 𝑎𝑑 = 𝑏) ∨ (𝑐 = 𝑏𝑑 = 𝑎)))))))
10829adantl 481 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((𝑏𝑅𝑎 ∧ (𝑅 Or 𝑉 ∧ (𝑎𝑉𝑏𝑉))) → inf({𝑎, 𝑏}, 𝑉, 𝑅) = if(𝑎𝑅𝑏, 𝑎, 𝑏))
109 sotric 5522 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ((𝑅 Or 𝑉 ∧ (𝑏𝑉𝑎𝑉)) → (𝑏𝑅𝑎 ↔ ¬ (𝑏 = 𝑎𝑎𝑅𝑏)))
110109ancom2s 646 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ((𝑅 Or 𝑉 ∧ (𝑎𝑉𝑏𝑉)) → (𝑏𝑅𝑎 ↔ ¬ (𝑏 = 𝑎𝑎𝑅𝑏)))
111 ioran 980 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 (¬ (𝑏 = 𝑎𝑎𝑅𝑏) ↔ (¬ 𝑏 = 𝑎 ∧ ¬ 𝑎𝑅𝑏))
112 iffalse 4465 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 𝑎𝑅𝑏 → if(𝑎𝑅𝑏, 𝑎, 𝑏) = 𝑏)
113111, 112simplbiim 504 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (¬ (𝑏 = 𝑎𝑎𝑅𝑏) → if(𝑎𝑅𝑏, 𝑎, 𝑏) = 𝑏)
114110, 113syl6bi 252 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ((𝑅 Or 𝑉 ∧ (𝑎𝑉𝑏𝑉)) → (𝑏𝑅𝑎 → if(𝑎𝑅𝑏, 𝑎, 𝑏) = 𝑏))
115114impcom 407 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((𝑏𝑅𝑎 ∧ (𝑅 Or 𝑉 ∧ (𝑎𝑉𝑏𝑉))) → if(𝑎𝑅𝑏, 𝑎, 𝑏) = 𝑏)
116108, 115eqtrd 2778 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((𝑏𝑅𝑎 ∧ (𝑅 Or 𝑉 ∧ (𝑎𝑉𝑏𝑉))) → inf({𝑎, 𝑏}, 𝑉, 𝑅) = 𝑏)
117116eqeq2d 2749 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((𝑏𝑅𝑎 ∧ (𝑅 Or 𝑉 ∧ (𝑎𝑉𝑏𝑉))) → (inf({𝑐, 𝑑}, 𝑉, 𝑅) = inf({𝑎, 𝑏}, 𝑉, 𝑅) ↔ inf({𝑐, 𝑑}, 𝑉, 𝑅) = 𝑏))
118 iftrue 4462 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (𝑏𝑅𝑎 → if(𝑏𝑅𝑎, 𝑎, 𝑏) = 𝑎)
11934, 118sylan9eqr 2801 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((𝑏𝑅𝑎 ∧ (𝑅 Or 𝑉 ∧ (𝑎𝑉𝑏𝑉))) → sup({𝑎, 𝑏}, 𝑉, 𝑅) = 𝑎)
120119eqeq2d 2749 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((𝑏𝑅𝑎 ∧ (𝑅 Or 𝑉 ∧ (𝑎𝑉𝑏𝑉))) → (sup({𝑐, 𝑑}, 𝑉, 𝑅) = sup({𝑎, 𝑏}, 𝑉, 𝑅) ↔ sup({𝑐, 𝑑}, 𝑉, 𝑅) = 𝑎))
121117, 120anbi12d 630 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((𝑏𝑅𝑎 ∧ (𝑅 Or 𝑉 ∧ (𝑎𝑉𝑏𝑉))) → ((inf({𝑐, 𝑑}, 𝑉, 𝑅) = inf({𝑎, 𝑏}, 𝑉, 𝑅) ∧ sup({𝑐, 𝑑}, 𝑉, 𝑅) = sup({𝑎, 𝑏}, 𝑉, 𝑅)) ↔ (inf({𝑐, 𝑑}, 𝑉, 𝑅) = 𝑏 ∧ sup({𝑐, 𝑑}, 𝑉, 𝑅) = 𝑎)))
122121adantr 480 . . . . . . . . . . . . . . . . . . . . . . . 24 (((𝑏𝑅𝑎 ∧ (𝑅 Or 𝑉 ∧ (𝑎𝑉𝑏𝑉))) ∧ ((𝑐𝑉𝑑𝑉) ∧ 𝑐𝑑)) → ((inf({𝑐, 𝑑}, 𝑉, 𝑅) = inf({𝑎, 𝑏}, 𝑉, 𝑅) ∧ sup({𝑐, 𝑑}, 𝑉, 𝑅) = sup({𝑎, 𝑏}, 𝑉, 𝑅)) ↔ (inf({𝑐, 𝑑}, 𝑉, 𝑅) = 𝑏 ∧ sup({𝑐, 𝑑}, 𝑉, 𝑅) = 𝑎)))
12354eqeq1d 2740 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ((𝑐𝑅𝑑 ∧ (𝑅 Or 𝑉 ∧ ((𝑐𝑉𝑑𝑉) ∧ 𝑐𝑑))) → (inf({𝑐, 𝑑}, 𝑉, 𝑅) = 𝑏𝑐 = 𝑏))
12466eqeq1d 2740 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ((𝑐𝑅𝑑 ∧ (𝑅 Or 𝑉 ∧ ((𝑐𝑉𝑑𝑉) ∧ 𝑐𝑑))) → (sup({𝑐, 𝑑}, 𝑉, 𝑅) = 𝑎𝑑 = 𝑎))
125123, 124anbi12d 630 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ((𝑐𝑅𝑑 ∧ (𝑅 Or 𝑉 ∧ ((𝑐𝑉𝑑𝑉) ∧ 𝑐𝑑))) → ((inf({𝑐, 𝑑}, 𝑉, 𝑅) = 𝑏 ∧ sup({𝑐, 𝑑}, 𝑉, 𝑅) = 𝑎) ↔ (𝑐 = 𝑏𝑑 = 𝑎)))
126125, 92syl6bi 252 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ((𝑐𝑅𝑑 ∧ (𝑅 Or 𝑉 ∧ ((𝑐𝑉𝑑𝑉) ∧ 𝑐𝑑))) → ((inf({𝑐, 𝑑}, 𝑉, 𝑅) = 𝑏 ∧ sup({𝑐, 𝑑}, 𝑉, 𝑅) = 𝑎) → ((𝑐 = 𝑎𝑑 = 𝑏) ∨ (𝑐 = 𝑏𝑑 = 𝑎))))
127126ex 412 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (𝑐𝑅𝑑 → ((𝑅 Or 𝑉 ∧ ((𝑐𝑉𝑑𝑉) ∧ 𝑐𝑑)) → ((inf({𝑐, 𝑑}, 𝑉, 𝑅) = 𝑏 ∧ sup({𝑐, 𝑑}, 𝑉, 𝑅) = 𝑎) → ((𝑐 = 𝑎𝑑 = 𝑏) ∨ (𝑐 = 𝑏𝑑 = 𝑎)))))
128 eqneqall 2953 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 (𝑐 = 𝑑 → (𝑐𝑑 → ((inf({𝑐, 𝑑}, 𝑉, 𝑅) = 𝑏 ∧ sup({𝑐, 𝑑}, 𝑉, 𝑅) = 𝑎) → ((𝑐 = 𝑎𝑑 = 𝑏) ∨ (𝑐 = 𝑏𝑑 = 𝑎)))))
129128adantld 490 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (𝑐 = 𝑑 → (((𝑐𝑉𝑑𝑉) ∧ 𝑐𝑑) → ((inf({𝑐, 𝑑}, 𝑉, 𝑅) = 𝑏 ∧ sup({𝑐, 𝑑}, 𝑉, 𝑅) = 𝑎) → ((𝑐 = 𝑎𝑑 = 𝑏) ∨ (𝑐 = 𝑏𝑑 = 𝑎)))))
130129adantld 490 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (𝑐 = 𝑑 → ((𝑅 Or 𝑉 ∧ ((𝑐𝑉𝑑𝑉) ∧ 𝑐𝑑)) → ((inf({𝑐, 𝑑}, 𝑉, 𝑅) = 𝑏 ∧ sup({𝑐, 𝑑}, 𝑉, 𝑅) = 𝑎) → ((𝑐 = 𝑎𝑑 = 𝑏) ∨ (𝑐 = 𝑏𝑑 = 𝑎)))))
13184, 87syl6bi 252 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 ((𝑅 Or 𝑉 ∧ ((𝑐𝑉𝑑𝑉) ∧ 𝑐𝑑)) → (𝑑𝑅𝑐 → if(𝑐𝑅𝑑, 𝑐, 𝑑) = 𝑑))
132131impcom 407 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ((𝑑𝑅𝑐 ∧ (𝑅 Or 𝑉 ∧ ((𝑐𝑉𝑑𝑉) ∧ 𝑐𝑑))) → if(𝑐𝑅𝑑, 𝑐, 𝑑) = 𝑑)
13375, 132eqtrd 2778 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ((𝑑𝑅𝑐 ∧ (𝑅 Or 𝑉 ∧ ((𝑐𝑉𝑑𝑉) ∧ 𝑐𝑑))) → inf({𝑐, 𝑑}, 𝑉, 𝑅) = 𝑑)
134133eqeq1d 2740 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ((𝑑𝑅𝑐 ∧ (𝑅 Or 𝑉 ∧ ((𝑐𝑉𝑑𝑉) ∧ 𝑐𝑑))) → (inf({𝑐, 𝑑}, 𝑉, 𝑅) = 𝑏𝑑 = 𝑏))
13578eqeq1d 2740 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ((𝑑𝑅𝑐 ∧ (𝑅 Or 𝑉 ∧ ((𝑐𝑉𝑑𝑉) ∧ 𝑐𝑑))) → (sup({𝑐, 𝑑}, 𝑉, 𝑅) = 𝑎𝑐 = 𝑎))
136134, 135anbi12d 630 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ((𝑑𝑅𝑐 ∧ (𝑅 Or 𝑉 ∧ ((𝑐𝑉𝑑𝑉) ∧ 𝑐𝑑))) → ((inf({𝑐, 𝑑}, 𝑉, 𝑅) = 𝑏 ∧ sup({𝑐, 𝑑}, 𝑉, 𝑅) = 𝑎) ↔ (𝑑 = 𝑏𝑐 = 𝑎)))
13769ancoms 458 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ((𝑑 = 𝑏𝑐 = 𝑎) → ((𝑐 = 𝑎𝑑 = 𝑏) ∨ (𝑐 = 𝑏𝑑 = 𝑎)))
138136, 137syl6bi 252 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ((𝑑𝑅𝑐 ∧ (𝑅 Or 𝑉 ∧ ((𝑐𝑉𝑑𝑉) ∧ 𝑐𝑑))) → ((inf({𝑐, 𝑑}, 𝑉, 𝑅) = 𝑏 ∧ sup({𝑐, 𝑑}, 𝑉, 𝑅) = 𝑎) → ((𝑐 = 𝑎𝑑 = 𝑏) ∨ (𝑐 = 𝑏𝑑 = 𝑎))))
139138ex 412 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (𝑑𝑅𝑐 → ((𝑅 Or 𝑉 ∧ ((𝑐𝑉𝑑𝑉) ∧ 𝑐𝑑)) → ((inf({𝑐, 𝑑}, 𝑉, 𝑅) = 𝑏 ∧ sup({𝑐, 𝑑}, 𝑉, 𝑅) = 𝑎) → ((𝑐 = 𝑎𝑑 = 𝑏) ∨ (𝑐 = 𝑏𝑑 = 𝑎)))))
140127, 130, 1393jaoi 1425 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((𝑐𝑅𝑑𝑐 = 𝑑𝑑𝑅𝑐) → ((𝑅 Or 𝑉 ∧ ((𝑐𝑉𝑑𝑉) ∧ 𝑐𝑑)) → ((inf({𝑐, 𝑑}, 𝑉, 𝑅) = 𝑏 ∧ sup({𝑐, 𝑑}, 𝑉, 𝑅) = 𝑎) → ((𝑐 = 𝑎𝑑 = 𝑏) ∨ (𝑐 = 𝑏𝑑 = 𝑎)))))
14147, 140mpcom 38 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((𝑅 Or 𝑉 ∧ ((𝑐𝑉𝑑𝑉) ∧ 𝑐𝑑)) → ((inf({𝑐, 𝑑}, 𝑉, 𝑅) = 𝑏 ∧ sup({𝑐, 𝑑}, 𝑉, 𝑅) = 𝑎) → ((𝑐 = 𝑎𝑑 = 𝑏) ∨ (𝑐 = 𝑏𝑑 = 𝑎))))
142141ex 412 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (𝑅 Or 𝑉 → (((𝑐𝑉𝑑𝑉) ∧ 𝑐𝑑) → ((inf({𝑐, 𝑑}, 𝑉, 𝑅) = 𝑏 ∧ sup({𝑐, 𝑑}, 𝑉, 𝑅) = 𝑎) → ((𝑐 = 𝑎𝑑 = 𝑏) ∨ (𝑐 = 𝑏𝑑 = 𝑎)))))
143142ad2antrl 724 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((𝑏𝑅𝑎 ∧ (𝑅 Or 𝑉 ∧ (𝑎𝑉𝑏𝑉))) → (((𝑐𝑉𝑑𝑉) ∧ 𝑐𝑑) → ((inf({𝑐, 𝑑}, 𝑉, 𝑅) = 𝑏 ∧ sup({𝑐, 𝑑}, 𝑉, 𝑅) = 𝑎) → ((𝑐 = 𝑎𝑑 = 𝑏) ∨ (𝑐 = 𝑏𝑑 = 𝑎)))))
144143imp 406 . . . . . . . . . . . . . . . . . . . . . . . 24 (((𝑏𝑅𝑎 ∧ (𝑅 Or 𝑉 ∧ (𝑎𝑉𝑏𝑉))) ∧ ((𝑐𝑉𝑑𝑉) ∧ 𝑐𝑑)) → ((inf({𝑐, 𝑑}, 𝑉, 𝑅) = 𝑏 ∧ sup({𝑐, 𝑑}, 𝑉, 𝑅) = 𝑎) → ((𝑐 = 𝑎𝑑 = 𝑏) ∨ (𝑐 = 𝑏𝑑 = 𝑎))))
145122, 144sylbid 239 . . . . . . . . . . . . . . . . . . . . . . 23 (((𝑏𝑅𝑎 ∧ (𝑅 Or 𝑉 ∧ (𝑎𝑉𝑏𝑉))) ∧ ((𝑐𝑉𝑑𝑉) ∧ 𝑐𝑑)) → ((inf({𝑐, 𝑑}, 𝑉, 𝑅) = inf({𝑎, 𝑏}, 𝑉, 𝑅) ∧ sup({𝑐, 𝑑}, 𝑉, 𝑅) = sup({𝑎, 𝑏}, 𝑉, 𝑅)) → ((𝑐 = 𝑎𝑑 = 𝑏) ∨ (𝑐 = 𝑏𝑑 = 𝑎))))
146145ex 412 . . . . . . . . . . . . . . . . . . . . . 22 ((𝑏𝑅𝑎 ∧ (𝑅 Or 𝑉 ∧ (𝑎𝑉𝑏𝑉))) → (((𝑐𝑉𝑑𝑉) ∧ 𝑐𝑑) → ((inf({𝑐, 𝑑}, 𝑉, 𝑅) = inf({𝑎, 𝑏}, 𝑉, 𝑅) ∧ sup({𝑐, 𝑑}, 𝑉, 𝑅) = sup({𝑎, 𝑏}, 𝑉, 𝑅)) → ((𝑐 = 𝑎𝑑 = 𝑏) ∨ (𝑐 = 𝑏𝑑 = 𝑎)))))
147146a1d 25 . . . . . . . . . . . . . . . . . . . . 21 ((𝑏𝑅𝑎 ∧ (𝑅 Or 𝑉 ∧ (𝑎𝑉𝑏𝑉))) → (𝑎𝑏 → (((𝑐𝑉𝑑𝑉) ∧ 𝑐𝑑) → ((inf({𝑐, 𝑑}, 𝑉, 𝑅) = inf({𝑎, 𝑏}, 𝑉, 𝑅) ∧ sup({𝑐, 𝑑}, 𝑉, 𝑅) = sup({𝑎, 𝑏}, 𝑉, 𝑅)) → ((𝑐 = 𝑎𝑑 = 𝑏) ∨ (𝑐 = 𝑏𝑑 = 𝑎))))))
148147ex 412 . . . . . . . . . . . . . . . . . . . 20 (𝑏𝑅𝑎 → ((𝑅 Or 𝑉 ∧ (𝑎𝑉𝑏𝑉)) → (𝑎𝑏 → (((𝑐𝑉𝑑𝑉) ∧ 𝑐𝑑) → ((inf({𝑐, 𝑑}, 𝑉, 𝑅) = inf({𝑎, 𝑏}, 𝑉, 𝑅) ∧ sup({𝑐, 𝑑}, 𝑉, 𝑅) = sup({𝑎, 𝑏}, 𝑉, 𝑅)) → ((𝑐 = 𝑎𝑑 = 𝑏) ∨ (𝑐 = 𝑏𝑑 = 𝑎)))))))
149105, 107, 1483jaoi 1425 . . . . . . . . . . . . . . . . . . 19 ((𝑎𝑅𝑏𝑎 = 𝑏𝑏𝑅𝑎) → ((𝑅 Or 𝑉 ∧ (𝑎𝑉𝑏𝑉)) → (𝑎𝑏 → (((𝑐𝑉𝑑𝑉) ∧ 𝑐𝑑) → ((inf({𝑐, 𝑑}, 𝑉, 𝑅) = inf({𝑎, 𝑏}, 𝑉, 𝑅) ∧ sup({𝑐, 𝑑}, 𝑉, 𝑅) = sup({𝑎, 𝑏}, 𝑉, 𝑅)) → ((𝑐 = 𝑎𝑑 = 𝑏) ∨ (𝑐 = 𝑏𝑑 = 𝑎)))))))
15027, 149mpcom 38 . . . . . . . . . . . . . . . . . 18 ((𝑅 Or 𝑉 ∧ (𝑎𝑉𝑏𝑉)) → (𝑎𝑏 → (((𝑐𝑉𝑑𝑉) ∧ 𝑐𝑑) → ((inf({𝑐, 𝑑}, 𝑉, 𝑅) = inf({𝑎, 𝑏}, 𝑉, 𝑅) ∧ sup({𝑐, 𝑑}, 𝑉, 𝑅) = sup({𝑎, 𝑏}, 𝑉, 𝑅)) → ((𝑐 = 𝑎𝑑 = 𝑏) ∨ (𝑐 = 𝑏𝑑 = 𝑎))))))
151150adantld 490 . . . . . . . . . . . . . . . . 17 ((𝑅 Or 𝑉 ∧ (𝑎𝑉𝑏𝑉)) → ((𝑊 = {𝑎, 𝑏} ∧ 𝑎𝑏) → (((𝑐𝑉𝑑𝑉) ∧ 𝑐𝑑) → ((inf({𝑐, 𝑑}, 𝑉, 𝑅) = inf({𝑎, 𝑏}, 𝑉, 𝑅) ∧ sup({𝑐, 𝑑}, 𝑉, 𝑅) = sup({𝑎, 𝑏}, 𝑉, 𝑅)) → ((𝑐 = 𝑎𝑑 = 𝑏) ∨ (𝑐 = 𝑏𝑑 = 𝑎))))))
152151imp 406 . . . . . . . . . . . . . . . 16 (((𝑅 Or 𝑉 ∧ (𝑎𝑉𝑏𝑉)) ∧ (𝑊 = {𝑎, 𝑏} ∧ 𝑎𝑏)) → (((𝑐𝑉𝑑𝑉) ∧ 𝑐𝑑) → ((inf({𝑐, 𝑑}, 𝑉, 𝑅) = inf({𝑎, 𝑏}, 𝑉, 𝑅) ∧ sup({𝑐, 𝑑}, 𝑉, 𝑅) = sup({𝑎, 𝑏}, 𝑉, 𝑅)) → ((𝑐 = 𝑎𝑑 = 𝑏) ∨ (𝑐 = 𝑏𝑑 = 𝑎)))))
153152expdimp 452 . . . . . . . . . . . . . . 15 ((((𝑅 Or 𝑉 ∧ (𝑎𝑉𝑏𝑉)) ∧ (𝑊 = {𝑎, 𝑏} ∧ 𝑎𝑏)) ∧ (𝑐𝑉𝑑𝑉)) → (𝑐𝑑 → ((inf({𝑐, 𝑑}, 𝑉, 𝑅) = inf({𝑎, 𝑏}, 𝑉, 𝑅) ∧ sup({𝑐, 𝑑}, 𝑉, 𝑅) = sup({𝑎, 𝑏}, 𝑉, 𝑅)) → ((𝑐 = 𝑎𝑑 = 𝑏) ∨ (𝑐 = 𝑏𝑑 = 𝑎)))))
154153adantld 490 . . . . . . . . . . . . . 14 ((((𝑅 Or 𝑉 ∧ (𝑎𝑉𝑏𝑉)) ∧ (𝑊 = {𝑎, 𝑏} ∧ 𝑎𝑏)) ∧ (𝑐𝑉𝑑𝑉)) → ((𝑍 = {𝑐, 𝑑} ∧ 𝑐𝑑) → ((inf({𝑐, 𝑑}, 𝑉, 𝑅) = inf({𝑎, 𝑏}, 𝑉, 𝑅) ∧ sup({𝑐, 𝑑}, 𝑉, 𝑅) = sup({𝑎, 𝑏}, 𝑉, 𝑅)) → ((𝑐 = 𝑎𝑑 = 𝑏) ∨ (𝑐 = 𝑏𝑑 = 𝑎)))))
155154imp 406 . . . . . . . . . . . . 13 (((((𝑅 Or 𝑉 ∧ (𝑎𝑉𝑏𝑉)) ∧ (𝑊 = {𝑎, 𝑏} ∧ 𝑎𝑏)) ∧ (𝑐𝑉𝑑𝑉)) ∧ (𝑍 = {𝑐, 𝑑} ∧ 𝑐𝑑)) → ((inf({𝑐, 𝑑}, 𝑉, 𝑅) = inf({𝑎, 𝑏}, 𝑉, 𝑅) ∧ sup({𝑐, 𝑑}, 𝑉, 𝑅) = sup({𝑎, 𝑏}, 𝑉, 𝑅)) → ((𝑐 = 𝑎𝑑 = 𝑏) ∨ (𝑐 = 𝑏𝑑 = 𝑎))))
156 vex 3426 . . . . . . . . . . . . . 14 𝑐 ∈ V
157 vex 3426 . . . . . . . . . . . . . 14 𝑑 ∈ V
158 vex 3426 . . . . . . . . . . . . . 14 𝑎 ∈ V
159 vex 3426 . . . . . . . . . . . . . 14 𝑏 ∈ V
160156, 157, 158, 159preq12b 4778 . . . . . . . . . . . . 13 ({𝑐, 𝑑} = {𝑎, 𝑏} ↔ ((𝑐 = 𝑎𝑑 = 𝑏) ∨ (𝑐 = 𝑏𝑑 = 𝑎)))
161155, 160syl6ibr 251 . . . . . . . . . . . 12 (((((𝑅 Or 𝑉 ∧ (𝑎𝑉𝑏𝑉)) ∧ (𝑊 = {𝑎, 𝑏} ∧ 𝑎𝑏)) ∧ (𝑐𝑉𝑑𝑉)) ∧ (𝑍 = {𝑐, 𝑑} ∧ 𝑐𝑑)) → ((inf({𝑐, 𝑑}, 𝑉, 𝑅) = inf({𝑎, 𝑏}, 𝑉, 𝑅) ∧ sup({𝑐, 𝑑}, 𝑉, 𝑅) = sup({𝑎, 𝑏}, 𝑉, 𝑅)) → {𝑐, 𝑑} = {𝑎, 𝑏}))
16226, 161sylbid 239 . . . . . . . . . . 11 (((((𝑅 Or 𝑉 ∧ (𝑎𝑉𝑏𝑉)) ∧ (𝑊 = {𝑎, 𝑏} ∧ 𝑎𝑏)) ∧ (𝑐𝑉𝑑𝑉)) ∧ (𝑍 = {𝑐, 𝑑} ∧ 𝑐𝑑)) → (⟨inf({𝑐, 𝑑}, 𝑉, 𝑅), sup({𝑐, 𝑑}, 𝑉, 𝑅)⟩ = ⟨inf({𝑎, 𝑏}, 𝑉, 𝑅), sup({𝑎, 𝑏}, 𝑉, 𝑅)⟩ → {𝑐, 𝑑} = {𝑎, 𝑏}))
163 infeq1 9165 . . . . . . . . . . . . . . . . . . . 20 (𝑍 = {𝑐, 𝑑} → inf(𝑍, 𝑉, 𝑅) = inf({𝑐, 𝑑}, 𝑉, 𝑅))
164 supeq1 9134 . . . . . . . . . . . . . . . . . . . 20 (𝑍 = {𝑐, 𝑑} → sup(𝑍, 𝑉, 𝑅) = sup({𝑐, 𝑑}, 𝑉, 𝑅))
165163, 164opeq12d 4809 . . . . . . . . . . . . . . . . . . 19 (𝑍 = {𝑐, 𝑑} → ⟨inf(𝑍, 𝑉, 𝑅), sup(𝑍, 𝑉, 𝑅)⟩ = ⟨inf({𝑐, 𝑑}, 𝑉, 𝑅), sup({𝑐, 𝑑}, 𝑉, 𝑅)⟩)
166 infeq1 9165 . . . . . . . . . . . . . . . . . . . 20 (𝑊 = {𝑎, 𝑏} → inf(𝑊, 𝑉, 𝑅) = inf({𝑎, 𝑏}, 𝑉, 𝑅))
167 supeq1 9134 . . . . . . . . . . . . . . . . . . . 20 (𝑊 = {𝑎, 𝑏} → sup(𝑊, 𝑉, 𝑅) = sup({𝑎, 𝑏}, 𝑉, 𝑅))
168166, 167opeq12d 4809 . . . . . . . . . . . . . . . . . . 19 (𝑊 = {𝑎, 𝑏} → ⟨inf(𝑊, 𝑉, 𝑅), sup(𝑊, 𝑉, 𝑅)⟩ = ⟨inf({𝑎, 𝑏}, 𝑉, 𝑅), sup({𝑎, 𝑏}, 𝑉, 𝑅)⟩)
169165, 168eqeqan12rd 2753 . . . . . . . . . . . . . . . . . 18 ((𝑊 = {𝑎, 𝑏} ∧ 𝑍 = {𝑐, 𝑑}) → (⟨inf(𝑍, 𝑉, 𝑅), sup(𝑍, 𝑉, 𝑅)⟩ = ⟨inf(𝑊, 𝑉, 𝑅), sup(𝑊, 𝑉, 𝑅)⟩ ↔ ⟨inf({𝑐, 𝑑}, 𝑉, 𝑅), sup({𝑐, 𝑑}, 𝑉, 𝑅)⟩ = ⟨inf({𝑎, 𝑏}, 𝑉, 𝑅), sup({𝑎, 𝑏}, 𝑉, 𝑅)⟩))
170 eqeq12 2755 . . . . . . . . . . . . . . . . . . 19 ((𝑍 = {𝑐, 𝑑} ∧ 𝑊 = {𝑎, 𝑏}) → (𝑍 = 𝑊 ↔ {𝑐, 𝑑} = {𝑎, 𝑏}))
171170ancoms 458 . . . . . . . . . . . . . . . . . 18 ((𝑊 = {𝑎, 𝑏} ∧ 𝑍 = {𝑐, 𝑑}) → (𝑍 = 𝑊 ↔ {𝑐, 𝑑} = {𝑎, 𝑏}))
172169, 171imbi12d 344 . . . . . . . . . . . . . . . . 17 ((𝑊 = {𝑎, 𝑏} ∧ 𝑍 = {𝑐, 𝑑}) → ((⟨inf(𝑍, 𝑉, 𝑅), sup(𝑍, 𝑉, 𝑅)⟩ = ⟨inf(𝑊, 𝑉, 𝑅), sup(𝑊, 𝑉, 𝑅)⟩ → 𝑍 = 𝑊) ↔ (⟨inf({𝑐, 𝑑}, 𝑉, 𝑅), sup({𝑐, 𝑑}, 𝑉, 𝑅)⟩ = ⟨inf({𝑎, 𝑏}, 𝑉, 𝑅), sup({𝑎, 𝑏}, 𝑉, 𝑅)⟩ → {𝑐, 𝑑} = {𝑎, 𝑏})))
173172ex 412 . . . . . . . . . . . . . . . 16 (𝑊 = {𝑎, 𝑏} → (𝑍 = {𝑐, 𝑑} → ((⟨inf(𝑍, 𝑉, 𝑅), sup(𝑍, 𝑉, 𝑅)⟩ = ⟨inf(𝑊, 𝑉, 𝑅), sup(𝑊, 𝑉, 𝑅)⟩ → 𝑍 = 𝑊) ↔ (⟨inf({𝑐, 𝑑}, 𝑉, 𝑅), sup({𝑐, 𝑑}, 𝑉, 𝑅)⟩ = ⟨inf({𝑎, 𝑏}, 𝑉, 𝑅), sup({𝑎, 𝑏}, 𝑉, 𝑅)⟩ → {𝑐, 𝑑} = {𝑎, 𝑏}))))
174173ad2antrl 724 . . . . . . . . . . . . . . 15 (((𝑅 Or 𝑉 ∧ (𝑎𝑉𝑏𝑉)) ∧ (𝑊 = {𝑎, 𝑏} ∧ 𝑎𝑏)) → (𝑍 = {𝑐, 𝑑} → ((⟨inf(𝑍, 𝑉, 𝑅), sup(𝑍, 𝑉, 𝑅)⟩ = ⟨inf(𝑊, 𝑉, 𝑅), sup(𝑊, 𝑉, 𝑅)⟩ → 𝑍 = 𝑊) ↔ (⟨inf({𝑐, 𝑑}, 𝑉, 𝑅), sup({𝑐, 𝑑}, 𝑉, 𝑅)⟩ = ⟨inf({𝑎, 𝑏}, 𝑉, 𝑅), sup({𝑎, 𝑏}, 𝑉, 𝑅)⟩ → {𝑐, 𝑑} = {𝑎, 𝑏}))))
175174adantr 480 . . . . . . . . . . . . . 14 ((((𝑅 Or 𝑉 ∧ (𝑎𝑉𝑏𝑉)) ∧ (𝑊 = {𝑎, 𝑏} ∧ 𝑎𝑏)) ∧ (𝑐𝑉𝑑𝑉)) → (𝑍 = {𝑐, 𝑑} → ((⟨inf(𝑍, 𝑉, 𝑅), sup(𝑍, 𝑉, 𝑅)⟩ = ⟨inf(𝑊, 𝑉, 𝑅), sup(𝑊, 𝑉, 𝑅)⟩ → 𝑍 = 𝑊) ↔ (⟨inf({𝑐, 𝑑}, 𝑉, 𝑅), sup({𝑐, 𝑑}, 𝑉, 𝑅)⟩ = ⟨inf({𝑎, 𝑏}, 𝑉, 𝑅), sup({𝑎, 𝑏}, 𝑉, 𝑅)⟩ → {𝑐, 𝑑} = {𝑎, 𝑏}))))
176175com12 32 . . . . . . . . . . . . 13 (𝑍 = {𝑐, 𝑑} → ((((𝑅 Or 𝑉 ∧ (𝑎𝑉𝑏𝑉)) ∧ (𝑊 = {𝑎, 𝑏} ∧ 𝑎𝑏)) ∧ (𝑐𝑉𝑑𝑉)) → ((⟨inf(𝑍, 𝑉, 𝑅), sup(𝑍, 𝑉, 𝑅)⟩ = ⟨inf(𝑊, 𝑉, 𝑅), sup(𝑊, 𝑉, 𝑅)⟩ → 𝑍 = 𝑊) ↔ (⟨inf({𝑐, 𝑑}, 𝑉, 𝑅), sup({𝑐, 𝑑}, 𝑉, 𝑅)⟩ = ⟨inf({𝑎, 𝑏}, 𝑉, 𝑅), sup({𝑎, 𝑏}, 𝑉, 𝑅)⟩ → {𝑐, 𝑑} = {𝑎, 𝑏}))))
177176adantr 480 . . . . . . . . . . . 12 ((𝑍 = {𝑐, 𝑑} ∧ 𝑐𝑑) → ((((𝑅 Or 𝑉 ∧ (𝑎𝑉𝑏𝑉)) ∧ (𝑊 = {𝑎, 𝑏} ∧ 𝑎𝑏)) ∧ (𝑐𝑉𝑑𝑉)) → ((⟨inf(𝑍, 𝑉, 𝑅), sup(𝑍, 𝑉, 𝑅)⟩ = ⟨inf(𝑊, 𝑉, 𝑅), sup(𝑊, 𝑉, 𝑅)⟩ → 𝑍 = 𝑊) ↔ (⟨inf({𝑐, 𝑑}, 𝑉, 𝑅), sup({𝑐, 𝑑}, 𝑉, 𝑅)⟩ = ⟨inf({𝑎, 𝑏}, 𝑉, 𝑅), sup({𝑎, 𝑏}, 𝑉, 𝑅)⟩ → {𝑐, 𝑑} = {𝑎, 𝑏}))))
178177impcom 407 . . . . . . . . . . 11 (((((𝑅 Or 𝑉 ∧ (𝑎𝑉𝑏𝑉)) ∧ (𝑊 = {𝑎, 𝑏} ∧ 𝑎𝑏)) ∧ (𝑐𝑉𝑑𝑉)) ∧ (𝑍 = {𝑐, 𝑑} ∧ 𝑐𝑑)) → ((⟨inf(𝑍, 𝑉, 𝑅), sup(𝑍, 𝑉, 𝑅)⟩ = ⟨inf(𝑊, 𝑉, 𝑅), sup(𝑊, 𝑉, 𝑅)⟩ → 𝑍 = 𝑊) ↔ (⟨inf({𝑐, 𝑑}, 𝑉, 𝑅), sup({𝑐, 𝑑}, 𝑉, 𝑅)⟩ = ⟨inf({𝑎, 𝑏}, 𝑉, 𝑅), sup({𝑎, 𝑏}, 𝑉, 𝑅)⟩ → {𝑐, 𝑑} = {𝑎, 𝑏})))
179162, 178mpbird 256 . . . . . . . . . 10 (((((𝑅 Or 𝑉 ∧ (𝑎𝑉𝑏𝑉)) ∧ (𝑊 = {𝑎, 𝑏} ∧ 𝑎𝑏)) ∧ (𝑐𝑉𝑑𝑉)) ∧ (𝑍 = {𝑐, 𝑑} ∧ 𝑐𝑑)) → (⟨inf(𝑍, 𝑉, 𝑅), sup(𝑍, 𝑉, 𝑅)⟩ = ⟨inf(𝑊, 𝑉, 𝑅), sup(𝑊, 𝑉, 𝑅)⟩ → 𝑍 = 𝑊))
180179ex 412 . . . . . . . . 9 ((((𝑅 Or 𝑉 ∧ (𝑎𝑉𝑏𝑉)) ∧ (𝑊 = {𝑎, 𝑏} ∧ 𝑎𝑏)) ∧ (𝑐𝑉𝑑𝑉)) → ((𝑍 = {𝑐, 𝑑} ∧ 𝑐𝑑) → (⟨inf(𝑍, 𝑉, 𝑅), sup(𝑍, 𝑉, 𝑅)⟩ = ⟨inf(𝑊, 𝑉, 𝑅), sup(𝑊, 𝑉, 𝑅)⟩ → 𝑍 = 𝑊)))
181180rexlimdvva 3222 . . . . . . . 8 (((𝑅 Or 𝑉 ∧ (𝑎𝑉𝑏𝑉)) ∧ (𝑊 = {𝑎, 𝑏} ∧ 𝑎𝑏)) → (∃𝑐𝑉𝑑𝑉 (𝑍 = {𝑐, 𝑑} ∧ 𝑐𝑑) → (⟨inf(𝑍, 𝑉, 𝑅), sup(𝑍, 𝑉, 𝑅)⟩ = ⟨inf(𝑊, 𝑉, 𝑅), sup(𝑊, 𝑉, 𝑅)⟩ → 𝑍 = 𝑊)))
182181ex 412 . . . . . . 7 ((𝑅 Or 𝑉 ∧ (𝑎𝑉𝑏𝑉)) → ((𝑊 = {𝑎, 𝑏} ∧ 𝑎𝑏) → (∃𝑐𝑉𝑑𝑉 (𝑍 = {𝑐, 𝑑} ∧ 𝑐𝑑) → (⟨inf(𝑍, 𝑉, 𝑅), sup(𝑍, 𝑉, 𝑅)⟩ = ⟨inf(𝑊, 𝑉, 𝑅), sup(𝑊, 𝑉, 𝑅)⟩ → 𝑍 = 𝑊))))
183182rexlimdvva 3222 . . . . . 6 (𝑅 Or 𝑉 → (∃𝑎𝑉𝑏𝑉 (𝑊 = {𝑎, 𝑏} ∧ 𝑎𝑏) → (∃𝑐𝑉𝑑𝑉 (𝑍 = {𝑐, 𝑑} ∧ 𝑐𝑑) → (⟨inf(𝑍, 𝑉, 𝑅), sup(𝑍, 𝑉, 𝑅)⟩ = ⟨inf(𝑊, 𝑉, 𝑅), sup(𝑊, 𝑉, 𝑅)⟩ → 𝑍 = 𝑊))))
184183com13 88 . . . . 5 (∃𝑐𝑉𝑑𝑉 (𝑍 = {𝑐, 𝑑} ∧ 𝑐𝑑) → (∃𝑎𝑉𝑏𝑉 (𝑊 = {𝑎, 𝑏} ∧ 𝑎𝑏) → (𝑅 Or 𝑉 → (⟨inf(𝑍, 𝑉, 𝑅), sup(𝑍, 𝑉, 𝑅)⟩ = ⟨inf(𝑊, 𝑉, 𝑅), sup(𝑊, 𝑉, 𝑅)⟩ → 𝑍 = 𝑊))))
18519, 184syl5bi 241 . . . 4 (∃𝑐𝑉𝑑𝑉 (𝑍 = {𝑐, 𝑑} ∧ 𝑐𝑑) → (𝑊𝑃 → (𝑅 Or 𝑉 → (⟨inf(𝑍, 𝑉, 𝑅), sup(𝑍, 𝑉, 𝑅)⟩ = ⟨inf(𝑊, 𝑉, 𝑅), sup(𝑊, 𝑉, 𝑅)⟩ → 𝑍 = 𝑊))))
18618, 185sylbi 216 . . 3 (𝑍𝑃 → (𝑊𝑃 → (𝑅 Or 𝑉 → (⟨inf(𝑍, 𝑉, 𝑅), sup(𝑍, 𝑉, 𝑅)⟩ = ⟨inf(𝑊, 𝑉, 𝑅), sup(𝑊, 𝑉, 𝑅)⟩ → 𝑍 = 𝑊))))
1871863imp31 1110 . 2 ((𝑅 Or 𝑉𝑊𝑃𝑍𝑃) → (⟨inf(𝑍, 𝑉, 𝑅), sup(𝑍, 𝑉, 𝑅)⟩ = ⟨inf(𝑊, 𝑉, 𝑅), sup(𝑊, 𝑉, 𝑅)⟩ → 𝑍 = 𝑊))
18816, 187sylbid 239 1 ((𝑅 Or 𝑉𝑊𝑃𝑍𝑃) → ((𝐹𝑍) = (𝐹𝑊) → 𝑍 = 𝑊))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 205  wa 395  wo 843  w3o 1084  w3a 1085   = wceq 1539  wcel 2108  wne 2942  wrex 3064  {crab 3067  Vcvv 3422  cin 3882  ifcif 4456  𝒫 cpw 4530  {cpr 4560  cop 4564   class class class wbr 5070  cmpt 5153   Or wor 5493   × cxp 5578  cfv 6418  supcsup 9129  infcinf 9130  2c2 11958  chash 13972
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1799  ax-4 1813  ax-5 1914  ax-6 1972  ax-7 2012  ax-8 2110  ax-9 2118  ax-10 2139  ax-11 2156  ax-12 2173  ax-ext 2709  ax-sep 5218  ax-nul 5225  ax-pow 5283  ax-pr 5347  ax-un 7566  ax-cnex 10858  ax-resscn 10859  ax-1cn 10860  ax-icn 10861  ax-addcl 10862  ax-addrcl 10863  ax-mulcl 10864  ax-mulrcl 10865  ax-mulcom 10866  ax-addass 10867  ax-mulass 10868  ax-distr 10869  ax-i2m1 10870  ax-1ne0 10871  ax-1rid 10872  ax-rnegex 10873  ax-rrecex 10874  ax-cnre 10875  ax-pre-lttri 10876  ax-pre-lttrn 10877  ax-pre-ltadd 10878  ax-pre-mulgt0 10879
This theorem depends on definitions:  df-bi 206  df-an 396  df-or 844  df-3or 1086  df-3an 1087  df-tru 1542  df-fal 1552  df-ex 1784  df-nf 1788  df-sb 2069  df-mo 2540  df-eu 2569  df-clab 2716  df-cleq 2730  df-clel 2817  df-nfc 2888  df-ne 2943  df-nel 3049  df-ral 3068  df-rex 3069  df-reu 3070  df-rmo 3071  df-rab 3072  df-v 3424  df-sbc 3712  df-csb 3829  df-dif 3886  df-un 3888  df-in 3890  df-ss 3900  df-pss 3902  df-nul 4254  df-if 4457  df-pw 4532  df-sn 4559  df-pr 4561  df-tp 4563  df-op 4565  df-uni 4837  df-int 4877  df-iun 4923  df-br 5071  df-opab 5133  df-mpt 5154  df-tr 5188  df-id 5480  df-eprel 5486  df-po 5494  df-so 5495  df-fr 5535  df-we 5537  df-xp 5586  df-rel 5587  df-cnv 5588  df-co 5589  df-dm 5590  df-rn 5591  df-res 5592  df-ima 5593  df-pred 6191  df-ord 6254  df-on 6255  df-lim 6256  df-suc 6257  df-iota 6376  df-fun 6420  df-fn 6421  df-f 6422  df-f1 6423  df-fo 6424  df-f1o 6425  df-fv 6426  df-riota 7212  df-ov 7258  df-oprab 7259  df-mpo 7260  df-om 7688  df-1st 7804  df-2nd 7805  df-frecs 8068  df-wrecs 8099  df-recs 8173  df-rdg 8212  df-1o 8267  df-2o 8268  df-oadd 8271  df-er 8456  df-en 8692  df-dom 8693  df-sdom 8694  df-fin 8695  df-sup 9131  df-inf 9132  df-dju 9590  df-card 9628  df-pnf 10942  df-mnf 10943  df-xr 10944  df-ltxr 10945  df-le 10946  df-sub 11137  df-neg 11138  df-nn 11904  df-2 11966  df-n0 12164  df-z 12250  df-uz 12512  df-fz 13169  df-hash 13973
This theorem is referenced by:  prproropf1o  44847
  Copyright terms: Public domain W3C validator