prproropf1olem3 - Mathbox for Alexander van der Vekens

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

Theorem prproropf1olem3 48274

Description: Lemma 3 for prproropf1o 48276. (Contributed by AV, 13-Mar-2023.)

**Hypotheses**
Ref	Expression
prproropf1o.o	⊢ 𝑂 = (𝑅 ∩ (𝑉 × 𝑉))
prproropf1o.p	⊢ 𝑃 = {𝑝 ∈ 𝒫 𝑉 ∣ (♯‘𝑝) = 2}
prproropf1o.f	⊢ 𝐹 = (𝑝 ∈ 𝑃 ↦ ⟨inf(𝑝, 𝑉, 𝑅), sup(𝑝, 𝑉, 𝑅)⟩)

**Assertion**
Ref	Expression
prproropf1olem3	⊢ ((𝑅 Or 𝑉 ∧ 𝑊 ∈ 𝑂) → (𝐹‘{(1^st ‘𝑊), (2^nd ‘𝑊)}) = ⟨(1^st ‘𝑊), (2^nd ‘𝑊)⟩)

Distinct variable groups: 𝑉,𝑝 𝑊,𝑝 𝑂,𝑝 𝑃,𝑝 𝑅,𝑝 Allowed substitution hint: 𝐹(𝑝)

**Proof of Theorem prproropf1olem3**
Step	Hyp	Ref	Expression
1		prproropf1o.f	. 2 ⊢ 𝐹 = (𝑝 ∈ 𝑃 ↦ ⟨inf(𝑝, 𝑉, 𝑅), sup(𝑝, 𝑉, 𝑅)⟩)
2		infeq1 9433	. . . 4 ⊢ (𝑝 = {(1^st ‘𝑊), (2^nd ‘𝑊)} → inf(𝑝, 𝑉, 𝑅) = inf({(1^st ‘𝑊), (2^nd ‘𝑊)}, 𝑉, 𝑅))
3		supeq1 9401	. . . 4 ⊢ (𝑝 = {(1^st ‘𝑊), (2^nd ‘𝑊)} → sup(𝑝, 𝑉, 𝑅) = sup({(1^st ‘𝑊), (2^nd ‘𝑊)}, 𝑉, 𝑅))
4	2, 3	opeq12d 4846	. . 3 ⊢ (𝑝 = {(1^st ‘𝑊), (2^nd ‘𝑊)} → ⟨inf(𝑝, 𝑉, 𝑅), sup(𝑝, 𝑉, 𝑅)⟩ = ⟨inf({(1^st ‘𝑊), (2^nd ‘𝑊)}, 𝑉, 𝑅), sup({(1^st ‘𝑊), (2^nd ‘𝑊)}, 𝑉, 𝑅)⟩)
5		prproropf1o.o	. . . . 5 ⊢ 𝑂 = (𝑅 ∩ (𝑉 × 𝑉))
6	5	prproropf1olem0 48271	. . . 4 ⊢ (𝑊 ∈ 𝑂 ↔ (𝑊 = ⟨(1^st ‘𝑊), (2^nd ‘𝑊)⟩ ∧ ((1^st ‘𝑊) ∈ 𝑉 ∧ (2^nd ‘𝑊) ∈ 𝑉) ∧ (1^st ‘𝑊)𝑅(2^nd ‘𝑊)))
7		simpl 487	. . . . . . . 8 ⊢ ((𝑅 Or 𝑉 ∧ (((1^st ‘𝑊) ∈ 𝑉 ∧ (2^nd ‘𝑊) ∈ 𝑉) ∧ (1^st ‘𝑊)𝑅(2^nd ‘𝑊))) → 𝑅 Or 𝑉)
8		simprll 790	. . . . . . . 8 ⊢ ((𝑅 Or 𝑉 ∧ (((1^st ‘𝑊) ∈ 𝑉 ∧ (2^nd ‘𝑊) ∈ 𝑉) ∧ (1^st ‘𝑊)𝑅(2^nd ‘𝑊))) → (1^st ‘𝑊) ∈ 𝑉)
9		simprlr 791	. . . . . . . 8 ⊢ ((𝑅 Or 𝑉 ∧ (((1^st ‘𝑊) ∈ 𝑉 ∧ (2^nd ‘𝑊) ∈ 𝑉) ∧ (1^st ‘𝑊)𝑅(2^nd ‘𝑊))) → (2^nd ‘𝑊) ∈ 𝑉)
10		infpr 9461	. . . . . . . 8 ⊢ ((𝑅 Or 𝑉 ∧ (1^st ‘𝑊) ∈ 𝑉 ∧ (2^nd ‘𝑊) ∈ 𝑉) → inf({(1^st ‘𝑊), (2^nd ‘𝑊)}, 𝑉, 𝑅) = if((1^st ‘𝑊)𝑅(2^nd ‘𝑊), (1^st ‘𝑊), (2^nd ‘𝑊)))
11	7, 8, 9, 10	syl3anc 1398	. . . . . . 7 ⊢ ((𝑅 Or 𝑉 ∧ (((1^st ‘𝑊) ∈ 𝑉 ∧ (2^nd ‘𝑊) ∈ 𝑉) ∧ (1^st ‘𝑊)𝑅(2^nd ‘𝑊))) → inf({(1^st ‘𝑊), (2^nd ‘𝑊)}, 𝑉, 𝑅) = if((1^st ‘𝑊)𝑅(2^nd ‘𝑊), (1^st ‘𝑊), (2^nd ‘𝑊)))
12		iftrue 4493	. . . . . . . 8 ⊢ ((1^st ‘𝑊)𝑅(2^nd ‘𝑊) → if((1^st ‘𝑊)𝑅(2^nd ‘𝑊), (1^st ‘𝑊), (2^nd ‘𝑊)) = (1^st ‘𝑊))
13	12	ad2antll 741	. . . . . . 7 ⊢ ((𝑅 Or 𝑉 ∧ (((1^st ‘𝑊) ∈ 𝑉 ∧ (2^nd ‘𝑊) ∈ 𝑉) ∧ (1^st ‘𝑊)𝑅(2^nd ‘𝑊))) → if((1^st ‘𝑊)𝑅(2^nd ‘𝑊), (1^st ‘𝑊), (2^nd ‘𝑊)) = (1^st ‘𝑊))
14	11, 13	eqtrd 2798	. . . . . 6 ⊢ ((𝑅 Or 𝑉 ∧ (((1^st ‘𝑊) ∈ 𝑉 ∧ (2^nd ‘𝑊) ∈ 𝑉) ∧ (1^st ‘𝑊)𝑅(2^nd ‘𝑊))) → inf({(1^st ‘𝑊), (2^nd ‘𝑊)}, 𝑉, 𝑅) = (1^st ‘𝑊))
15		suppr 9428	. . . . . . . 8 ⊢ ((𝑅 Or 𝑉 ∧ (1^st ‘𝑊) ∈ 𝑉 ∧ (2^nd ‘𝑊) ∈ 𝑉) → sup({(1^st ‘𝑊), (2^nd ‘𝑊)}, 𝑉, 𝑅) = if((2^nd ‘𝑊)𝑅(1^st ‘𝑊), (1^st ‘𝑊), (2^nd ‘𝑊)))
16	7, 8, 9, 15	syl3anc 1398	. . . . . . 7 ⊢ ((𝑅 Or 𝑉 ∧ (((1^st ‘𝑊) ∈ 𝑉 ∧ (2^nd ‘𝑊) ∈ 𝑉) ∧ (1^st ‘𝑊)𝑅(2^nd ‘𝑊))) → sup({(1^st ‘𝑊), (2^nd ‘𝑊)}, 𝑉, 𝑅) = if((2^nd ‘𝑊)𝑅(1^st ‘𝑊), (1^st ‘𝑊), (2^nd ‘𝑊)))
17		soasym 5602	. . . . . . . . 9 ⊢ ((𝑅 Or 𝑉 ∧ ((1^st ‘𝑊) ∈ 𝑉 ∧ (2^nd ‘𝑊) ∈ 𝑉)) → ((1^st ‘𝑊)𝑅(2^nd ‘𝑊) → ¬ (2^nd ‘𝑊)𝑅(1^st ‘𝑊)))
18	17	impr 459	. . . . . . . 8 ⊢ ((𝑅 Or 𝑉 ∧ (((1^st ‘𝑊) ∈ 𝑉 ∧ (2^nd ‘𝑊) ∈ 𝑉) ∧ (1^st ‘𝑊)𝑅(2^nd ‘𝑊))) → ¬ (2^nd ‘𝑊)𝑅(1^st ‘𝑊))
19	18	iffalsed 4498	. . . . . . 7 ⊢ ((𝑅 Or 𝑉 ∧ (((1^st ‘𝑊) ∈ 𝑉 ∧ (2^nd ‘𝑊) ∈ 𝑉) ∧ (1^st ‘𝑊)𝑅(2^nd ‘𝑊))) → if((2^nd ‘𝑊)𝑅(1^st ‘𝑊), (1^st ‘𝑊), (2^nd ‘𝑊)) = (2^nd ‘𝑊))
20	16, 19	eqtrd 2798	. . . . . 6 ⊢ ((𝑅 Or 𝑉 ∧ (((1^st ‘𝑊) ∈ 𝑉 ∧ (2^nd ‘𝑊) ∈ 𝑉) ∧ (1^st ‘𝑊)𝑅(2^nd ‘𝑊))) → sup({(1^st ‘𝑊), (2^nd ‘𝑊)}, 𝑉, 𝑅) = (2^nd ‘𝑊))
21	14, 20	opeq12d 4846	. . . . 5 ⊢ ((𝑅 Or 𝑉 ∧ (((1^st ‘𝑊) ∈ 𝑉 ∧ (2^nd ‘𝑊) ∈ 𝑉) ∧ (1^st ‘𝑊)𝑅(2^nd ‘𝑊))) → ⟨inf({(1^st ‘𝑊), (2^nd ‘𝑊)}, 𝑉, 𝑅), sup({(1^st ‘𝑊), (2^nd ‘𝑊)}, 𝑉, 𝑅)⟩ = ⟨(1^st ‘𝑊), (2^nd ‘𝑊)⟩)
22	21	3adantr1 1188	. . . 4 ⊢ ((𝑅 Or 𝑉 ∧ (𝑊 = ⟨(1^st ‘𝑊), (2^nd ‘𝑊)⟩ ∧ ((1^st ‘𝑊) ∈ 𝑉 ∧ (2^nd ‘𝑊) ∈ 𝑉) ∧ (1^st ‘𝑊)𝑅(2^nd ‘𝑊))) → ⟨inf({(1^st ‘𝑊), (2^nd ‘𝑊)}, 𝑉, 𝑅), sup({(1^st ‘𝑊), (2^nd ‘𝑊)}, 𝑉, 𝑅)⟩ = ⟨(1^st ‘𝑊), (2^nd ‘𝑊)⟩)
23	6, 22	sylan2b 605	. . 3 ⊢ ((𝑅 Or 𝑉 ∧ 𝑊 ∈ 𝑂) → ⟨inf({(1^st ‘𝑊), (2^nd ‘𝑊)}, 𝑉, 𝑅), sup({(1^st ‘𝑊), (2^nd ‘𝑊)}, 𝑉, 𝑅)⟩ = ⟨(1^st ‘𝑊), (2^nd ‘𝑊)⟩)
24	4, 23	sylan9eqr 2820	. 2 ⊢ (((𝑅 Or 𝑉 ∧ 𝑊 ∈ 𝑂) ∧ 𝑝 = {(1^st ‘𝑊), (2^nd ‘𝑊)}) → ⟨inf(𝑝, 𝑉, 𝑅), sup(𝑝, 𝑉, 𝑅)⟩ = ⟨(1^st ‘𝑊), (2^nd ‘𝑊)⟩)
25		prproropf1o.p	. . 3 ⊢ 𝑃 = {𝑝 ∈ 𝒫 𝑉 ∣ (♯‘𝑝) = 2}
26	5, 25	prproropf1olem1 48272	. 2 ⊢ ((𝑅 Or 𝑉 ∧ 𝑊 ∈ 𝑂) → {(1^st ‘𝑊), (2^nd ‘𝑊)} ∈ 𝑃)
27		opex 5445	. . 3 ⊢ ⟨(1^st ‘𝑊), (2^nd ‘𝑊)⟩ ∈ V
28	27	a1i 11	. 2 ⊢ ((𝑅 Or 𝑉 ∧ 𝑊 ∈ 𝑂) → ⟨(1^st ‘𝑊), (2^nd ‘𝑊)⟩ ∈ V)
29	1, 24, 26, 28	fvmptd2 6998	1 ⊢ ((𝑅 Or 𝑉 ∧ 𝑊 ∈ 𝑂) → (𝐹‘{(1^st ‘𝑊), (2^nd ‘𝑊)}) = ⟨(1^st ‘𝑊), (2^nd ‘𝑊)⟩)

Colors of variables: wff setvar class

Syntax hints: ¬ wn 3 → wi 4 ∧ wa 400 ∧ w3a 1103 = wceq 1570 ∈ wcel 2143 {crab 3416 Vcvv 3455 ∩ cin 3904 ifcif 4487 𝒫 cpw 4562 {cpr 4591 ⟨cop 4595 class class class wbr 5109 ↦ cmpt 5192 Or wor 5568 × cxp 5659 ‘cfv 6536 1^st c1st 7980 2^nd c2nd 7981 supcsup 9396 infcinf 9397 2c2 12290 ♯chash 14362

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 5257 ax-nul 5269 ax-pow 5336 ax-pr 5404 ax-un 7732 ax-cnex 11151 ax-resscn 11152 ax-1cn 11153 ax-icn 11154 ax-addcl 11155 ax-addrcl 11156 ax-mulcl 11157 ax-mulrcl 11158 ax-mulcom 11159 ax-addass 11160 ax-mulass 11161 ax-distr 11162 ax-i2m1 11163 ax-1ne0 11164 ax-1rid 11165 ax-rnegex 11166 ax-rrecex 11167 ax-cnre 11168 ax-pre-lttri 11169 ax-pre-lttrn 11170 ax-pre-ltadd 11171 ax-pre-mulgt0 11172

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-nel 3065 df-ral 3080 df-rex 3090 df-rmo 3369 df-reu 3370 df-rab 3417 df-v 3457 df-sbc 3745 df-csb 3854 df-dif 3908 df-un 3910 df-in 3912 df-ss 3922 df-pss 3925 df-nul 4287 df-if 4488 df-pw 4564 df-sn 4590 df-pr 4592 df-op 4596 df-uni 4873 df-int 4913 df-iun 4958 df-br 5110 df-opab 5174 df-mpt 5193 df-tr 5219 df-id 5556 df-eprel 5561 df-po 5569 df-so 5570 df-fr 5614 df-we 5616 df-xp 5667 df-rel 5668 df-cnv 5669 df-co 5670 df-dm 5671 df-rn 5672 df-res 5673 df-ima 5674 df-pred 6302 df-ord 6363 df-on 6364 df-lim 6365 df-suc 6366 df-iota 6492 df-fun 6538 df-fn 6539 df-f 6540 df-f1 6541 df-fo 6542 df-f1o 6543 df-fv 6544 df-riota 7367 df-ov 7413 df-oprab 7414 df-mpo 7415 df-om 7859 df-1st 7982 df-2nd 7983 df-frecs 8274 df-wrecs 8305 df-recs 8354 df-rdg 8393 df-1o 8449 df-oadd 8453 df-er 8690 df-en 8940 df-dom 8941 df-sdom 8942 df-fin 8943 df-sup 9398 df-inf 9399 df-dju 9883 df-card 9921 df-pnf 11240 df-mnf 11241 df-xr 11242 df-ltxr 11243 df-le 11244 df-sub 11438 df-neg 11439 df-nn 12229 df-2 12298 df-n0 12500 df-z 12587 df-uz 12858 df-fz 13531 df-hash 14363

This theorem is referenced by: prproropf1o 48276

W3C validator