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 48143

Description: Lemma 3 for prproropf1o 48145. (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 9437	. . . 4 ⊢ (𝑝 = {(1^st ‘𝑊), (2^nd ‘𝑊)} → inf(𝑝, 𝑉, 𝑅) = inf({(1^st ‘𝑊), (2^nd ‘𝑊)}, 𝑉, 𝑅))
3		supeq1 9405	. . . 4 ⊢ (𝑝 = {(1^st ‘𝑊), (2^nd ‘𝑊)} → sup(𝑝, 𝑉, 𝑅) = sup({(1^st ‘𝑊), (2^nd ‘𝑊)}, 𝑉, 𝑅))
4	2, 3	opeq12d 4850	. . 3 ⊢ (𝑝 = {(1^st ‘𝑊), (2^nd ‘𝑊)} → ⟨inf(𝑝, 𝑉, 𝑅), sup(𝑝, 𝑉, 𝑅)⟩ = ⟨inf({(1^st ‘𝑊), (2^nd ‘𝑊)}, 𝑉, 𝑅), sup({(1^st ‘𝑊), (2^nd ‘𝑊)}, 𝑉, 𝑅)⟩)
5		prproropf1o.o	. . . . 5 ⊢ 𝑂 = (𝑅 ∩ (𝑉 × 𝑉))
6	5	prproropf1olem0 48140	. . . 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 9465	. . . . . . . 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 1396	. . . . . . 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 4498	. . . . . . . 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 2804	. . . . . 6 ⊢ ((𝑅 Or 𝑉 ∧ (((1^st ‘𝑊) ∈ 𝑉 ∧ (2^nd ‘𝑊) ∈ 𝑉) ∧ (1^st ‘𝑊)𝑅(2^nd ‘𝑊))) → inf({(1^st ‘𝑊), (2^nd ‘𝑊)}, 𝑉, 𝑅) = (1^st ‘𝑊))
15		suppr 9432	. . . . . . . 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 1396	. . . . . . 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 5603	. . . . . . . . 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 4503	. . . . . . 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 2804	. . . . . 6 ⊢ ((𝑅 Or 𝑉 ∧ (((1^st ‘𝑊) ∈ 𝑉 ∧ (2^nd ‘𝑊) ∈ 𝑉) ∧ (1^st ‘𝑊)𝑅(2^nd ‘𝑊))) → sup({(1^st ‘𝑊), (2^nd ‘𝑊)}, 𝑉, 𝑅) = (2^nd ‘𝑊))
21	14, 20	opeq12d 4850	. . . . 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 1186	. . . 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 2826	. 2 ⊢ (((𝑅 Or 𝑉 ∧ 𝑊 ∈ 𝑂) ∧ 𝑝 = {(1^st ‘𝑊), (2^nd ‘𝑊)}) → ⟨inf(𝑝, 𝑉, 𝑅), sup(𝑝, 𝑉, 𝑅)⟩ = ⟨(1^st ‘𝑊), (2^nd ‘𝑊)⟩)
25		prproropf1o.p	. . 3 ⊢ 𝑃 = {𝑝 ∈ 𝒫 𝑉 ∣ (♯‘𝑝) = 2}
26	5, 25	prproropf1olem1 48141	. 2 ⊢ ((𝑅 Or 𝑉 ∧ 𝑊 ∈ 𝑂) → {(1^st ‘𝑊), (2^nd ‘𝑊)} ∈ 𝑃)
27		opex 5446	. . 3 ⊢ ⟨(1^st ‘𝑊), (2^nd ‘𝑊)⟩ ∈ V
28	27	a1i 11	. 2 ⊢ ((𝑅 Or 𝑉 ∧ 𝑊 ∈ 𝑂) → ⟨(1^st ‘𝑊), (2^nd ‘𝑊)⟩ ∈ V)
29	1, 24, 26, 28	fvmptd2 6999	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 1101 = wceq 1567 ∈ wcel 2149 {crab 3423 Vcvv 3463 ∩ cin 3912 ifcif 4492 𝒫 cpw 4567 {cpr 4596 ⟨cop 4600 class class class wbr 5113 ↦ cmpt 5196 Or wor 5569 × cxp 5660 ‘cfv 6537 1^st c1st 7984 2^nd c2nd 7985 supcsup 9400 infcinf 9401 2c2 12295 ♯chash 14366

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1822 ax-4 1836 ax-5 1937 ax-6 1994 ax-7 2035 ax-8 2151 ax-9 2159 ax-10 2182 ax-11 2198 ax-12 2219 ax-ext 2741 ax-sep 5261 ax-nul 5271 ax-pow 5337 ax-pr 5405 ax-un 7733 ax-cnex 11156 ax-resscn 11157 ax-1cn 11158 ax-icn 11159 ax-addcl 11160 ax-addrcl 11161 ax-mulcl 11162 ax-mulrcl 11163 ax-mulcom 11164 ax-addass 11165 ax-mulass 11166 ax-distr 11167 ax-i2m1 11168 ax-1ne0 11169 ax-1rid 11170 ax-rnegex 11171 ax-rrecex 11172 ax-cnre 11173 ax-pre-lttri 11174 ax-pre-lttrn 11175 ax-pre-ltadd 11176 ax-pre-mulgt0 11177

This theorem depends on definitions: df-bi 210 df-an 401 df-or 861 df-3or 1102 df-3an 1103 df-tru 1570 df-fal 1580 df-ex 1807 df-nf 1811 df-sb 2098 df-mo 2573 df-eu 2603 df-clab 2748 df-cleq 2761 df-clel 2844 df-nfc 2918 df-ne 2965 df-nel 3071 df-ral 3086 df-rex 3096 df-rmo 3376 df-reu 3377 df-rab 3424 df-v 3465 df-sbc 3754 df-csb 3862 df-dif 3916 df-un 3918 df-in 3920 df-ss 3930 df-pss 3933 df-nul 4295 df-if 4493 df-pw 4569 df-sn 4595 df-pr 4597 df-op 4601 df-uni 4877 df-int 4917 df-iun 4962 df-br 5114 df-opab 5178 df-mpt 5197 df-tr 5223 df-id 5557 df-eprel 5562 df-po 5570 df-so 5571 df-fr 5615 df-we 5617 df-xp 5668 df-rel 5669 df-cnv 5670 df-co 5671 df-dm 5672 df-rn 5673 df-res 5674 df-ima 5675 df-pred 6303 df-ord 6364 df-on 6365 df-lim 6366 df-suc 6367 df-iota 6493 df-fun 6539 df-fn 6540 df-f 6541 df-f1 6542 df-fo 6543 df-f1o 6544 df-fv 6545 df-riota 7368 df-ov 7414 df-oprab 7415 df-mpo 7416 df-om 7863 df-1st 7986 df-2nd 7987 df-frecs 8278 df-wrecs 8309 df-recs 8358 df-rdg 8397 df-1o 8453 df-oadd 8457 df-er 8694 df-en 8944 df-dom 8945 df-sdom 8946 df-fin 8947 df-sup 9402 df-inf 9403 df-dju 9887 df-card 9925 df-pnf 11245 df-mnf 11246 df-xr 11247 df-ltxr 11248 df-le 11249 df-sub 11443 df-neg 11444 df-nn 12234 df-2 12303 df-n0 12505 df-z 12592 df-uz 12863 df-fz 13536 df-hash 14367

This theorem is referenced by: prproropf1o 48145

W3C validator