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 47965

Description: Lemma 3 for prproropf1o 47967. (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 9390	. . . 4 ⊢ (𝑝 = {(1^st ‘𝑊), (2^nd ‘𝑊)} → inf(𝑝, 𝑉, 𝑅) = inf({(1^st ‘𝑊), (2^nd ‘𝑊)}, 𝑉, 𝑅))
3		supeq1 9358	. . . 4 ⊢ (𝑝 = {(1^st ‘𝑊), (2^nd ‘𝑊)} → sup(𝑝, 𝑉, 𝑅) = sup({(1^st ‘𝑊), (2^nd ‘𝑊)}, 𝑉, 𝑅))
4	2, 3	opeq12d 4824	. . 3 ⊢ (𝑝 = {(1^st ‘𝑊), (2^nd ‘𝑊)} → ⟨inf(𝑝, 𝑉, 𝑅), sup(𝑝, 𝑉, 𝑅)⟩ = ⟨inf({(1^st ‘𝑊), (2^nd ‘𝑊)}, 𝑉, 𝑅), sup({(1^st ‘𝑊), (2^nd ‘𝑊)}, 𝑉, 𝑅)⟩)
5		prproropf1o.o	. . . . 5 ⊢ 𝑂 = (𝑅 ∩ (𝑉 × 𝑉))
6	5	prproropf1olem0 47962	. . . 4 ⊢ (𝑊 ∈ 𝑂 ↔ (𝑊 = ⟨(1^st ‘𝑊), (2^nd ‘𝑊)⟩ ∧ ((1^st ‘𝑊) ∈ 𝑉 ∧ (2^nd ‘𝑊) ∈ 𝑉) ∧ (1^st ‘𝑊)𝑅(2^nd ‘𝑊)))
7		simpl 482	. . . . . . . 8 ⊢ ((𝑅 Or 𝑉 ∧ (((1^st ‘𝑊) ∈ 𝑉 ∧ (2^nd ‘𝑊) ∈ 𝑉) ∧ (1^st ‘𝑊)𝑅(2^nd ‘𝑊))) → 𝑅 Or 𝑉)
8		simprll 779	. . . . . . . 8 ⊢ ((𝑅 Or 𝑉 ∧ (((1^st ‘𝑊) ∈ 𝑉 ∧ (2^nd ‘𝑊) ∈ 𝑉) ∧ (1^st ‘𝑊)𝑅(2^nd ‘𝑊))) → (1^st ‘𝑊) ∈ 𝑉)
9		simprlr 780	. . . . . . . 8 ⊢ ((𝑅 Or 𝑉 ∧ (((1^st ‘𝑊) ∈ 𝑉 ∧ (2^nd ‘𝑊) ∈ 𝑉) ∧ (1^st ‘𝑊)𝑅(2^nd ‘𝑊))) → (2^nd ‘𝑊) ∈ 𝑉)
10		infpr 9418	. . . . . . . 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 1374	. . . . . . 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 4472	. . . . . . . 8 ⊢ ((1^st ‘𝑊)𝑅(2^nd ‘𝑊) → if((1^st ‘𝑊)𝑅(2^nd ‘𝑊), (1^st ‘𝑊), (2^nd ‘𝑊)) = (1^st ‘𝑊))
13	12	ad2antll 730	. . . . . . 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 2771	. . . . . 6 ⊢ ((𝑅 Or 𝑉 ∧ (((1^st ‘𝑊) ∈ 𝑉 ∧ (2^nd ‘𝑊) ∈ 𝑉) ∧ (1^st ‘𝑊)𝑅(2^nd ‘𝑊))) → inf({(1^st ‘𝑊), (2^nd ‘𝑊)}, 𝑉, 𝑅) = (1^st ‘𝑊))
15		suppr 9385	. . . . . . . 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 1374	. . . . . . 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 5572	. . . . . . . . 9 ⊢ ((𝑅 Or 𝑉 ∧ ((1^st ‘𝑊) ∈ 𝑉 ∧ (2^nd ‘𝑊) ∈ 𝑉)) → ((1^st ‘𝑊)𝑅(2^nd ‘𝑊) → ¬ (2^nd ‘𝑊)𝑅(1^st ‘𝑊)))
18	17	impr 454	. . . . . . . 8 ⊢ ((𝑅 Or 𝑉 ∧ (((1^st ‘𝑊) ∈ 𝑉 ∧ (2^nd ‘𝑊) ∈ 𝑉) ∧ (1^st ‘𝑊)𝑅(2^nd ‘𝑊))) → ¬ (2^nd ‘𝑊)𝑅(1^st ‘𝑊))
19	18	iffalsed 4477	. . . . . . 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 2771	. . . . . 6 ⊢ ((𝑅 Or 𝑉 ∧ (((1^st ‘𝑊) ∈ 𝑉 ∧ (2^nd ‘𝑊) ∈ 𝑉) ∧ (1^st ‘𝑊)𝑅(2^nd ‘𝑊))) → sup({(1^st ‘𝑊), (2^nd ‘𝑊)}, 𝑉, 𝑅) = (2^nd ‘𝑊))
21	14, 20	opeq12d 4824	. . . . 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 1171	. . . 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 595	. . 3 ⊢ ((𝑅 Or 𝑉 ∧ 𝑊 ∈ 𝑂) → ⟨inf({(1^st ‘𝑊), (2^nd ‘𝑊)}, 𝑉, 𝑅), sup({(1^st ‘𝑊), (2^nd ‘𝑊)}, 𝑉, 𝑅)⟩ = ⟨(1^st ‘𝑊), (2^nd ‘𝑊)⟩)
24	4, 23	sylan9eqr 2793	. 2 ⊢ (((𝑅 Or 𝑉 ∧ 𝑊 ∈ 𝑂) ∧ 𝑝 = {(1^st ‘𝑊), (2^nd ‘𝑊)}) → ⟨inf(𝑝, 𝑉, 𝑅), sup(𝑝, 𝑉, 𝑅)⟩ = ⟨(1^st ‘𝑊), (2^nd ‘𝑊)⟩)
25		prproropf1o.p	. . 3 ⊢ 𝑃 = {𝑝 ∈ 𝒫 𝑉 ∣ (♯‘𝑝) = 2}
26	5, 25	prproropf1olem1 47963	. 2 ⊢ ((𝑅 Or 𝑉 ∧ 𝑊 ∈ 𝑂) → {(1^st ‘𝑊), (2^nd ‘𝑊)} ∈ 𝑃)
27		opex 5416	. . 3 ⊢ ⟨(1^st ‘𝑊), (2^nd ‘𝑊)⟩ ∈ V
28	27	a1i 11	. 2 ⊢ ((𝑅 Or 𝑉 ∧ 𝑊 ∈ 𝑂) → ⟨(1^st ‘𝑊), (2^nd ‘𝑊)⟩ ∈ V)
29	1, 24, 26, 28	fvmptd2 6956	1 ⊢ ((𝑅 Or 𝑉 ∧ 𝑊 ∈ 𝑂) → (𝐹‘{(1^st ‘𝑊), (2^nd ‘𝑊)}) = ⟨(1^st ‘𝑊), (2^nd ‘𝑊)⟩)

Colors of variables: wff setvar class

Syntax hints: ¬ wn 3 → wi 4 ∧ wa 395 ∧ w3a 1087 = wceq 1542 ∈ wcel 2114 {crab 3389 Vcvv 3429 ∩ cin 3888 ifcif 4466 𝒫 cpw 4541 {cpr 4569 ⟨cop 4573 class class class wbr 5085 ↦ cmpt 5166 Or wor 5538 × cxp 5629 ‘cfv 6498 1^st c1st 7940 2^nd c2nd 7941 supcsup 9353 infcinf 9354 2c2 12236 ♯chash 14292

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1797 ax-4 1811 ax-5 1912 ax-6 1969 ax-7 2010 ax-8 2116 ax-9 2124 ax-10 2147 ax-11 2163 ax-12 2185 ax-ext 2708 ax-sep 5231 ax-nul 5241 ax-pow 5307 ax-pr 5375 ax-un 7689 ax-cnex 11094 ax-resscn 11095 ax-1cn 11096 ax-icn 11097 ax-addcl 11098 ax-addrcl 11099 ax-mulcl 11100 ax-mulrcl 11101 ax-mulcom 11102 ax-addass 11103 ax-mulass 11104 ax-distr 11105 ax-i2m1 11106 ax-1ne0 11107 ax-1rid 11108 ax-rnegex 11109 ax-rrecex 11110 ax-cnre 11111 ax-pre-lttri 11112 ax-pre-lttrn 11113 ax-pre-ltadd 11114 ax-pre-mulgt0 11115

This theorem depends on definitions: df-bi 207 df-an 396 df-or 849 df-3or 1088 df-3an 1089 df-tru 1545 df-fal 1555 df-ex 1782 df-nf 1786 df-sb 2069 df-mo 2539 df-eu 2569 df-clab 2715 df-cleq 2728 df-clel 2811 df-nfc 2885 df-ne 2933 df-nel 3037 df-ral 3052 df-rex 3062 df-rmo 3342 df-reu 3343 df-rab 3390 df-v 3431 df-sbc 3729 df-csb 3838 df-dif 3892 df-un 3894 df-in 3896 df-ss 3906 df-pss 3909 df-nul 4274 df-if 4467 df-pw 4543 df-sn 4568 df-pr 4570 df-op 4574 df-uni 4851 df-int 4890 df-iun 4935 df-br 5086 df-opab 5148 df-mpt 5167 df-tr 5193 df-id 5526 df-eprel 5531 df-po 5539 df-so 5540 df-fr 5584 df-we 5586 df-xp 5637 df-rel 5638 df-cnv 5639 df-co 5640 df-dm 5641 df-rn 5642 df-res 5643 df-ima 5644 df-pred 6265 df-ord 6326 df-on 6327 df-lim 6328 df-suc 6329 df-iota 6454 df-fun 6500 df-fn 6501 df-f 6502 df-f1 6503 df-fo 6504 df-f1o 6505 df-fv 6506 df-riota 7324 df-ov 7370 df-oprab 7371 df-mpo 7372 df-om 7818 df-1st 7942 df-2nd 7943 df-frecs 8231 df-wrecs 8262 df-recs 8311 df-rdg 8349 df-1o 8405 df-oadd 8409 df-er 8643 df-en 8894 df-dom 8895 df-sdom 8896 df-fin 8897 df-sup 9355 df-inf 9356 df-dju 9825 df-card 9863 df-pnf 11181 df-mnf 11182 df-xr 11183 df-ltxr 11184 df-le 11185 df-sub 11379 df-neg 11380 df-nn 12175 df-2 12244 df-n0 12438 df-z 12525 df-uz 12789 df-fz 13462 df-hash 14293

This theorem is referenced by: prproropf1o 47967

W3C validator