mulclpr - Intuitionistic Logic Explorer

	Intuitionistic Logic Explorer		< Previous Next > Nearby theorems
Mirrors > Home > ILE Home > Th. List > mulclpr		GIF version

Theorem mulclpr 7380

Description: Closure of multiplication on positive reals. First statement of Proposition 9-3.7 of [Gleason] p. 124. (Contributed by NM, 13-Mar-1996.)

**Assertion**
Ref	Expression
mulclpr	⊢ ((𝐴 ∈ P ∧ 𝐵 ∈ P) → (𝐴 ·_P 𝐵) ∈ P)

Proof of Theorem mulclpr Dummy variables 𝑞 𝑟 𝑡 𝑢 𝑣 𝑤 𝑥 𝑦 𝑧 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		df-imp 7277	. . . 4 ⊢ ·_P = (𝑤 ∈ P, 𝑣 ∈ P ↦ ⟨{𝑥 ∈ Q ∣ ∃𝑦 ∈ Q ∃𝑧 ∈ Q (𝑦 ∈ (1^st ‘𝑤) ∧ 𝑧 ∈ (1^st ‘𝑣) ∧ 𝑥 = (𝑦 ·_Q 𝑧))}, {𝑥 ∈ Q ∣ ∃𝑦 ∈ Q ∃𝑧 ∈ Q (𝑦 ∈ (2^nd ‘𝑤) ∧ 𝑧 ∈ (2^nd ‘𝑣) ∧ 𝑥 = (𝑦 ·_Q 𝑧))}⟩)
2	1	genpelxp 7319	. . 3 ⊢ ((𝐴 ∈ P ∧ 𝐵 ∈ P) → (𝐴 ·_P 𝐵) ∈ (𝒫 Q × 𝒫 Q))
3		mulclnq 7184	. . . 4 ⊢ ((𝑦 ∈ Q ∧ 𝑧 ∈ Q) → (𝑦 ·_Q 𝑧) ∈ Q)
4	1, 3	genpml 7325	. . 3 ⊢ ((𝐴 ∈ P ∧ 𝐵 ∈ P) → ∃𝑞 ∈ Q 𝑞 ∈ (1^st ‘(𝐴 ·_P 𝐵)))
5	1, 3	genpmu 7326	. . 3 ⊢ ((𝐴 ∈ P ∧ 𝐵 ∈ P) → ∃𝑟 ∈ Q 𝑟 ∈ (2^nd ‘(𝐴 ·_P 𝐵)))
6	2, 4, 5	jca32 308	. 2 ⊢ ((𝐴 ∈ P ∧ 𝐵 ∈ P) → ((𝐴 ·_P 𝐵) ∈ (𝒫 Q × 𝒫 Q) ∧ (∃𝑞 ∈ Q 𝑞 ∈ (1^st ‘(𝐴 ·_P 𝐵)) ∧ ∃𝑟 ∈ Q 𝑟 ∈ (2^nd ‘(𝐴 ·_P 𝐵)))))
7		ltmnqg 7209	. . . . 5 ⊢ ((𝑥 ∈ Q ∧ 𝑦 ∈ Q ∧ 𝑧 ∈ Q) → (𝑥 <_Q 𝑦 ↔ (𝑧 ·_Q 𝑥) <_Q (𝑧 ·_Q 𝑦)))
8		mulcomnqg 7191	. . . . 5 ⊢ ((𝑥 ∈ Q ∧ 𝑦 ∈ Q) → (𝑥 ·_Q 𝑦) = (𝑦 ·_Q 𝑥))
9		mulnqprl 7376	. . . . 5 ⊢ ((((𝐴 ∈ P ∧ 𝑢 ∈ (1^st ‘𝐴)) ∧ (𝐵 ∈ P ∧ 𝑡 ∈ (1^st ‘𝐵))) ∧ 𝑥 ∈ Q) → (𝑥 <_Q (𝑢 ·_Q 𝑡) → 𝑥 ∈ (1^st ‘(𝐴 ·_P 𝐵))))
10	1, 3, 7, 8, 9	genprndl 7329	. . . 4 ⊢ ((𝐴 ∈ P ∧ 𝐵 ∈ P) → ∀𝑞 ∈ Q (𝑞 ∈ (1^st ‘(𝐴 ·_P 𝐵)) ↔ ∃𝑟 ∈ Q (𝑞 <_Q 𝑟 ∧ 𝑟 ∈ (1^st ‘(𝐴 ·_P 𝐵)))))
11		mulnqpru 7377	. . . . 5 ⊢ ((((𝐴 ∈ P ∧ 𝑢 ∈ (2^nd ‘𝐴)) ∧ (𝐵 ∈ P ∧ 𝑡 ∈ (2^nd ‘𝐵))) ∧ 𝑥 ∈ Q) → ((𝑢 ·_Q 𝑡) <_Q 𝑥 → 𝑥 ∈ (2^nd ‘(𝐴 ·_P 𝐵))))
12	1, 3, 7, 8, 11	genprndu 7330	. . . 4 ⊢ ((𝐴 ∈ P ∧ 𝐵 ∈ P) → ∀𝑟 ∈ Q (𝑟 ∈ (2^nd ‘(𝐴 ·_P 𝐵)) ↔ ∃𝑞 ∈ Q (𝑞 <_Q 𝑟 ∧ 𝑞 ∈ (2^nd ‘(𝐴 ·_P 𝐵)))))
13	10, 12	jca 304	. . 3 ⊢ ((𝐴 ∈ P ∧ 𝐵 ∈ P) → (∀𝑞 ∈ Q (𝑞 ∈ (1^st ‘(𝐴 ·_P 𝐵)) ↔ ∃𝑟 ∈ Q (𝑞 <_Q 𝑟 ∧ 𝑟 ∈ (1^st ‘(𝐴 ·_P 𝐵)))) ∧ ∀𝑟 ∈ Q (𝑟 ∈ (2^nd ‘(𝐴 ·_P 𝐵)) ↔ ∃𝑞 ∈ Q (𝑞 <_Q 𝑟 ∧ 𝑞 ∈ (2^nd ‘(𝐴 ·_P 𝐵))))))
14	1, 3, 7, 8	genpdisj 7331	. . 3 ⊢ ((𝐴 ∈ P ∧ 𝐵 ∈ P) → ∀𝑞 ∈ Q ¬ (𝑞 ∈ (1^st ‘(𝐴 ·_P 𝐵)) ∧ 𝑞 ∈ (2^nd ‘(𝐴 ·_P 𝐵))))
15		mullocpr 7379	. . 3 ⊢ ((𝐴 ∈ P ∧ 𝐵 ∈ P) → ∀𝑞 ∈ Q ∀𝑟 ∈ Q (𝑞 <_Q 𝑟 → (𝑞 ∈ (1^st ‘(𝐴 ·_P 𝐵)) ∨ 𝑟 ∈ (2^nd ‘(𝐴 ·_P 𝐵)))))
16	13, 14, 15	3jca 1161	. 2 ⊢ ((𝐴 ∈ P ∧ 𝐵 ∈ P) → ((∀𝑞 ∈ Q (𝑞 ∈ (1^st ‘(𝐴 ·_P 𝐵)) ↔ ∃𝑟 ∈ Q (𝑞 <_Q 𝑟 ∧ 𝑟 ∈ (1^st ‘(𝐴 ·_P 𝐵)))) ∧ ∀𝑟 ∈ Q (𝑟 ∈ (2^nd ‘(𝐴 ·_P 𝐵)) ↔ ∃𝑞 ∈ Q (𝑞 <_Q 𝑟 ∧ 𝑞 ∈ (2^nd ‘(𝐴 ·_P 𝐵))))) ∧ ∀𝑞 ∈ Q ¬ (𝑞 ∈ (1^st ‘(𝐴 ·_P 𝐵)) ∧ 𝑞 ∈ (2^nd ‘(𝐴 ·_P 𝐵))) ∧ ∀𝑞 ∈ Q ∀𝑟 ∈ Q (𝑞 <_Q 𝑟 → (𝑞 ∈ (1^st ‘(𝐴 ·_P 𝐵)) ∨ 𝑟 ∈ (2^nd ‘(𝐴 ·_P 𝐵))))))
17		elnp1st2nd 7284	. 2 ⊢ ((𝐴 ·_P 𝐵) ∈ P ↔ (((𝐴 ·_P 𝐵) ∈ (𝒫 Q × 𝒫 Q) ∧ (∃𝑞 ∈ Q 𝑞 ∈ (1^st ‘(𝐴 ·_P 𝐵)) ∧ ∃𝑟 ∈ Q 𝑟 ∈ (2^nd ‘(𝐴 ·_P 𝐵)))) ∧ ((∀𝑞 ∈ Q (𝑞 ∈ (1^st ‘(𝐴 ·_P 𝐵)) ↔ ∃𝑟 ∈ Q (𝑞 <_Q 𝑟 ∧ 𝑟 ∈ (1^st ‘(𝐴 ·_P 𝐵)))) ∧ ∀𝑟 ∈ Q (𝑟 ∈ (2^nd ‘(𝐴 ·_P 𝐵)) ↔ ∃𝑞 ∈ Q (𝑞 <_Q 𝑟 ∧ 𝑞 ∈ (2^nd ‘(𝐴 ·_P 𝐵))))) ∧ ∀𝑞 ∈ Q ¬ (𝑞 ∈ (1^st ‘(𝐴 ·_P 𝐵)) ∧ 𝑞 ∈ (2^nd ‘(𝐴 ·_P 𝐵))) ∧ ∀𝑞 ∈ Q ∀𝑟 ∈ Q (𝑞 <_Q 𝑟 → (𝑞 ∈ (1^st ‘(𝐴 ·_P 𝐵)) ∨ 𝑟 ∈ (2^nd ‘(𝐴 ·_P 𝐵)))))))
18	6, 16, 17	sylanbrc 413	1 ⊢ ((𝐴 ∈ P ∧ 𝐵 ∈ P) → (𝐴 ·_P 𝐵) ∈ P)

Colors of variables: wff set class

Syntax hints: ¬ wn 3 → wi 4 ∧ wa 103 ↔ wb 104 ∨ wo 697 ∧ w3a 962 ∈ wcel 1480 ∀wral 2416 ∃wrex 2417 𝒫 cpw 3510 class class class wbr 3929 × cxp 4537 ‘cfv 5123 (class class class)co 5774 1^st c1st 6036 2^nd c2nd 6037 Qcnq 7088 ·_Q cmq 7091 <_Q cltq 7093 Pcnp 7099 ·_P cmp 7102

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-ia1 105 ax-ia2 106 ax-ia3 107 ax-in1 603 ax-in2 604 ax-io 698 ax-5 1423 ax-7 1424 ax-gen 1425 ax-ie1 1469 ax-ie2 1470 ax-8 1482 ax-10 1483 ax-11 1484 ax-i12 1485 ax-bndl 1486 ax-4 1487 ax-13 1491 ax-14 1492 ax-17 1506 ax-i9 1510 ax-ial 1514 ax-i5r 1515 ax-ext 2121 ax-coll 4043 ax-sep 4046 ax-nul 4054 ax-pow 4098 ax-pr 4131 ax-un 4355 ax-setind 4452 ax-iinf 4502

This theorem depends on definitions: df-bi 116 df-dc 820 df-3or 963 df-3an 964 df-tru 1334 df-fal 1337 df-nf 1437 df-sb 1736 df-eu 2002 df-mo 2003 df-clab 2126 df-cleq 2132 df-clel 2135 df-nfc 2270 df-ne 2309 df-ral 2421 df-rex 2422 df-reu 2423 df-rab 2425 df-v 2688 df-sbc 2910 df-csb 3004 df-dif 3073 df-un 3075 df-in 3077 df-ss 3084 df-nul 3364 df-pw 3512 df-sn 3533 df-pr 3534 df-op 3536 df-uni 3737 df-int 3772 df-iun 3815 df-br 3930 df-opab 3990 df-mpt 3991 df-tr 4027 df-eprel 4211 df-id 4215 df-po 4218 df-iso 4219 df-iord 4288 df-on 4290 df-suc 4293 df-iom 4505 df-xp 4545 df-rel 4546 df-cnv 4547 df-co 4548 df-dm 4549 df-rn 4550 df-res 4551 df-ima 4552 df-iota 5088 df-fun 5125 df-fn 5126 df-f 5127 df-f1 5128 df-fo 5129 df-f1o 5130 df-fv 5131 df-ov 5777 df-oprab 5778 df-mpo 5779 df-1st 6038 df-2nd 6039 df-recs 6202 df-irdg 6267 df-1o 6313 df-2o 6314 df-oadd 6317 df-omul 6318 df-er 6429 df-ec 6431 df-qs 6435 df-ni 7112 df-pli 7113 df-mi 7114 df-lti 7115 df-plpq 7152 df-mpq 7153 df-enq 7155 df-nqqs 7156 df-plqqs 7157 df-mqqs 7158 df-1nqqs 7159 df-rq 7160 df-ltnqqs 7161 df-enq0 7232 df-nq0 7233 df-0nq0 7234 df-plq0 7235 df-mq0 7236 df-inp 7274 df-imp 7277

This theorem is referenced by: mulnqprlemfl 7383 mulnqprlemfu 7384 mulnqpr 7385 mulassprg 7389 distrlem1prl 7390 distrlem1pru 7391 distrlem4prl 7392 distrlem4pru 7393 distrlem5prl 7394 distrlem5pru 7395 distrprg 7396 1idpr 7400 recexprlemex 7445 ltmprr 7450 mulcmpblnrlemg 7548 mulcmpblnr 7549 mulclsr 7562 mulcomsrg 7565 mulasssrg 7566 distrsrg 7567 m1m1sr 7569 1idsr 7576 00sr 7577 recexgt0sr 7581 mulgt0sr 7586 mulextsr1lem 7588 mulextsr1 7589 recidpirq 7666

W3C validator