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 46161
Description: Lemma 4 for prproropf1o 46162. (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 9468 . . . . 5 (𝑝 = 𝑍 β†’ inf(𝑝, 𝑉, 𝑅) = inf(𝑍, 𝑉, 𝑅))
3 supeq1 9437 . . . . 5 (𝑝 = 𝑍 β†’ sup(𝑝, 𝑉, 𝑅) = sup(𝑍, 𝑉, 𝑅))
42, 3opeq12d 4881 . . . 4 (𝑝 = 𝑍 β†’ ⟨inf(𝑝, 𝑉, 𝑅), sup(𝑝, 𝑉, 𝑅)⟩ = ⟨inf(𝑍, 𝑉, 𝑅), sup(𝑍, 𝑉, 𝑅)⟩)
5 simp3 1139 . . . 4 ((𝑅 Or 𝑉 ∧ π‘Š ∈ 𝑃 ∧ 𝑍 ∈ 𝑃) β†’ 𝑍 ∈ 𝑃)
6 opex 5464 . . . . 5 ⟨inf(𝑍, 𝑉, 𝑅), sup(𝑍, 𝑉, 𝑅)⟩ ∈ V
76a1i 11 . . . 4 ((𝑅 Or 𝑉 ∧ π‘Š ∈ 𝑃 ∧ 𝑍 ∈ 𝑃) β†’ ⟨inf(𝑍, 𝑉, 𝑅), sup(𝑍, 𝑉, 𝑅)⟩ ∈ V)
81, 4, 5, 7fvmptd3 7019 . . 3 ((𝑅 Or 𝑉 ∧ π‘Š ∈ 𝑃 ∧ 𝑍 ∈ 𝑃) β†’ (πΉβ€˜π‘) = ⟨inf(𝑍, 𝑉, 𝑅), sup(𝑍, 𝑉, 𝑅)⟩)
9 infeq1 9468 . . . . 5 (𝑝 = π‘Š β†’ inf(𝑝, 𝑉, 𝑅) = inf(π‘Š, 𝑉, 𝑅))
10 supeq1 9437 . . . . 5 (𝑝 = π‘Š β†’ sup(𝑝, 𝑉, 𝑅) = sup(π‘Š, 𝑉, 𝑅))
119, 10opeq12d 4881 . . . 4 (𝑝 = π‘Š β†’ ⟨inf(𝑝, 𝑉, 𝑅), sup(𝑝, 𝑉, 𝑅)⟩ = ⟨inf(π‘Š, 𝑉, 𝑅), sup(π‘Š, 𝑉, 𝑅)⟩)
12 simp2 1138 . . . 4 ((𝑅 Or 𝑉 ∧ π‘Š ∈ 𝑃 ∧ 𝑍 ∈ 𝑃) β†’ π‘Š ∈ 𝑃)
13 opex 5464 . . . . 5 ⟨inf(π‘Š, 𝑉, 𝑅), sup(π‘Š, 𝑉, 𝑅)⟩ ∈ V
1413a1i 11 . . . 4 ((𝑅 Or 𝑉 ∧ π‘Š ∈ 𝑃 ∧ 𝑍 ∈ 𝑃) β†’ ⟨inf(π‘Š, 𝑉, 𝑅), sup(π‘Š, 𝑉, 𝑅)⟩ ∈ V)
151, 11, 12, 14fvmptd3 7019 . . 3 ((𝑅 Or 𝑉 ∧ π‘Š ∈ 𝑃 ∧ 𝑍 ∈ 𝑃) β†’ (πΉβ€˜π‘Š) = ⟨inf(π‘Š, 𝑉, 𝑅), sup(π‘Š, 𝑉, 𝑅)⟩)
168, 15eqeq12d 2749 . 2 ((𝑅 Or 𝑉 ∧ π‘Š ∈ 𝑃 ∧ 𝑍 ∈ 𝑃) β†’ ((πΉβ€˜π‘) = (πΉβ€˜π‘Š) ↔ ⟨inf(𝑍, 𝑉, 𝑅), sup(𝑍, 𝑉, 𝑅)⟩ = ⟨inf(π‘Š, 𝑉, 𝑅), sup(π‘Š, 𝑉, 𝑅)⟩))
17 prproropf1o.p . . . . 5 𝑃 = {𝑝 ∈ 𝒫 𝑉 ∣ (β™―β€˜π‘) = 2}
1817prpair 46156 . . . 4 (𝑍 ∈ 𝑃 ↔ βˆƒπ‘ ∈ 𝑉 βˆƒπ‘‘ ∈ 𝑉 (𝑍 = {𝑐, 𝑑} ∧ 𝑐 β‰  𝑑))
1917prpair 46156 . . . . 5 (π‘Š ∈ 𝑃 ↔ βˆƒπ‘Ž ∈ 𝑉 βˆƒπ‘ ∈ 𝑉 (π‘Š = {π‘Ž, 𝑏} ∧ π‘Ž β‰  𝑏))
20 id 22 . . . . . . . . . . . . . . . 16 (𝑅 Or 𝑉 β†’ 𝑅 Or 𝑉)
2120infexd 9475 . . . . . . . . . . . . . . 15 (𝑅 Or 𝑉 β†’ inf({𝑐, 𝑑}, 𝑉, 𝑅) ∈ V)
2220supexd 9445 . . . . . . . . . . . . . . 15 (𝑅 Or 𝑉 β†’ sup({𝑐, 𝑑}, 𝑉, 𝑅) ∈ V)
2321, 22jca 513 . . . . . . . . . . . . . 14 (𝑅 Or 𝑉 β†’ (inf({𝑐, 𝑑}, 𝑉, 𝑅) ∈ V ∧ sup({𝑐, 𝑑}, 𝑉, 𝑅) ∈ V))
2423ad4antr 731 . . . . . . . . . . . . 13 (((((𝑅 Or 𝑉 ∧ (π‘Ž ∈ 𝑉 ∧ 𝑏 ∈ 𝑉)) ∧ (π‘Š = {π‘Ž, 𝑏} ∧ π‘Ž β‰  𝑏)) ∧ (𝑐 ∈ 𝑉 ∧ 𝑑 ∈ 𝑉)) ∧ (𝑍 = {𝑐, 𝑑} ∧ 𝑐 β‰  𝑑)) β†’ (inf({𝑐, 𝑑}, 𝑉, 𝑅) ∈ V ∧ sup({𝑐, 𝑑}, 𝑉, 𝑅) ∈ V))
25 opthg 5477 . . . . . . . . . . . . 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 5613 . . . . . . . . . . . . . . . . . . 19 ((𝑅 Or 𝑉 ∧ (π‘Ž ∈ 𝑉 ∧ 𝑏 ∈ 𝑉)) β†’ (π‘Žπ‘…π‘ ∨ π‘Ž = 𝑏 ∨ π‘π‘…π‘Ž))
28 infpr 9495 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ((𝑅 Or 𝑉 ∧ π‘Ž ∈ 𝑉 ∧ 𝑏 ∈ 𝑉) β†’ inf({π‘Ž, 𝑏}, 𝑉, 𝑅) = if(π‘Žπ‘…π‘, π‘Ž, 𝑏))
29283expb 1121 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((𝑅 Or 𝑉 ∧ (π‘Ž ∈ 𝑉 ∧ 𝑏 ∈ 𝑉)) β†’ inf({π‘Ž, 𝑏}, 𝑉, 𝑅) = if(π‘Žπ‘…π‘, π‘Ž, 𝑏))
30 iftrue 4534 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (π‘Žπ‘…π‘ β†’ if(π‘Žπ‘…π‘, π‘Ž, 𝑏) = π‘Ž)
3129, 30sylan9eqr 2795 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((π‘Žπ‘…π‘ ∧ (𝑅 Or 𝑉 ∧ (π‘Ž ∈ 𝑉 ∧ 𝑏 ∈ 𝑉))) β†’ inf({π‘Ž, 𝑏}, 𝑉, 𝑅) = π‘Ž)
3231eqeq2d 2744 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((π‘Žπ‘…π‘ ∧ (𝑅 Or 𝑉 ∧ (π‘Ž ∈ 𝑉 ∧ 𝑏 ∈ 𝑉))) β†’ (inf({𝑐, 𝑑}, 𝑉, 𝑅) = inf({π‘Ž, 𝑏}, 𝑉, 𝑅) ↔ inf({𝑐, 𝑑}, 𝑉, 𝑅) = π‘Ž))
33 suppr 9463 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ((𝑅 Or 𝑉 ∧ π‘Ž ∈ 𝑉 ∧ 𝑏 ∈ 𝑉) β†’ sup({π‘Ž, 𝑏}, 𝑉, 𝑅) = if(π‘π‘…π‘Ž, π‘Ž, 𝑏))
34333expb 1121 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ((𝑅 Or 𝑉 ∧ (π‘Ž ∈ 𝑉 ∧ 𝑏 ∈ 𝑉)) β†’ sup({π‘Ž, 𝑏}, 𝑉, 𝑅) = if(π‘π‘…π‘Ž, π‘Ž, 𝑏))
3534adantl 483 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((π‘Žπ‘…π‘ ∧ (𝑅 Or 𝑉 ∧ (π‘Ž ∈ 𝑉 ∧ 𝑏 ∈ 𝑉))) β†’ sup({π‘Ž, 𝑏}, 𝑉, 𝑅) = if(π‘π‘…π‘Ž, π‘Ž, 𝑏))
36 sotric 5616 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ((𝑅 Or 𝑉 ∧ (π‘Ž ∈ 𝑉 ∧ 𝑏 ∈ 𝑉)) β†’ (π‘Žπ‘…π‘ ↔ Β¬ (π‘Ž = 𝑏 ∨ π‘π‘…π‘Ž)))
37 ioran 983 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 (Β¬ (π‘Ž = 𝑏 ∨ π‘π‘…π‘Ž) ↔ (Β¬ π‘Ž = 𝑏 ∧ Β¬ π‘π‘…π‘Ž))
38 iffalse 4537 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 (Β¬ π‘π‘…π‘Ž β†’ if(π‘π‘…π‘Ž, π‘Ž, 𝑏) = 𝑏)
3937, 38simplbiim 506 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (Β¬ (π‘Ž = 𝑏 ∨ π‘π‘…π‘Ž) β†’ if(π‘π‘…π‘Ž, π‘Ž, 𝑏) = 𝑏)
4036, 39syl6bi 253 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ((𝑅 Or 𝑉 ∧ (π‘Ž ∈ 𝑉 ∧ 𝑏 ∈ 𝑉)) β†’ (π‘Žπ‘…π‘ β†’ if(π‘π‘…π‘Ž, π‘Ž, 𝑏) = 𝑏))
4140impcom 409 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((π‘Žπ‘…π‘ ∧ (𝑅 Or 𝑉 ∧ (π‘Ž ∈ 𝑉 ∧ 𝑏 ∈ 𝑉))) β†’ if(π‘π‘…π‘Ž, π‘Ž, 𝑏) = 𝑏)
4235, 41eqtrd 2773 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((π‘Žπ‘…π‘ ∧ (𝑅 Or 𝑉 ∧ (π‘Ž ∈ 𝑉 ∧ 𝑏 ∈ 𝑉))) β†’ sup({π‘Ž, 𝑏}, 𝑉, 𝑅) = 𝑏)
4342eqeq2d 2744 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((π‘Žπ‘…π‘ ∧ (𝑅 Or 𝑉 ∧ (π‘Ž ∈ 𝑉 ∧ 𝑏 ∈ 𝑉))) β†’ (sup({𝑐, 𝑑}, 𝑉, 𝑅) = sup({π‘Ž, 𝑏}, 𝑉, 𝑅) ↔ sup({𝑐, 𝑑}, 𝑉, 𝑅) = 𝑏))
4432, 43anbi12d 632 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((π‘Žπ‘…π‘ ∧ (𝑅 Or 𝑉 ∧ (π‘Ž ∈ 𝑉 ∧ 𝑏 ∈ 𝑉))) β†’ ((inf({𝑐, 𝑑}, 𝑉, 𝑅) = inf({π‘Ž, 𝑏}, 𝑉, 𝑅) ∧ sup({𝑐, 𝑑}, 𝑉, 𝑅) = sup({π‘Ž, 𝑏}, 𝑉, 𝑅)) ↔ (inf({𝑐, 𝑑}, 𝑉, 𝑅) = π‘Ž ∧ sup({𝑐, 𝑑}, 𝑉, 𝑅) = 𝑏)))
4544adantr 482 . . . . . . . . . . . . . . . . . . . . . . . 24 (((π‘Žπ‘…π‘ ∧ (𝑅 Or 𝑉 ∧ (π‘Ž ∈ 𝑉 ∧ 𝑏 ∈ 𝑉))) ∧ ((𝑐 ∈ 𝑉 ∧ 𝑑 ∈ 𝑉) ∧ 𝑐 β‰  𝑑)) β†’ ((inf({𝑐, 𝑑}, 𝑉, 𝑅) = inf({π‘Ž, 𝑏}, 𝑉, 𝑅) ∧ sup({𝑐, 𝑑}, 𝑉, 𝑅) = sup({π‘Ž, 𝑏}, 𝑉, 𝑅)) ↔ (inf({𝑐, 𝑑}, 𝑉, 𝑅) = π‘Ž ∧ sup({𝑐, 𝑑}, 𝑉, 𝑅) = 𝑏)))
46 solin 5613 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ((𝑅 Or 𝑉 ∧ (𝑐 ∈ 𝑉 ∧ 𝑑 ∈ 𝑉)) β†’ (𝑐𝑅𝑑 ∨ 𝑐 = 𝑑 ∨ 𝑑𝑅𝑐))
4746adantrr 716 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((𝑅 Or 𝑉 ∧ ((𝑐 ∈ 𝑉 ∧ 𝑑 ∈ 𝑉) ∧ 𝑐 β‰  𝑑)) β†’ (𝑐𝑅𝑑 ∨ 𝑐 = 𝑑 ∨ 𝑑𝑅𝑐))
48 simpl 484 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 ((𝑅 Or 𝑉 ∧ ((𝑐 ∈ 𝑉 ∧ 𝑑 ∈ 𝑉) ∧ 𝑐 β‰  𝑑)) β†’ 𝑅 Or 𝑉)
49 simprll 778 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 ((𝑅 Or 𝑉 ∧ ((𝑐 ∈ 𝑉 ∧ 𝑑 ∈ 𝑉) ∧ 𝑐 β‰  𝑑)) β†’ 𝑐 ∈ 𝑉)
50 simprlr 779 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 ((𝑅 Or 𝑉 ∧ ((𝑐 ∈ 𝑉 ∧ 𝑑 ∈ 𝑉) ∧ 𝑐 β‰  𝑑)) β†’ 𝑑 ∈ 𝑉)
51 infpr 9495 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 ((𝑅 Or 𝑉 ∧ 𝑐 ∈ 𝑉 ∧ 𝑑 ∈ 𝑉) β†’ inf({𝑐, 𝑑}, 𝑉, 𝑅) = if(𝑐𝑅𝑑, 𝑐, 𝑑))
5248, 49, 50, 51syl3anc 1372 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ((𝑅 Or 𝑉 ∧ ((𝑐 ∈ 𝑉 ∧ 𝑑 ∈ 𝑉) ∧ 𝑐 β‰  𝑑)) β†’ inf({𝑐, 𝑑}, 𝑉, 𝑅) = if(𝑐𝑅𝑑, 𝑐, 𝑑))
53 iftrue 4534 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 (𝑐𝑅𝑑 β†’ if(𝑐𝑅𝑑, 𝑐, 𝑑) = 𝑐)
5452, 53sylan9eqr 2795 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ((𝑐𝑅𝑑 ∧ (𝑅 Or 𝑉 ∧ ((𝑐 ∈ 𝑉 ∧ 𝑑 ∈ 𝑉) ∧ 𝑐 β‰  𝑑))) β†’ inf({𝑐, 𝑑}, 𝑉, 𝑅) = 𝑐)
5554eqeq1d 2735 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ((𝑐𝑅𝑑 ∧ (𝑅 Or 𝑉 ∧ ((𝑐 ∈ 𝑉 ∧ 𝑑 ∈ 𝑉) ∧ 𝑐 β‰  𝑑))) β†’ (inf({𝑐, 𝑑}, 𝑉, 𝑅) = π‘Ž ↔ 𝑐 = π‘Ž))
56 suppr 9463 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36 ((𝑅 Or 𝑉 ∧ 𝑐 ∈ 𝑉 ∧ 𝑑 ∈ 𝑉) β†’ sup({𝑐, 𝑑}, 𝑉, 𝑅) = if(𝑑𝑅𝑐, 𝑐, 𝑑))
5748, 49, 50, 56syl3anc 1372 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 ((𝑅 Or 𝑉 ∧ ((𝑐 ∈ 𝑉 ∧ 𝑑 ∈ 𝑉) ∧ 𝑐 β‰  𝑑)) β†’ sup({𝑐, 𝑑}, 𝑉, 𝑅) = if(𝑑𝑅𝑐, 𝑐, 𝑑))
5857adantl 483 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ((𝑐𝑅𝑑 ∧ (𝑅 Or 𝑉 ∧ ((𝑐 ∈ 𝑉 ∧ 𝑑 ∈ 𝑉) ∧ 𝑐 β‰  𝑑))) β†’ sup({𝑐, 𝑑}, 𝑉, 𝑅) = if(𝑑𝑅𝑐, 𝑐, 𝑑))
59 sotric 5616 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 ((𝑅 Or 𝑉 ∧ (𝑐 ∈ 𝑉 ∧ 𝑑 ∈ 𝑉)) β†’ (𝑐𝑅𝑑 ↔ Β¬ (𝑐 = 𝑑 ∨ 𝑑𝑅𝑐)))
6059adantrr 716 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36 ((𝑅 Or 𝑉 ∧ ((𝑐 ∈ 𝑉 ∧ 𝑑 ∈ 𝑉) ∧ 𝑐 β‰  𝑑)) β†’ (𝑐𝑅𝑑 ↔ Β¬ (𝑐 = 𝑑 ∨ 𝑑𝑅𝑐)))
61 ioran 983 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 (Β¬ (𝑐 = 𝑑 ∨ 𝑑𝑅𝑐) ↔ (Β¬ 𝑐 = 𝑑 ∧ Β¬ 𝑑𝑅𝑐))
62 iffalse 4537 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 (Β¬ 𝑑𝑅𝑐 β†’ if(𝑑𝑅𝑐, 𝑐, 𝑑) = 𝑑)
6361, 62simplbiim 506 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36 (Β¬ (𝑐 = 𝑑 ∨ 𝑑𝑅𝑐) β†’ if(𝑑𝑅𝑐, 𝑐, 𝑑) = 𝑑)
6460, 63syl6bi 253 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 ((𝑅 Or 𝑉 ∧ ((𝑐 ∈ 𝑉 ∧ 𝑑 ∈ 𝑉) ∧ 𝑐 β‰  𝑑)) β†’ (𝑐𝑅𝑑 β†’ if(𝑑𝑅𝑐, 𝑐, 𝑑) = 𝑑))
6564impcom 409 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ((𝑐𝑅𝑑 ∧ (𝑅 Or 𝑉 ∧ ((𝑐 ∈ 𝑉 ∧ 𝑑 ∈ 𝑉) ∧ 𝑐 β‰  𝑑))) β†’ if(𝑑𝑅𝑐, 𝑐, 𝑑) = 𝑑)
6658, 65eqtrd 2773 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ((𝑐𝑅𝑑 ∧ (𝑅 Or 𝑉 ∧ ((𝑐 ∈ 𝑉 ∧ 𝑑 ∈ 𝑉) ∧ 𝑐 β‰  𝑑))) β†’ sup({𝑐, 𝑑}, 𝑉, 𝑅) = 𝑑)
6766eqeq1d 2735 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ((𝑐𝑅𝑑 ∧ (𝑅 Or 𝑉 ∧ ((𝑐 ∈ 𝑉 ∧ 𝑑 ∈ 𝑉) ∧ 𝑐 β‰  𝑑))) β†’ (sup({𝑐, 𝑑}, 𝑉, 𝑅) = 𝑏 ↔ 𝑑 = 𝑏))
6855, 67anbi12d 632 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ((𝑐𝑅𝑑 ∧ (𝑅 Or 𝑉 ∧ ((𝑐 ∈ 𝑉 ∧ 𝑑 ∈ 𝑉) ∧ 𝑐 β‰  𝑑))) β†’ ((inf({𝑐, 𝑑}, 𝑉, 𝑅) = π‘Ž ∧ sup({𝑐, 𝑑}, 𝑉, 𝑅) = 𝑏) ↔ (𝑐 = π‘Ž ∧ 𝑑 = 𝑏)))
69 orc 866 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ((𝑐 = π‘Ž ∧ 𝑑 = 𝑏) β†’ ((𝑐 = π‘Ž ∧ 𝑑 = 𝑏) ∨ (𝑐 = 𝑏 ∧ 𝑑 = π‘Ž)))
7068, 69syl6bi 253 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ((𝑐𝑅𝑑 ∧ (𝑅 Or 𝑉 ∧ ((𝑐 ∈ 𝑉 ∧ 𝑑 ∈ 𝑉) ∧ 𝑐 β‰  𝑑))) β†’ ((inf({𝑐, 𝑑}, 𝑉, 𝑅) = π‘Ž ∧ sup({𝑐, 𝑑}, 𝑉, 𝑅) = 𝑏) β†’ ((𝑐 = π‘Ž ∧ 𝑑 = 𝑏) ∨ (𝑐 = 𝑏 ∧ 𝑑 = π‘Ž))))
7170ex 414 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (𝑐𝑅𝑑 β†’ ((𝑅 Or 𝑉 ∧ ((𝑐 ∈ 𝑉 ∧ 𝑑 ∈ 𝑉) ∧ 𝑐 β‰  𝑑)) β†’ ((inf({𝑐, 𝑑}, 𝑉, 𝑅) = π‘Ž ∧ sup({𝑐, 𝑑}, 𝑉, 𝑅) = 𝑏) β†’ ((𝑐 = π‘Ž ∧ 𝑑 = 𝑏) ∨ (𝑐 = 𝑏 ∧ 𝑑 = π‘Ž)))))
72 eqneqall 2952 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 (𝑐 = 𝑑 β†’ (𝑐 β‰  𝑑 β†’ ((inf({𝑐, 𝑑}, 𝑉, 𝑅) = π‘Ž ∧ sup({𝑐, 𝑑}, 𝑉, 𝑅) = 𝑏) β†’ ((𝑐 = π‘Ž ∧ 𝑑 = 𝑏) ∨ (𝑐 = 𝑏 ∧ 𝑑 = π‘Ž)))))
7372adantld 492 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (𝑐 = 𝑑 β†’ (((𝑐 ∈ 𝑉 ∧ 𝑑 ∈ 𝑉) ∧ 𝑐 β‰  𝑑) β†’ ((inf({𝑐, 𝑑}, 𝑉, 𝑅) = π‘Ž ∧ sup({𝑐, 𝑑}, 𝑉, 𝑅) = 𝑏) β†’ ((𝑐 = π‘Ž ∧ 𝑑 = 𝑏) ∨ (𝑐 = 𝑏 ∧ 𝑑 = π‘Ž)))))
7473adantld 492 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (𝑐 = 𝑑 β†’ ((𝑅 Or 𝑉 ∧ ((𝑐 ∈ 𝑉 ∧ 𝑑 ∈ 𝑉) ∧ 𝑐 β‰  𝑑)) β†’ ((inf({𝑐, 𝑑}, 𝑉, 𝑅) = π‘Ž ∧ sup({𝑐, 𝑑}, 𝑉, 𝑅) = 𝑏) β†’ ((𝑐 = π‘Ž ∧ 𝑑 = 𝑏) ∨ (𝑐 = 𝑏 ∧ 𝑑 = π‘Ž)))))
7552adantl 483 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ((𝑑𝑅𝑐 ∧ (𝑅 Or 𝑉 ∧ ((𝑐 ∈ 𝑉 ∧ 𝑑 ∈ 𝑉) ∧ 𝑐 β‰  𝑑))) β†’ inf({𝑐, 𝑑}, 𝑉, 𝑅) = if(𝑐𝑅𝑑, 𝑐, 𝑑))
7675eqeq1d 2735 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ((𝑑𝑅𝑐 ∧ (𝑅 Or 𝑉 ∧ ((𝑐 ∈ 𝑉 ∧ 𝑑 ∈ 𝑉) ∧ 𝑐 β‰  𝑑))) β†’ (inf({𝑐, 𝑑}, 𝑉, 𝑅) = π‘Ž ↔ if(𝑐𝑅𝑑, 𝑐, 𝑑) = π‘Ž))
77 iftrue 4534 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 (𝑑𝑅𝑐 β†’ if(𝑑𝑅𝑐, 𝑐, 𝑑) = 𝑐)
7857, 77sylan9eqr 2795 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ((𝑑𝑅𝑐 ∧ (𝑅 Or 𝑉 ∧ ((𝑐 ∈ 𝑉 ∧ 𝑑 ∈ 𝑉) ∧ 𝑐 β‰  𝑑))) β†’ sup({𝑐, 𝑑}, 𝑉, 𝑅) = 𝑐)
7978eqeq1d 2735 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ((𝑑𝑅𝑐 ∧ (𝑅 Or 𝑉 ∧ ((𝑐 ∈ 𝑉 ∧ 𝑑 ∈ 𝑉) ∧ 𝑐 β‰  𝑑))) β†’ (sup({𝑐, 𝑑}, 𝑉, 𝑅) = 𝑏 ↔ 𝑐 = 𝑏))
8076, 79anbi12d 632 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ((𝑑𝑅𝑐 ∧ (𝑅 Or 𝑉 ∧ ((𝑐 ∈ 𝑉 ∧ 𝑑 ∈ 𝑉) ∧ 𝑐 β‰  𝑑))) β†’ ((inf({𝑐, 𝑑}, 𝑉, 𝑅) = π‘Ž ∧ sup({𝑐, 𝑑}, 𝑉, 𝑅) = 𝑏) ↔ (if(𝑐𝑅𝑑, 𝑐, 𝑑) = π‘Ž ∧ 𝑐 = 𝑏)))
81 simpl 484 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 (((𝑐 ∈ 𝑉 ∧ 𝑑 ∈ 𝑉) ∧ 𝑐 β‰  𝑑) β†’ (𝑐 ∈ 𝑉 ∧ 𝑑 ∈ 𝑉))
8281ancomd 463 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36 (((𝑐 ∈ 𝑉 ∧ 𝑑 ∈ 𝑉) ∧ 𝑐 β‰  𝑑) β†’ (𝑑 ∈ 𝑉 ∧ 𝑐 ∈ 𝑉))
83 sotric 5616 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36 ((𝑅 Or 𝑉 ∧ (𝑑 ∈ 𝑉 ∧ 𝑐 ∈ 𝑉)) β†’ (𝑑𝑅𝑐 ↔ Β¬ (𝑑 = 𝑐 ∨ 𝑐𝑅𝑑)))
8482, 83sylan2 594 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 ((𝑅 Or 𝑉 ∧ ((𝑐 ∈ 𝑉 ∧ 𝑑 ∈ 𝑉) ∧ 𝑐 β‰  𝑑)) β†’ (𝑑𝑅𝑐 ↔ Β¬ (𝑑 = 𝑐 ∨ 𝑐𝑅𝑑)))
85 ioran 983 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 (Β¬ (𝑑 = 𝑐 ∨ 𝑐𝑅𝑑) ↔ (Β¬ 𝑑 = 𝑐 ∧ Β¬ 𝑐𝑅𝑑))
86 iffalse 4537 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 (Β¬ 𝑐𝑅𝑑 β†’ if(𝑐𝑅𝑑, 𝑐, 𝑑) = 𝑑)
8785, 86simplbiim 506 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36 (Β¬ (𝑑 = 𝑐 ∨ 𝑐𝑅𝑑) β†’ if(𝑐𝑅𝑑, 𝑐, 𝑑) = 𝑑)
8887eqeq1d 2735 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 (Β¬ (𝑑 = 𝑐 ∨ 𝑐𝑅𝑑) β†’ (if(𝑐𝑅𝑑, 𝑐, 𝑑) = π‘Ž ↔ 𝑑 = π‘Ž))
8984, 88syl6bi 253 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ((𝑅 Or 𝑉 ∧ ((𝑐 ∈ 𝑉 ∧ 𝑑 ∈ 𝑉) ∧ 𝑐 β‰  𝑑)) β†’ (𝑑𝑅𝑐 β†’ (if(𝑐𝑅𝑑, 𝑐, 𝑑) = π‘Ž ↔ 𝑑 = π‘Ž)))
9089impcom 409 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ((𝑑𝑅𝑐 ∧ (𝑅 Or 𝑉 ∧ ((𝑐 ∈ 𝑉 ∧ 𝑑 ∈ 𝑉) ∧ 𝑐 β‰  𝑑))) β†’ (if(𝑐𝑅𝑑, 𝑐, 𝑑) = π‘Ž ↔ 𝑑 = π‘Ž))
9190anbi1d 631 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ((𝑑𝑅𝑐 ∧ (𝑅 Or 𝑉 ∧ ((𝑐 ∈ 𝑉 ∧ 𝑑 ∈ 𝑉) ∧ 𝑐 β‰  𝑑))) β†’ ((if(𝑐𝑅𝑑, 𝑐, 𝑑) = π‘Ž ∧ 𝑐 = 𝑏) ↔ (𝑑 = π‘Ž ∧ 𝑐 = 𝑏)))
92 olc 867 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ((𝑐 = 𝑏 ∧ 𝑑 = π‘Ž) β†’ ((𝑐 = π‘Ž ∧ 𝑑 = 𝑏) ∨ (𝑐 = 𝑏 ∧ 𝑑 = π‘Ž)))
9392ancoms 460 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ((𝑑 = π‘Ž ∧ 𝑐 = 𝑏) β†’ ((𝑐 = π‘Ž ∧ 𝑑 = 𝑏) ∨ (𝑐 = 𝑏 ∧ 𝑑 = π‘Ž)))
9491, 93syl6bi 253 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ((𝑑𝑅𝑐 ∧ (𝑅 Or 𝑉 ∧ ((𝑐 ∈ 𝑉 ∧ 𝑑 ∈ 𝑉) ∧ 𝑐 β‰  𝑑))) β†’ ((if(𝑐𝑅𝑑, 𝑐, 𝑑) = π‘Ž ∧ 𝑐 = 𝑏) β†’ ((𝑐 = π‘Ž ∧ 𝑑 = 𝑏) ∨ (𝑐 = 𝑏 ∧ 𝑑 = π‘Ž))))
9580, 94sylbid 239 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ((𝑑𝑅𝑐 ∧ (𝑅 Or 𝑉 ∧ ((𝑐 ∈ 𝑉 ∧ 𝑑 ∈ 𝑉) ∧ 𝑐 β‰  𝑑))) β†’ ((inf({𝑐, 𝑑}, 𝑉, 𝑅) = π‘Ž ∧ sup({𝑐, 𝑑}, 𝑉, 𝑅) = 𝑏) β†’ ((𝑐 = π‘Ž ∧ 𝑑 = 𝑏) ∨ (𝑐 = 𝑏 ∧ 𝑑 = π‘Ž))))
9695ex 414 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (𝑑𝑅𝑐 β†’ ((𝑅 Or 𝑉 ∧ ((𝑐 ∈ 𝑉 ∧ 𝑑 ∈ 𝑉) ∧ 𝑐 β‰  𝑑)) β†’ ((inf({𝑐, 𝑑}, 𝑉, 𝑅) = π‘Ž ∧ sup({𝑐, 𝑑}, 𝑉, 𝑅) = 𝑏) β†’ ((𝑐 = π‘Ž ∧ 𝑑 = 𝑏) ∨ (𝑐 = 𝑏 ∧ 𝑑 = π‘Ž)))))
9771, 74, 963jaoi 1428 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((𝑐𝑅𝑑 ∨ 𝑐 = 𝑑 ∨ 𝑑𝑅𝑐) β†’ ((𝑅 Or 𝑉 ∧ ((𝑐 ∈ 𝑉 ∧ 𝑑 ∈ 𝑉) ∧ 𝑐 β‰  𝑑)) β†’ ((inf({𝑐, 𝑑}, 𝑉, 𝑅) = π‘Ž ∧ sup({𝑐, 𝑑}, 𝑉, 𝑅) = 𝑏) β†’ ((𝑐 = π‘Ž ∧ 𝑑 = 𝑏) ∨ (𝑐 = 𝑏 ∧ 𝑑 = π‘Ž)))))
9847, 97mpcom 38 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((𝑅 Or 𝑉 ∧ ((𝑐 ∈ 𝑉 ∧ 𝑑 ∈ 𝑉) ∧ 𝑐 β‰  𝑑)) β†’ ((inf({𝑐, 𝑑}, 𝑉, 𝑅) = π‘Ž ∧ sup({𝑐, 𝑑}, 𝑉, 𝑅) = 𝑏) β†’ ((𝑐 = π‘Ž ∧ 𝑑 = 𝑏) ∨ (𝑐 = 𝑏 ∧ 𝑑 = π‘Ž))))
9998ex 414 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (𝑅 Or 𝑉 β†’ (((𝑐 ∈ 𝑉 ∧ 𝑑 ∈ 𝑉) ∧ 𝑐 β‰  𝑑) β†’ ((inf({𝑐, 𝑑}, 𝑉, 𝑅) = π‘Ž ∧ sup({𝑐, 𝑑}, 𝑉, 𝑅) = 𝑏) β†’ ((𝑐 = π‘Ž ∧ 𝑑 = 𝑏) ∨ (𝑐 = 𝑏 ∧ 𝑑 = π‘Ž)))))
10099ad2antrl 727 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((π‘Žπ‘…π‘ ∧ (𝑅 Or 𝑉 ∧ (π‘Ž ∈ 𝑉 ∧ 𝑏 ∈ 𝑉))) β†’ (((𝑐 ∈ 𝑉 ∧ 𝑑 ∈ 𝑉) ∧ 𝑐 β‰  𝑑) β†’ ((inf({𝑐, 𝑑}, 𝑉, 𝑅) = π‘Ž ∧ sup({𝑐, 𝑑}, 𝑉, 𝑅) = 𝑏) β†’ ((𝑐 = π‘Ž ∧ 𝑑 = 𝑏) ∨ (𝑐 = 𝑏 ∧ 𝑑 = π‘Ž)))))
101100imp 408 . . . . . . . . . . . . . . . . . . . . . . . 24 (((π‘Žπ‘…π‘ ∧ (𝑅 Or 𝑉 ∧ (π‘Ž ∈ 𝑉 ∧ 𝑏 ∈ 𝑉))) ∧ ((𝑐 ∈ 𝑉 ∧ 𝑑 ∈ 𝑉) ∧ 𝑐 β‰  𝑑)) β†’ ((inf({𝑐, 𝑑}, 𝑉, 𝑅) = π‘Ž ∧ sup({𝑐, 𝑑}, 𝑉, 𝑅) = 𝑏) β†’ ((𝑐 = π‘Ž ∧ 𝑑 = 𝑏) ∨ (𝑐 = 𝑏 ∧ 𝑑 = π‘Ž))))
10245, 101sylbid 239 . . . . . . . . . . . . . . . . . . . . . . 23 (((π‘Žπ‘…π‘ ∧ (𝑅 Or 𝑉 ∧ (π‘Ž ∈ 𝑉 ∧ 𝑏 ∈ 𝑉))) ∧ ((𝑐 ∈ 𝑉 ∧ 𝑑 ∈ 𝑉) ∧ 𝑐 β‰  𝑑)) β†’ ((inf({𝑐, 𝑑}, 𝑉, 𝑅) = inf({π‘Ž, 𝑏}, 𝑉, 𝑅) ∧ sup({𝑐, 𝑑}, 𝑉, 𝑅) = sup({π‘Ž, 𝑏}, 𝑉, 𝑅)) β†’ ((𝑐 = π‘Ž ∧ 𝑑 = 𝑏) ∨ (𝑐 = 𝑏 ∧ 𝑑 = π‘Ž))))
103102ex 414 . . . . . . . . . . . . . . . . . . . . . 22 ((π‘Žπ‘…π‘ ∧ (𝑅 Or 𝑉 ∧ (π‘Ž ∈ 𝑉 ∧ 𝑏 ∈ 𝑉))) β†’ (((𝑐 ∈ 𝑉 ∧ 𝑑 ∈ 𝑉) ∧ 𝑐 β‰  𝑑) β†’ ((inf({𝑐, 𝑑}, 𝑉, 𝑅) = inf({π‘Ž, 𝑏}, 𝑉, 𝑅) ∧ sup({𝑐, 𝑑}, 𝑉, 𝑅) = sup({π‘Ž, 𝑏}, 𝑉, 𝑅)) β†’ ((𝑐 = π‘Ž ∧ 𝑑 = 𝑏) ∨ (𝑐 = 𝑏 ∧ 𝑑 = π‘Ž)))))
104103a1d 25 . . . . . . . . . . . . . . . . . . . . 21 ((π‘Žπ‘…π‘ ∧ (𝑅 Or 𝑉 ∧ (π‘Ž ∈ 𝑉 ∧ 𝑏 ∈ 𝑉))) β†’ (π‘Ž β‰  𝑏 β†’ (((𝑐 ∈ 𝑉 ∧ 𝑑 ∈ 𝑉) ∧ 𝑐 β‰  𝑑) β†’ ((inf({𝑐, 𝑑}, 𝑉, 𝑅) = inf({π‘Ž, 𝑏}, 𝑉, 𝑅) ∧ sup({𝑐, 𝑑}, 𝑉, 𝑅) = sup({π‘Ž, 𝑏}, 𝑉, 𝑅)) β†’ ((𝑐 = π‘Ž ∧ 𝑑 = 𝑏) ∨ (𝑐 = 𝑏 ∧ 𝑑 = π‘Ž))))))
105104ex 414 . . . . . . . . . . . . . . . . . . . 20 (π‘Žπ‘…π‘ β†’ ((𝑅 Or 𝑉 ∧ (π‘Ž ∈ 𝑉 ∧ 𝑏 ∈ 𝑉)) β†’ (π‘Ž β‰  𝑏 β†’ (((𝑐 ∈ 𝑉 ∧ 𝑑 ∈ 𝑉) ∧ 𝑐 β‰  𝑑) β†’ ((inf({𝑐, 𝑑}, 𝑉, 𝑅) = inf({π‘Ž, 𝑏}, 𝑉, 𝑅) ∧ sup({𝑐, 𝑑}, 𝑉, 𝑅) = sup({π‘Ž, 𝑏}, 𝑉, 𝑅)) β†’ ((𝑐 = π‘Ž ∧ 𝑑 = 𝑏) ∨ (𝑐 = 𝑏 ∧ 𝑑 = π‘Ž)))))))
106 eqneqall 2952 . . . . . . . . . . . . . . . . . . . . 21 (π‘Ž = 𝑏 β†’ (π‘Ž β‰  𝑏 β†’ (((𝑐 ∈ 𝑉 ∧ 𝑑 ∈ 𝑉) ∧ 𝑐 β‰  𝑑) β†’ ((inf({𝑐, 𝑑}, 𝑉, 𝑅) = inf({π‘Ž, 𝑏}, 𝑉, 𝑅) ∧ sup({𝑐, 𝑑}, 𝑉, 𝑅) = sup({π‘Ž, 𝑏}, 𝑉, 𝑅)) β†’ ((𝑐 = π‘Ž ∧ 𝑑 = 𝑏) ∨ (𝑐 = 𝑏 ∧ 𝑑 = π‘Ž))))))
107106a1d 25 . . . . . . . . . . . . . . . . . . . 20 (π‘Ž = 𝑏 β†’ ((𝑅 Or 𝑉 ∧ (π‘Ž ∈ 𝑉 ∧ 𝑏 ∈ 𝑉)) β†’ (π‘Ž β‰  𝑏 β†’ (((𝑐 ∈ 𝑉 ∧ 𝑑 ∈ 𝑉) ∧ 𝑐 β‰  𝑑) β†’ ((inf({𝑐, 𝑑}, 𝑉, 𝑅) = inf({π‘Ž, 𝑏}, 𝑉, 𝑅) ∧ sup({𝑐, 𝑑}, 𝑉, 𝑅) = sup({π‘Ž, 𝑏}, 𝑉, 𝑅)) β†’ ((𝑐 = π‘Ž ∧ 𝑑 = 𝑏) ∨ (𝑐 = 𝑏 ∧ 𝑑 = π‘Ž)))))))
10829adantl 483 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((π‘π‘…π‘Ž ∧ (𝑅 Or 𝑉 ∧ (π‘Ž ∈ 𝑉 ∧ 𝑏 ∈ 𝑉))) β†’ inf({π‘Ž, 𝑏}, 𝑉, 𝑅) = if(π‘Žπ‘…π‘, π‘Ž, 𝑏))
109 sotric 5616 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ((𝑅 Or 𝑉 ∧ (𝑏 ∈ 𝑉 ∧ π‘Ž ∈ 𝑉)) β†’ (π‘π‘…π‘Ž ↔ Β¬ (𝑏 = π‘Ž ∨ π‘Žπ‘…π‘)))
110109ancom2s 649 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ((𝑅 Or 𝑉 ∧ (π‘Ž ∈ 𝑉 ∧ 𝑏 ∈ 𝑉)) β†’ (π‘π‘…π‘Ž ↔ Β¬ (𝑏 = π‘Ž ∨ π‘Žπ‘…π‘)))
111 ioran 983 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 (Β¬ (𝑏 = π‘Ž ∨ π‘Žπ‘…π‘) ↔ (Β¬ 𝑏 = π‘Ž ∧ Β¬ π‘Žπ‘…π‘))
112 iffalse 4537 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 (Β¬ π‘Žπ‘…π‘ β†’ if(π‘Žπ‘…π‘, π‘Ž, 𝑏) = 𝑏)
113111, 112simplbiim 506 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (Β¬ (𝑏 = π‘Ž ∨ π‘Žπ‘…π‘) β†’ if(π‘Žπ‘…π‘, π‘Ž, 𝑏) = 𝑏)
114110, 113syl6bi 253 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ((𝑅 Or 𝑉 ∧ (π‘Ž ∈ 𝑉 ∧ 𝑏 ∈ 𝑉)) β†’ (π‘π‘…π‘Ž β†’ if(π‘Žπ‘…π‘, π‘Ž, 𝑏) = 𝑏))
115114impcom 409 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((π‘π‘…π‘Ž ∧ (𝑅 Or 𝑉 ∧ (π‘Ž ∈ 𝑉 ∧ 𝑏 ∈ 𝑉))) β†’ if(π‘Žπ‘…π‘, π‘Ž, 𝑏) = 𝑏)
116108, 115eqtrd 2773 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((π‘π‘…π‘Ž ∧ (𝑅 Or 𝑉 ∧ (π‘Ž ∈ 𝑉 ∧ 𝑏 ∈ 𝑉))) β†’ inf({π‘Ž, 𝑏}, 𝑉, 𝑅) = 𝑏)
117116eqeq2d 2744 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((π‘π‘…π‘Ž ∧ (𝑅 Or 𝑉 ∧ (π‘Ž ∈ 𝑉 ∧ 𝑏 ∈ 𝑉))) β†’ (inf({𝑐, 𝑑}, 𝑉, 𝑅) = inf({π‘Ž, 𝑏}, 𝑉, 𝑅) ↔ inf({𝑐, 𝑑}, 𝑉, 𝑅) = 𝑏))
118 iftrue 4534 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (π‘π‘…π‘Ž β†’ if(π‘π‘…π‘Ž, π‘Ž, 𝑏) = π‘Ž)
11934, 118sylan9eqr 2795 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((π‘π‘…π‘Ž ∧ (𝑅 Or 𝑉 ∧ (π‘Ž ∈ 𝑉 ∧ 𝑏 ∈ 𝑉))) β†’ sup({π‘Ž, 𝑏}, 𝑉, 𝑅) = π‘Ž)
120119eqeq2d 2744 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((π‘π‘…π‘Ž ∧ (𝑅 Or 𝑉 ∧ (π‘Ž ∈ 𝑉 ∧ 𝑏 ∈ 𝑉))) β†’ (sup({𝑐, 𝑑}, 𝑉, 𝑅) = sup({π‘Ž, 𝑏}, 𝑉, 𝑅) ↔ sup({𝑐, 𝑑}, 𝑉, 𝑅) = π‘Ž))
121117, 120anbi12d 632 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((π‘π‘…π‘Ž ∧ (𝑅 Or 𝑉 ∧ (π‘Ž ∈ 𝑉 ∧ 𝑏 ∈ 𝑉))) β†’ ((inf({𝑐, 𝑑}, 𝑉, 𝑅) = inf({π‘Ž, 𝑏}, 𝑉, 𝑅) ∧ sup({𝑐, 𝑑}, 𝑉, 𝑅) = sup({π‘Ž, 𝑏}, 𝑉, 𝑅)) ↔ (inf({𝑐, 𝑑}, 𝑉, 𝑅) = 𝑏 ∧ sup({𝑐, 𝑑}, 𝑉, 𝑅) = π‘Ž)))
122121adantr 482 . . . . . . . . . . . . . . . . . . . . . . . 24 (((π‘π‘…π‘Ž ∧ (𝑅 Or 𝑉 ∧ (π‘Ž ∈ 𝑉 ∧ 𝑏 ∈ 𝑉))) ∧ ((𝑐 ∈ 𝑉 ∧ 𝑑 ∈ 𝑉) ∧ 𝑐 β‰  𝑑)) β†’ ((inf({𝑐, 𝑑}, 𝑉, 𝑅) = inf({π‘Ž, 𝑏}, 𝑉, 𝑅) ∧ sup({𝑐, 𝑑}, 𝑉, 𝑅) = sup({π‘Ž, 𝑏}, 𝑉, 𝑅)) ↔ (inf({𝑐, 𝑑}, 𝑉, 𝑅) = 𝑏 ∧ sup({𝑐, 𝑑}, 𝑉, 𝑅) = π‘Ž)))
12354eqeq1d 2735 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ((𝑐𝑅𝑑 ∧ (𝑅 Or 𝑉 ∧ ((𝑐 ∈ 𝑉 ∧ 𝑑 ∈ 𝑉) ∧ 𝑐 β‰  𝑑))) β†’ (inf({𝑐, 𝑑}, 𝑉, 𝑅) = 𝑏 ↔ 𝑐 = 𝑏))
12466eqeq1d 2735 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ((𝑐𝑅𝑑 ∧ (𝑅 Or 𝑉 ∧ ((𝑐 ∈ 𝑉 ∧ 𝑑 ∈ 𝑉) ∧ 𝑐 β‰  𝑑))) β†’ (sup({𝑐, 𝑑}, 𝑉, 𝑅) = π‘Ž ↔ 𝑑 = π‘Ž))
125123, 124anbi12d 632 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ((𝑐𝑅𝑑 ∧ (𝑅 Or 𝑉 ∧ ((𝑐 ∈ 𝑉 ∧ 𝑑 ∈ 𝑉) ∧ 𝑐 β‰  𝑑))) β†’ ((inf({𝑐, 𝑑}, 𝑉, 𝑅) = 𝑏 ∧ sup({𝑐, 𝑑}, 𝑉, 𝑅) = π‘Ž) ↔ (𝑐 = 𝑏 ∧ 𝑑 = π‘Ž)))
126125, 92syl6bi 253 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ((𝑐𝑅𝑑 ∧ (𝑅 Or 𝑉 ∧ ((𝑐 ∈ 𝑉 ∧ 𝑑 ∈ 𝑉) ∧ 𝑐 β‰  𝑑))) β†’ ((inf({𝑐, 𝑑}, 𝑉, 𝑅) = 𝑏 ∧ sup({𝑐, 𝑑}, 𝑉, 𝑅) = π‘Ž) β†’ ((𝑐 = π‘Ž ∧ 𝑑 = 𝑏) ∨ (𝑐 = 𝑏 ∧ 𝑑 = π‘Ž))))
127126ex 414 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (𝑐𝑅𝑑 β†’ ((𝑅 Or 𝑉 ∧ ((𝑐 ∈ 𝑉 ∧ 𝑑 ∈ 𝑉) ∧ 𝑐 β‰  𝑑)) β†’ ((inf({𝑐, 𝑑}, 𝑉, 𝑅) = 𝑏 ∧ sup({𝑐, 𝑑}, 𝑉, 𝑅) = π‘Ž) β†’ ((𝑐 = π‘Ž ∧ 𝑑 = 𝑏) ∨ (𝑐 = 𝑏 ∧ 𝑑 = π‘Ž)))))
128 eqneqall 2952 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 (𝑐 = 𝑑 β†’ (𝑐 β‰  𝑑 β†’ ((inf({𝑐, 𝑑}, 𝑉, 𝑅) = 𝑏 ∧ sup({𝑐, 𝑑}, 𝑉, 𝑅) = π‘Ž) β†’ ((𝑐 = π‘Ž ∧ 𝑑 = 𝑏) ∨ (𝑐 = 𝑏 ∧ 𝑑 = π‘Ž)))))
129128adantld 492 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (𝑐 = 𝑑 β†’ (((𝑐 ∈ 𝑉 ∧ 𝑑 ∈ 𝑉) ∧ 𝑐 β‰  𝑑) β†’ ((inf({𝑐, 𝑑}, 𝑉, 𝑅) = 𝑏 ∧ sup({𝑐, 𝑑}, 𝑉, 𝑅) = π‘Ž) β†’ ((𝑐 = π‘Ž ∧ 𝑑 = 𝑏) ∨ (𝑐 = 𝑏 ∧ 𝑑 = π‘Ž)))))
130129adantld 492 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (𝑐 = 𝑑 β†’ ((𝑅 Or 𝑉 ∧ ((𝑐 ∈ 𝑉 ∧ 𝑑 ∈ 𝑉) ∧ 𝑐 β‰  𝑑)) β†’ ((inf({𝑐, 𝑑}, 𝑉, 𝑅) = 𝑏 ∧ sup({𝑐, 𝑑}, 𝑉, 𝑅) = π‘Ž) β†’ ((𝑐 = π‘Ž ∧ 𝑑 = 𝑏) ∨ (𝑐 = 𝑏 ∧ 𝑑 = π‘Ž)))))
13184, 87syl6bi 253 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 ((𝑅 Or 𝑉 ∧ ((𝑐 ∈ 𝑉 ∧ 𝑑 ∈ 𝑉) ∧ 𝑐 β‰  𝑑)) β†’ (𝑑𝑅𝑐 β†’ if(𝑐𝑅𝑑, 𝑐, 𝑑) = 𝑑))
132131impcom 409 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ((𝑑𝑅𝑐 ∧ (𝑅 Or 𝑉 ∧ ((𝑐 ∈ 𝑉 ∧ 𝑑 ∈ 𝑉) ∧ 𝑐 β‰  𝑑))) β†’ if(𝑐𝑅𝑑, 𝑐, 𝑑) = 𝑑)
13375, 132eqtrd 2773 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ((𝑑𝑅𝑐 ∧ (𝑅 Or 𝑉 ∧ ((𝑐 ∈ 𝑉 ∧ 𝑑 ∈ 𝑉) ∧ 𝑐 β‰  𝑑))) β†’ inf({𝑐, 𝑑}, 𝑉, 𝑅) = 𝑑)
134133eqeq1d 2735 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ((𝑑𝑅𝑐 ∧ (𝑅 Or 𝑉 ∧ ((𝑐 ∈ 𝑉 ∧ 𝑑 ∈ 𝑉) ∧ 𝑐 β‰  𝑑))) β†’ (inf({𝑐, 𝑑}, 𝑉, 𝑅) = 𝑏 ↔ 𝑑 = 𝑏))
13578eqeq1d 2735 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ((𝑑𝑅𝑐 ∧ (𝑅 Or 𝑉 ∧ ((𝑐 ∈ 𝑉 ∧ 𝑑 ∈ 𝑉) ∧ 𝑐 β‰  𝑑))) β†’ (sup({𝑐, 𝑑}, 𝑉, 𝑅) = π‘Ž ↔ 𝑐 = π‘Ž))
136134, 135anbi12d 632 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ((𝑑𝑅𝑐 ∧ (𝑅 Or 𝑉 ∧ ((𝑐 ∈ 𝑉 ∧ 𝑑 ∈ 𝑉) ∧ 𝑐 β‰  𝑑))) β†’ ((inf({𝑐, 𝑑}, 𝑉, 𝑅) = 𝑏 ∧ sup({𝑐, 𝑑}, 𝑉, 𝑅) = π‘Ž) ↔ (𝑑 = 𝑏 ∧ 𝑐 = π‘Ž)))
13769ancoms 460 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ((𝑑 = 𝑏 ∧ 𝑐 = π‘Ž) β†’ ((𝑐 = π‘Ž ∧ 𝑑 = 𝑏) ∨ (𝑐 = 𝑏 ∧ 𝑑 = π‘Ž)))
138136, 137syl6bi 253 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ((𝑑𝑅𝑐 ∧ (𝑅 Or 𝑉 ∧ ((𝑐 ∈ 𝑉 ∧ 𝑑 ∈ 𝑉) ∧ 𝑐 β‰  𝑑))) β†’ ((inf({𝑐, 𝑑}, 𝑉, 𝑅) = 𝑏 ∧ sup({𝑐, 𝑑}, 𝑉, 𝑅) = π‘Ž) β†’ ((𝑐 = π‘Ž ∧ 𝑑 = 𝑏) ∨ (𝑐 = 𝑏 ∧ 𝑑 = π‘Ž))))
139138ex 414 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (𝑑𝑅𝑐 β†’ ((𝑅 Or 𝑉 ∧ ((𝑐 ∈ 𝑉 ∧ 𝑑 ∈ 𝑉) ∧ 𝑐 β‰  𝑑)) β†’ ((inf({𝑐, 𝑑}, 𝑉, 𝑅) = 𝑏 ∧ sup({𝑐, 𝑑}, 𝑉, 𝑅) = π‘Ž) β†’ ((𝑐 = π‘Ž ∧ 𝑑 = 𝑏) ∨ (𝑐 = 𝑏 ∧ 𝑑 = π‘Ž)))))
140127, 130, 1393jaoi 1428 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((𝑐𝑅𝑑 ∨ 𝑐 = 𝑑 ∨ 𝑑𝑅𝑐) β†’ ((𝑅 Or 𝑉 ∧ ((𝑐 ∈ 𝑉 ∧ 𝑑 ∈ 𝑉) ∧ 𝑐 β‰  𝑑)) β†’ ((inf({𝑐, 𝑑}, 𝑉, 𝑅) = 𝑏 ∧ sup({𝑐, 𝑑}, 𝑉, 𝑅) = π‘Ž) β†’ ((𝑐 = π‘Ž ∧ 𝑑 = 𝑏) ∨ (𝑐 = 𝑏 ∧ 𝑑 = π‘Ž)))))
14147, 140mpcom 38 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((𝑅 Or 𝑉 ∧ ((𝑐 ∈ 𝑉 ∧ 𝑑 ∈ 𝑉) ∧ 𝑐 β‰  𝑑)) β†’ ((inf({𝑐, 𝑑}, 𝑉, 𝑅) = 𝑏 ∧ sup({𝑐, 𝑑}, 𝑉, 𝑅) = π‘Ž) β†’ ((𝑐 = π‘Ž ∧ 𝑑 = 𝑏) ∨ (𝑐 = 𝑏 ∧ 𝑑 = π‘Ž))))
142141ex 414 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (𝑅 Or 𝑉 β†’ (((𝑐 ∈ 𝑉 ∧ 𝑑 ∈ 𝑉) ∧ 𝑐 β‰  𝑑) β†’ ((inf({𝑐, 𝑑}, 𝑉, 𝑅) = 𝑏 ∧ sup({𝑐, 𝑑}, 𝑉, 𝑅) = π‘Ž) β†’ ((𝑐 = π‘Ž ∧ 𝑑 = 𝑏) ∨ (𝑐 = 𝑏 ∧ 𝑑 = π‘Ž)))))
143142ad2antrl 727 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((π‘π‘…π‘Ž ∧ (𝑅 Or 𝑉 ∧ (π‘Ž ∈ 𝑉 ∧ 𝑏 ∈ 𝑉))) β†’ (((𝑐 ∈ 𝑉 ∧ 𝑑 ∈ 𝑉) ∧ 𝑐 β‰  𝑑) β†’ ((inf({𝑐, 𝑑}, 𝑉, 𝑅) = 𝑏 ∧ sup({𝑐, 𝑑}, 𝑉, 𝑅) = π‘Ž) β†’ ((𝑐 = π‘Ž ∧ 𝑑 = 𝑏) ∨ (𝑐 = 𝑏 ∧ 𝑑 = π‘Ž)))))
144143imp 408 . . . . . . . . . . . . . . . . . . . . . . . 24 (((π‘π‘…π‘Ž ∧ (𝑅 Or 𝑉 ∧ (π‘Ž ∈ 𝑉 ∧ 𝑏 ∈ 𝑉))) ∧ ((𝑐 ∈ 𝑉 ∧ 𝑑 ∈ 𝑉) ∧ 𝑐 β‰  𝑑)) β†’ ((inf({𝑐, 𝑑}, 𝑉, 𝑅) = 𝑏 ∧ sup({𝑐, 𝑑}, 𝑉, 𝑅) = π‘Ž) β†’ ((𝑐 = π‘Ž ∧ 𝑑 = 𝑏) ∨ (𝑐 = 𝑏 ∧ 𝑑 = π‘Ž))))
145122, 144sylbid 239 . . . . . . . . . . . . . . . . . . . . . . 23 (((π‘π‘…π‘Ž ∧ (𝑅 Or 𝑉 ∧ (π‘Ž ∈ 𝑉 ∧ 𝑏 ∈ 𝑉))) ∧ ((𝑐 ∈ 𝑉 ∧ 𝑑 ∈ 𝑉) ∧ 𝑐 β‰  𝑑)) β†’ ((inf({𝑐, 𝑑}, 𝑉, 𝑅) = inf({π‘Ž, 𝑏}, 𝑉, 𝑅) ∧ sup({𝑐, 𝑑}, 𝑉, 𝑅) = sup({π‘Ž, 𝑏}, 𝑉, 𝑅)) β†’ ((𝑐 = π‘Ž ∧ 𝑑 = 𝑏) ∨ (𝑐 = 𝑏 ∧ 𝑑 = π‘Ž))))
146145ex 414 . . . . . . . . . . . . . . . . . . . . . 22 ((π‘π‘…π‘Ž ∧ (𝑅 Or 𝑉 ∧ (π‘Ž ∈ 𝑉 ∧ 𝑏 ∈ 𝑉))) β†’ (((𝑐 ∈ 𝑉 ∧ 𝑑 ∈ 𝑉) ∧ 𝑐 β‰  𝑑) β†’ ((inf({𝑐, 𝑑}, 𝑉, 𝑅) = inf({π‘Ž, 𝑏}, 𝑉, 𝑅) ∧ sup({𝑐, 𝑑}, 𝑉, 𝑅) = sup({π‘Ž, 𝑏}, 𝑉, 𝑅)) β†’ ((𝑐 = π‘Ž ∧ 𝑑 = 𝑏) ∨ (𝑐 = 𝑏 ∧ 𝑑 = π‘Ž)))))
147146a1d 25 . . . . . . . . . . . . . . . . . . . . 21 ((π‘π‘…π‘Ž ∧ (𝑅 Or 𝑉 ∧ (π‘Ž ∈ 𝑉 ∧ 𝑏 ∈ 𝑉))) β†’ (π‘Ž β‰  𝑏 β†’ (((𝑐 ∈ 𝑉 ∧ 𝑑 ∈ 𝑉) ∧ 𝑐 β‰  𝑑) β†’ ((inf({𝑐, 𝑑}, 𝑉, 𝑅) = inf({π‘Ž, 𝑏}, 𝑉, 𝑅) ∧ sup({𝑐, 𝑑}, 𝑉, 𝑅) = sup({π‘Ž, 𝑏}, 𝑉, 𝑅)) β†’ ((𝑐 = π‘Ž ∧ 𝑑 = 𝑏) ∨ (𝑐 = 𝑏 ∧ 𝑑 = π‘Ž))))))
148147ex 414 . . . . . . . . . . . . . . . . . . . 20 (π‘π‘…π‘Ž β†’ ((𝑅 Or 𝑉 ∧ (π‘Ž ∈ 𝑉 ∧ 𝑏 ∈ 𝑉)) β†’ (π‘Ž β‰  𝑏 β†’ (((𝑐 ∈ 𝑉 ∧ 𝑑 ∈ 𝑉) ∧ 𝑐 β‰  𝑑) β†’ ((inf({𝑐, 𝑑}, 𝑉, 𝑅) = inf({π‘Ž, 𝑏}, 𝑉, 𝑅) ∧ sup({𝑐, 𝑑}, 𝑉, 𝑅) = sup({π‘Ž, 𝑏}, 𝑉, 𝑅)) β†’ ((𝑐 = π‘Ž ∧ 𝑑 = 𝑏) ∨ (𝑐 = 𝑏 ∧ 𝑑 = π‘Ž)))))))
149105, 107, 1483jaoi 1428 . . . . . . . . . . . . . . . . . . 19 ((π‘Žπ‘…π‘ ∨ π‘Ž = 𝑏 ∨ π‘π‘…π‘Ž) β†’ ((𝑅 Or 𝑉 ∧ (π‘Ž ∈ 𝑉 ∧ 𝑏 ∈ 𝑉)) β†’ (π‘Ž β‰  𝑏 β†’ (((𝑐 ∈ 𝑉 ∧ 𝑑 ∈ 𝑉) ∧ 𝑐 β‰  𝑑) β†’ ((inf({𝑐, 𝑑}, 𝑉, 𝑅) = inf({π‘Ž, 𝑏}, 𝑉, 𝑅) ∧ sup({𝑐, 𝑑}, 𝑉, 𝑅) = sup({π‘Ž, 𝑏}, 𝑉, 𝑅)) β†’ ((𝑐 = π‘Ž ∧ 𝑑 = 𝑏) ∨ (𝑐 = 𝑏 ∧ 𝑑 = π‘Ž)))))))
15027, 149mpcom 38 . . . . . . . . . . . . . . . . . 18 ((𝑅 Or 𝑉 ∧ (π‘Ž ∈ 𝑉 ∧ 𝑏 ∈ 𝑉)) β†’ (π‘Ž β‰  𝑏 β†’ (((𝑐 ∈ 𝑉 ∧ 𝑑 ∈ 𝑉) ∧ 𝑐 β‰  𝑑) β†’ ((inf({𝑐, 𝑑}, 𝑉, 𝑅) = inf({π‘Ž, 𝑏}, 𝑉, 𝑅) ∧ sup({𝑐, 𝑑}, 𝑉, 𝑅) = sup({π‘Ž, 𝑏}, 𝑉, 𝑅)) β†’ ((𝑐 = π‘Ž ∧ 𝑑 = 𝑏) ∨ (𝑐 = 𝑏 ∧ 𝑑 = π‘Ž))))))
151150adantld 492 . . . . . . . . . . . . . . . . 17 ((𝑅 Or 𝑉 ∧ (π‘Ž ∈ 𝑉 ∧ 𝑏 ∈ 𝑉)) β†’ ((π‘Š = {π‘Ž, 𝑏} ∧ π‘Ž β‰  𝑏) β†’ (((𝑐 ∈ 𝑉 ∧ 𝑑 ∈ 𝑉) ∧ 𝑐 β‰  𝑑) β†’ ((inf({𝑐, 𝑑}, 𝑉, 𝑅) = inf({π‘Ž, 𝑏}, 𝑉, 𝑅) ∧ sup({𝑐, 𝑑}, 𝑉, 𝑅) = sup({π‘Ž, 𝑏}, 𝑉, 𝑅)) β†’ ((𝑐 = π‘Ž ∧ 𝑑 = 𝑏) ∨ (𝑐 = 𝑏 ∧ 𝑑 = π‘Ž))))))
152151imp 408 . . . . . . . . . . . . . . . 16 (((𝑅 Or 𝑉 ∧ (π‘Ž ∈ 𝑉 ∧ 𝑏 ∈ 𝑉)) ∧ (π‘Š = {π‘Ž, 𝑏} ∧ π‘Ž β‰  𝑏)) β†’ (((𝑐 ∈ 𝑉 ∧ 𝑑 ∈ 𝑉) ∧ 𝑐 β‰  𝑑) β†’ ((inf({𝑐, 𝑑}, 𝑉, 𝑅) = inf({π‘Ž, 𝑏}, 𝑉, 𝑅) ∧ sup({𝑐, 𝑑}, 𝑉, 𝑅) = sup({π‘Ž, 𝑏}, 𝑉, 𝑅)) β†’ ((𝑐 = π‘Ž ∧ 𝑑 = 𝑏) ∨ (𝑐 = 𝑏 ∧ 𝑑 = π‘Ž)))))
153152expdimp 454 . . . . . . . . . . . . . . 15 ((((𝑅 Or 𝑉 ∧ (π‘Ž ∈ 𝑉 ∧ 𝑏 ∈ 𝑉)) ∧ (π‘Š = {π‘Ž, 𝑏} ∧ π‘Ž β‰  𝑏)) ∧ (𝑐 ∈ 𝑉 ∧ 𝑑 ∈ 𝑉)) β†’ (𝑐 β‰  𝑑 β†’ ((inf({𝑐, 𝑑}, 𝑉, 𝑅) = inf({π‘Ž, 𝑏}, 𝑉, 𝑅) ∧ sup({𝑐, 𝑑}, 𝑉, 𝑅) = sup({π‘Ž, 𝑏}, 𝑉, 𝑅)) β†’ ((𝑐 = π‘Ž ∧ 𝑑 = 𝑏) ∨ (𝑐 = 𝑏 ∧ 𝑑 = π‘Ž)))))
154153adantld 492 . . . . . . . . . . . . . 14 ((((𝑅 Or 𝑉 ∧ (π‘Ž ∈ 𝑉 ∧ 𝑏 ∈ 𝑉)) ∧ (π‘Š = {π‘Ž, 𝑏} ∧ π‘Ž β‰  𝑏)) ∧ (𝑐 ∈ 𝑉 ∧ 𝑑 ∈ 𝑉)) β†’ ((𝑍 = {𝑐, 𝑑} ∧ 𝑐 β‰  𝑑) β†’ ((inf({𝑐, 𝑑}, 𝑉, 𝑅) = inf({π‘Ž, 𝑏}, 𝑉, 𝑅) ∧ sup({𝑐, 𝑑}, 𝑉, 𝑅) = sup({π‘Ž, 𝑏}, 𝑉, 𝑅)) β†’ ((𝑐 = π‘Ž ∧ 𝑑 = 𝑏) ∨ (𝑐 = 𝑏 ∧ 𝑑 = π‘Ž)))))
155154imp 408 . . . . . . . . . . . . 13 (((((𝑅 Or 𝑉 ∧ (π‘Ž ∈ 𝑉 ∧ 𝑏 ∈ 𝑉)) ∧ (π‘Š = {π‘Ž, 𝑏} ∧ π‘Ž β‰  𝑏)) ∧ (𝑐 ∈ 𝑉 ∧ 𝑑 ∈ 𝑉)) ∧ (𝑍 = {𝑐, 𝑑} ∧ 𝑐 β‰  𝑑)) β†’ ((inf({𝑐, 𝑑}, 𝑉, 𝑅) = inf({π‘Ž, 𝑏}, 𝑉, 𝑅) ∧ sup({𝑐, 𝑑}, 𝑉, 𝑅) = sup({π‘Ž, 𝑏}, 𝑉, 𝑅)) β†’ ((𝑐 = π‘Ž ∧ 𝑑 = 𝑏) ∨ (𝑐 = 𝑏 ∧ 𝑑 = π‘Ž))))
156 vex 3479 . . . . . . . . . . . . . 14 𝑐 ∈ V
157 vex 3479 . . . . . . . . . . . . . 14 𝑑 ∈ V
158 vex 3479 . . . . . . . . . . . . . 14 π‘Ž ∈ V
159 vex 3479 . . . . . . . . . . . . . 14 𝑏 ∈ V
160156, 157, 158, 159preq12b 4851 . . . . . . . . . . . . 13 ({𝑐, 𝑑} = {π‘Ž, 𝑏} ↔ ((𝑐 = π‘Ž ∧ 𝑑 = 𝑏) ∨ (𝑐 = 𝑏 ∧ 𝑑 = π‘Ž)))
161155, 160syl6ibr 252 . . . . . . . . . . . 12 (((((𝑅 Or 𝑉 ∧ (π‘Ž ∈ 𝑉 ∧ 𝑏 ∈ 𝑉)) ∧ (π‘Š = {π‘Ž, 𝑏} ∧ π‘Ž β‰  𝑏)) ∧ (𝑐 ∈ 𝑉 ∧ 𝑑 ∈ 𝑉)) ∧ (𝑍 = {𝑐, 𝑑} ∧ 𝑐 β‰  𝑑)) β†’ ((inf({𝑐, 𝑑}, 𝑉, 𝑅) = inf({π‘Ž, 𝑏}, 𝑉, 𝑅) ∧ sup({𝑐, 𝑑}, 𝑉, 𝑅) = sup({π‘Ž, 𝑏}, 𝑉, 𝑅)) β†’ {𝑐, 𝑑} = {π‘Ž, 𝑏}))
16226, 161sylbid 239 . . . . . . . . . . 11 (((((𝑅 Or 𝑉 ∧ (π‘Ž ∈ 𝑉 ∧ 𝑏 ∈ 𝑉)) ∧ (π‘Š = {π‘Ž, 𝑏} ∧ π‘Ž β‰  𝑏)) ∧ (𝑐 ∈ 𝑉 ∧ 𝑑 ∈ 𝑉)) ∧ (𝑍 = {𝑐, 𝑑} ∧ 𝑐 β‰  𝑑)) β†’ (⟨inf({𝑐, 𝑑}, 𝑉, 𝑅), sup({𝑐, 𝑑}, 𝑉, 𝑅)⟩ = ⟨inf({π‘Ž, 𝑏}, 𝑉, 𝑅), sup({π‘Ž, 𝑏}, 𝑉, 𝑅)⟩ β†’ {𝑐, 𝑑} = {π‘Ž, 𝑏}))
163 infeq1 9468 . . . . . . . . . . . . . . . . . . . 20 (𝑍 = {𝑐, 𝑑} β†’ inf(𝑍, 𝑉, 𝑅) = inf({𝑐, 𝑑}, 𝑉, 𝑅))
164 supeq1 9437 . . . . . . . . . . . . . . . . . . . 20 (𝑍 = {𝑐, 𝑑} β†’ sup(𝑍, 𝑉, 𝑅) = sup({𝑐, 𝑑}, 𝑉, 𝑅))
165163, 164opeq12d 4881 . . . . . . . . . . . . . . . . . . 19 (𝑍 = {𝑐, 𝑑} β†’ ⟨inf(𝑍, 𝑉, 𝑅), sup(𝑍, 𝑉, 𝑅)⟩ = ⟨inf({𝑐, 𝑑}, 𝑉, 𝑅), sup({𝑐, 𝑑}, 𝑉, 𝑅)⟩)
166 infeq1 9468 . . . . . . . . . . . . . . . . . . . 20 (π‘Š = {π‘Ž, 𝑏} β†’ inf(π‘Š, 𝑉, 𝑅) = inf({π‘Ž, 𝑏}, 𝑉, 𝑅))
167 supeq1 9437 . . . . . . . . . . . . . . . . . . . 20 (π‘Š = {π‘Ž, 𝑏} β†’ sup(π‘Š, 𝑉, 𝑅) = sup({π‘Ž, 𝑏}, 𝑉, 𝑅))
168166, 167opeq12d 4881 . . . . . . . . . . . . . . . . . . 19 (π‘Š = {π‘Ž, 𝑏} β†’ ⟨inf(π‘Š, 𝑉, 𝑅), sup(π‘Š, 𝑉, 𝑅)⟩ = ⟨inf({π‘Ž, 𝑏}, 𝑉, 𝑅), sup({π‘Ž, 𝑏}, 𝑉, 𝑅)⟩)
169165, 168eqeqan12rd 2748 . . . . . . . . . . . . . . . . . 18 ((π‘Š = {π‘Ž, 𝑏} ∧ 𝑍 = {𝑐, 𝑑}) β†’ (⟨inf(𝑍, 𝑉, 𝑅), sup(𝑍, 𝑉, 𝑅)⟩ = ⟨inf(π‘Š, 𝑉, 𝑅), sup(π‘Š, 𝑉, 𝑅)⟩ ↔ ⟨inf({𝑐, 𝑑}, 𝑉, 𝑅), sup({𝑐, 𝑑}, 𝑉, 𝑅)⟩ = ⟨inf({π‘Ž, 𝑏}, 𝑉, 𝑅), sup({π‘Ž, 𝑏}, 𝑉, 𝑅)⟩))
170 eqeq12 2750 . . . . . . . . . . . . . . . . . . 19 ((𝑍 = {𝑐, 𝑑} ∧ π‘Š = {π‘Ž, 𝑏}) β†’ (𝑍 = π‘Š ↔ {𝑐, 𝑑} = {π‘Ž, 𝑏}))
171170ancoms 460 . . . . . . . . . . . . . . . . . 18 ((π‘Š = {π‘Ž, 𝑏} ∧ 𝑍 = {𝑐, 𝑑}) β†’ (𝑍 = π‘Š ↔ {𝑐, 𝑑} = {π‘Ž, 𝑏}))
172169, 171imbi12d 345 . . . . . . . . . . . . . . . . 17 ((π‘Š = {π‘Ž, 𝑏} ∧ 𝑍 = {𝑐, 𝑑}) β†’ ((⟨inf(𝑍, 𝑉, 𝑅), sup(𝑍, 𝑉, 𝑅)⟩ = ⟨inf(π‘Š, 𝑉, 𝑅), sup(π‘Š, 𝑉, 𝑅)⟩ β†’ 𝑍 = π‘Š) ↔ (⟨inf({𝑐, 𝑑}, 𝑉, 𝑅), sup({𝑐, 𝑑}, 𝑉, 𝑅)⟩ = ⟨inf({π‘Ž, 𝑏}, 𝑉, 𝑅), sup({π‘Ž, 𝑏}, 𝑉, 𝑅)⟩ β†’ {𝑐, 𝑑} = {π‘Ž, 𝑏})))
173172ex 414 . . . . . . . . . . . . . . . 16 (π‘Š = {π‘Ž, 𝑏} β†’ (𝑍 = {𝑐, 𝑑} β†’ ((⟨inf(𝑍, 𝑉, 𝑅), sup(𝑍, 𝑉, 𝑅)⟩ = ⟨inf(π‘Š, 𝑉, 𝑅), sup(π‘Š, 𝑉, 𝑅)⟩ β†’ 𝑍 = π‘Š) ↔ (⟨inf({𝑐, 𝑑}, 𝑉, 𝑅), sup({𝑐, 𝑑}, 𝑉, 𝑅)⟩ = ⟨inf({π‘Ž, 𝑏}, 𝑉, 𝑅), sup({π‘Ž, 𝑏}, 𝑉, 𝑅)⟩ β†’ {𝑐, 𝑑} = {π‘Ž, 𝑏}))))
174173ad2antrl 727 . . . . . . . . . . . . . . 15 (((𝑅 Or 𝑉 ∧ (π‘Ž ∈ 𝑉 ∧ 𝑏 ∈ 𝑉)) ∧ (π‘Š = {π‘Ž, 𝑏} ∧ π‘Ž β‰  𝑏)) β†’ (𝑍 = {𝑐, 𝑑} β†’ ((⟨inf(𝑍, 𝑉, 𝑅), sup(𝑍, 𝑉, 𝑅)⟩ = ⟨inf(π‘Š, 𝑉, 𝑅), sup(π‘Š, 𝑉, 𝑅)⟩ β†’ 𝑍 = π‘Š) ↔ (⟨inf({𝑐, 𝑑}, 𝑉, 𝑅), sup({𝑐, 𝑑}, 𝑉, 𝑅)⟩ = ⟨inf({π‘Ž, 𝑏}, 𝑉, 𝑅), sup({π‘Ž, 𝑏}, 𝑉, 𝑅)⟩ β†’ {𝑐, 𝑑} = {π‘Ž, 𝑏}))))
175174adantr 482 . . . . . . . . . . . . . 14 ((((𝑅 Or 𝑉 ∧ (π‘Ž ∈ 𝑉 ∧ 𝑏 ∈ 𝑉)) ∧ (π‘Š = {π‘Ž, 𝑏} ∧ π‘Ž β‰  𝑏)) ∧ (𝑐 ∈ 𝑉 ∧ 𝑑 ∈ 𝑉)) β†’ (𝑍 = {𝑐, 𝑑} β†’ ((⟨inf(𝑍, 𝑉, 𝑅), sup(𝑍, 𝑉, 𝑅)⟩ = ⟨inf(π‘Š, 𝑉, 𝑅), sup(π‘Š, 𝑉, 𝑅)⟩ β†’ 𝑍 = π‘Š) ↔ (⟨inf({𝑐, 𝑑}, 𝑉, 𝑅), sup({𝑐, 𝑑}, 𝑉, 𝑅)⟩ = ⟨inf({π‘Ž, 𝑏}, 𝑉, 𝑅), sup({π‘Ž, 𝑏}, 𝑉, 𝑅)⟩ β†’ {𝑐, 𝑑} = {π‘Ž, 𝑏}))))
176175com12 32 . . . . . . . . . . . . 13 (𝑍 = {𝑐, 𝑑} β†’ ((((𝑅 Or 𝑉 ∧ (π‘Ž ∈ 𝑉 ∧ 𝑏 ∈ 𝑉)) ∧ (π‘Š = {π‘Ž, 𝑏} ∧ π‘Ž β‰  𝑏)) ∧ (𝑐 ∈ 𝑉 ∧ 𝑑 ∈ 𝑉)) β†’ ((⟨inf(𝑍, 𝑉, 𝑅), sup(𝑍, 𝑉, 𝑅)⟩ = ⟨inf(π‘Š, 𝑉, 𝑅), sup(π‘Š, 𝑉, 𝑅)⟩ β†’ 𝑍 = π‘Š) ↔ (⟨inf({𝑐, 𝑑}, 𝑉, 𝑅), sup({𝑐, 𝑑}, 𝑉, 𝑅)⟩ = ⟨inf({π‘Ž, 𝑏}, 𝑉, 𝑅), sup({π‘Ž, 𝑏}, 𝑉, 𝑅)⟩ β†’ {𝑐, 𝑑} = {π‘Ž, 𝑏}))))
177176adantr 482 . . . . . . . . . . . 12 ((𝑍 = {𝑐, 𝑑} ∧ 𝑐 β‰  𝑑) β†’ ((((𝑅 Or 𝑉 ∧ (π‘Ž ∈ 𝑉 ∧ 𝑏 ∈ 𝑉)) ∧ (π‘Š = {π‘Ž, 𝑏} ∧ π‘Ž β‰  𝑏)) ∧ (𝑐 ∈ 𝑉 ∧ 𝑑 ∈ 𝑉)) β†’ ((⟨inf(𝑍, 𝑉, 𝑅), sup(𝑍, 𝑉, 𝑅)⟩ = ⟨inf(π‘Š, 𝑉, 𝑅), sup(π‘Š, 𝑉, 𝑅)⟩ β†’ 𝑍 = π‘Š) ↔ (⟨inf({𝑐, 𝑑}, 𝑉, 𝑅), sup({𝑐, 𝑑}, 𝑉, 𝑅)⟩ = ⟨inf({π‘Ž, 𝑏}, 𝑉, 𝑅), sup({π‘Ž, 𝑏}, 𝑉, 𝑅)⟩ β†’ {𝑐, 𝑑} = {π‘Ž, 𝑏}))))
178177impcom 409 . . . . . . . . . . 11 (((((𝑅 Or 𝑉 ∧ (π‘Ž ∈ 𝑉 ∧ 𝑏 ∈ 𝑉)) ∧ (π‘Š = {π‘Ž, 𝑏} ∧ π‘Ž β‰  𝑏)) ∧ (𝑐 ∈ 𝑉 ∧ 𝑑 ∈ 𝑉)) ∧ (𝑍 = {𝑐, 𝑑} ∧ 𝑐 β‰  𝑑)) β†’ ((⟨inf(𝑍, 𝑉, 𝑅), sup(𝑍, 𝑉, 𝑅)⟩ = ⟨inf(π‘Š, 𝑉, 𝑅), sup(π‘Š, 𝑉, 𝑅)⟩ β†’ 𝑍 = π‘Š) ↔ (⟨inf({𝑐, 𝑑}, 𝑉, 𝑅), sup({𝑐, 𝑑}, 𝑉, 𝑅)⟩ = ⟨inf({π‘Ž, 𝑏}, 𝑉, 𝑅), sup({π‘Ž, 𝑏}, 𝑉, 𝑅)⟩ β†’ {𝑐, 𝑑} = {π‘Ž, 𝑏})))
179162, 178mpbird 257 . . . . . . . . . 10 (((((𝑅 Or 𝑉 ∧ (π‘Ž ∈ 𝑉 ∧ 𝑏 ∈ 𝑉)) ∧ (π‘Š = {π‘Ž, 𝑏} ∧ π‘Ž β‰  𝑏)) ∧ (𝑐 ∈ 𝑉 ∧ 𝑑 ∈ 𝑉)) ∧ (𝑍 = {𝑐, 𝑑} ∧ 𝑐 β‰  𝑑)) β†’ (⟨inf(𝑍, 𝑉, 𝑅), sup(𝑍, 𝑉, 𝑅)⟩ = ⟨inf(π‘Š, 𝑉, 𝑅), sup(π‘Š, 𝑉, 𝑅)⟩ β†’ 𝑍 = π‘Š))
180179ex 414 . . . . . . . . 9 ((((𝑅 Or 𝑉 ∧ (π‘Ž ∈ 𝑉 ∧ 𝑏 ∈ 𝑉)) ∧ (π‘Š = {π‘Ž, 𝑏} ∧ π‘Ž β‰  𝑏)) ∧ (𝑐 ∈ 𝑉 ∧ 𝑑 ∈ 𝑉)) β†’ ((𝑍 = {𝑐, 𝑑} ∧ 𝑐 β‰  𝑑) β†’ (⟨inf(𝑍, 𝑉, 𝑅), sup(𝑍, 𝑉, 𝑅)⟩ = ⟨inf(π‘Š, 𝑉, 𝑅), sup(π‘Š, 𝑉, 𝑅)⟩ β†’ 𝑍 = π‘Š)))
181180rexlimdvva 3212 . . . . . . . 8 (((𝑅 Or 𝑉 ∧ (π‘Ž ∈ 𝑉 ∧ 𝑏 ∈ 𝑉)) ∧ (π‘Š = {π‘Ž, 𝑏} ∧ π‘Ž β‰  𝑏)) β†’ (βˆƒπ‘ ∈ 𝑉 βˆƒπ‘‘ ∈ 𝑉 (𝑍 = {𝑐, 𝑑} ∧ 𝑐 β‰  𝑑) β†’ (⟨inf(𝑍, 𝑉, 𝑅), sup(𝑍, 𝑉, 𝑅)⟩ = ⟨inf(π‘Š, 𝑉, 𝑅), sup(π‘Š, 𝑉, 𝑅)⟩ β†’ 𝑍 = π‘Š)))
182181ex 414 . . . . . . 7 ((𝑅 Or 𝑉 ∧ (π‘Ž ∈ 𝑉 ∧ 𝑏 ∈ 𝑉)) β†’ ((π‘Š = {π‘Ž, 𝑏} ∧ π‘Ž β‰  𝑏) β†’ (βˆƒπ‘ ∈ 𝑉 βˆƒπ‘‘ ∈ 𝑉 (𝑍 = {𝑐, 𝑑} ∧ 𝑐 β‰  𝑑) β†’ (⟨inf(𝑍, 𝑉, 𝑅), sup(𝑍, 𝑉, 𝑅)⟩ = ⟨inf(π‘Š, 𝑉, 𝑅), sup(π‘Š, 𝑉, 𝑅)⟩ β†’ 𝑍 = π‘Š))))
183182rexlimdvva 3212 . . . . . 6 (𝑅 Or 𝑉 β†’ (βˆƒπ‘Ž ∈ 𝑉 βˆƒπ‘ ∈ 𝑉 (π‘Š = {π‘Ž, 𝑏} ∧ π‘Ž β‰  𝑏) β†’ (βˆƒπ‘ ∈ 𝑉 βˆƒπ‘‘ ∈ 𝑉 (𝑍 = {𝑐, 𝑑} ∧ 𝑐 β‰  𝑑) β†’ (⟨inf(𝑍, 𝑉, 𝑅), sup(𝑍, 𝑉, 𝑅)⟩ = ⟨inf(π‘Š, 𝑉, 𝑅), sup(π‘Š, 𝑉, 𝑅)⟩ β†’ 𝑍 = π‘Š))))
184183com13 88 . . . . 5 (βˆƒπ‘ ∈ 𝑉 βˆƒπ‘‘ ∈ 𝑉 (𝑍 = {𝑐, 𝑑} ∧ 𝑐 β‰  𝑑) β†’ (βˆƒπ‘Ž ∈ 𝑉 βˆƒπ‘ ∈ 𝑉 (π‘Š = {π‘Ž, 𝑏} ∧ π‘Ž β‰  𝑏) β†’ (𝑅 Or 𝑉 β†’ (⟨inf(𝑍, 𝑉, 𝑅), sup(𝑍, 𝑉, 𝑅)⟩ = ⟨inf(π‘Š, 𝑉, 𝑅), sup(π‘Š, 𝑉, 𝑅)⟩ β†’ 𝑍 = π‘Š))))
18519, 184biimtrid 241 . . . 4 (βˆƒπ‘ ∈ 𝑉 βˆƒπ‘‘ ∈ 𝑉 (𝑍 = {𝑐, 𝑑} ∧ 𝑐 β‰  𝑑) β†’ (π‘Š ∈ 𝑃 β†’ (𝑅 Or 𝑉 β†’ (⟨inf(𝑍, 𝑉, 𝑅), sup(𝑍, 𝑉, 𝑅)⟩ = ⟨inf(π‘Š, 𝑉, 𝑅), sup(π‘Š, 𝑉, 𝑅)⟩ β†’ 𝑍 = π‘Š))))
18618, 185sylbi 216 . . 3 (𝑍 ∈ 𝑃 β†’ (π‘Š ∈ 𝑃 β†’ (𝑅 Or 𝑉 β†’ (⟨inf(𝑍, 𝑉, 𝑅), sup(𝑍, 𝑉, 𝑅)⟩ = ⟨inf(π‘Š, 𝑉, 𝑅), sup(π‘Š, 𝑉, 𝑅)⟩ β†’ 𝑍 = π‘Š))))
1871863imp31 1113 . 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 397   ∨ wo 846   ∨ w3o 1087   ∧ w3a 1088   = wceq 1542   ∈ wcel 2107   β‰  wne 2941  βˆƒwrex 3071  {crab 3433  Vcvv 3475   ∩ cin 3947  ifcif 4528  π’« cpw 4602  {cpr 4630  βŸ¨cop 4634   class class class wbr 5148   ↦ cmpt 5231   Or wor 5587   Γ— cxp 5674  β€˜cfv 6541  supcsup 9432  infcinf 9433  2c2 12264  β™―chash 14287
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1798  ax-4 1812  ax-5 1914  ax-6 1972  ax-7 2012  ax-8 2109  ax-9 2117  ax-10 2138  ax-11 2155  ax-12 2172  ax-ext 2704  ax-sep 5299  ax-nul 5306  ax-pow 5363  ax-pr 5427  ax-un 7722  ax-cnex 11163  ax-resscn 11164  ax-1cn 11165  ax-icn 11166  ax-addcl 11167  ax-addrcl 11168  ax-mulcl 11169  ax-mulrcl 11170  ax-mulcom 11171  ax-addass 11172  ax-mulass 11173  ax-distr 11174  ax-i2m1 11175  ax-1ne0 11176  ax-1rid 11177  ax-rnegex 11178  ax-rrecex 11179  ax-cnre 11180  ax-pre-lttri 11181  ax-pre-lttrn 11182  ax-pre-ltadd 11183  ax-pre-mulgt0 11184
This theorem depends on definitions:  df-bi 206  df-an 398  df-or 847  df-3or 1089  df-3an 1090  df-tru 1545  df-fal 1555  df-ex 1783  df-nf 1787  df-sb 2069  df-mo 2535  df-eu 2564  df-clab 2711  df-cleq 2725  df-clel 2811  df-nfc 2886  df-ne 2942  df-nel 3048  df-ral 3063  df-rex 3072  df-rmo 3377  df-reu 3378  df-rab 3434  df-v 3477  df-sbc 3778  df-csb 3894  df-dif 3951  df-un 3953  df-in 3955  df-ss 3965  df-pss 3967  df-nul 4323  df-if 4529  df-pw 4604  df-sn 4629  df-pr 4631  df-op 4635  df-uni 4909  df-int 4951  df-iun 4999  df-br 5149  df-opab 5211  df-mpt 5232  df-tr 5266  df-id 5574  df-eprel 5580  df-po 5588  df-so 5589  df-fr 5631  df-we 5633  df-xp 5682  df-rel 5683  df-cnv 5684  df-co 5685  df-dm 5686  df-rn 5687  df-res 5688  df-ima 5689  df-pred 6298  df-ord 6365  df-on 6366  df-lim 6367  df-suc 6368  df-iota 6493  df-fun 6543  df-fn 6544  df-f 6545  df-f1 6546  df-fo 6547  df-f1o 6548  df-fv 6549  df-riota 7362  df-ov 7409  df-oprab 7410  df-mpo 7411  df-om 7853  df-1st 7972  df-2nd 7973  df-frecs 8263  df-wrecs 8294  df-recs 8368  df-rdg 8407  df-1o 8463  df-2o 8464  df-oadd 8467  df-er 8700  df-en 8937  df-dom 8938  df-sdom 8939  df-fin 8940  df-sup 9434  df-inf 9435  df-dju 9893  df-card 9931  df-pnf 11247  df-mnf 11248  df-xr 11249  df-ltxr 11250  df-le 11251  df-sub 11443  df-neg 11444  df-nn 12210  df-2 12272  df-n0 12470  df-z 12556  df-uz 12820  df-fz 13482  df-hash 14288
This theorem is referenced by:  prproropf1o  46162
  Copyright terms: Public domain W3C validator