mulclpr - Intuitionistic Logic Explorer

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

Theorem mulclpr 7634

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 7531	. . . 4 ⊢ ·_P = (𝑤 ∈ P, 𝑣 ∈ P ↦ ⟨{𝑥 ∈ Q ∣ ∃𝑦 ∈ Q ∃𝑧 ∈ Q (𝑦 ∈ (1^st ‘𝑤) ∧ 𝑧 ∈ (1^st ‘𝑣) ∧ 𝑥 = (𝑦 ·_Q 𝑧))}, {𝑥 ∈ Q ∣ ∃𝑦 ∈ Q ∃𝑧 ∈ Q (𝑦 ∈ (2^nd ‘𝑤) ∧ 𝑧 ∈ (2^nd ‘𝑣) ∧ 𝑥 = (𝑦 ·_Q 𝑧))}⟩)
2	1	genpelxp 7573	. . 3 ⊢ ((𝐴 ∈ P ∧ 𝐵 ∈ P) → (𝐴 ·_P 𝐵) ∈ (𝒫 Q × 𝒫 Q))
3		mulclnq 7438	. . . 4 ⊢ ((𝑦 ∈ Q ∧ 𝑧 ∈ Q) → (𝑦 ·_Q 𝑧) ∈ Q)
4	1, 3	genpml 7579	. . 3 ⊢ ((𝐴 ∈ P ∧ 𝐵 ∈ P) → ∃𝑞 ∈ Q 𝑞 ∈ (1^st ‘(𝐴 ·_P 𝐵)))
5	1, 3	genpmu 7580	. . 3 ⊢ ((𝐴 ∈ P ∧ 𝐵 ∈ P) → ∃𝑟 ∈ Q 𝑟 ∈ (2^nd ‘(𝐴 ·_P 𝐵)))
6	2, 4, 5	jca32 310	. 2 ⊢ ((𝐴 ∈ P ∧ 𝐵 ∈ P) → ((𝐴 ·_P 𝐵) ∈ (𝒫 Q × 𝒫 Q) ∧ (∃𝑞 ∈ Q 𝑞 ∈ (1^st ‘(𝐴 ·_P 𝐵)) ∧ ∃𝑟 ∈ Q 𝑟 ∈ (2^nd ‘(𝐴 ·_P 𝐵)))))
7		ltmnqg 7463	. . . . 5 ⊢ ((𝑥 ∈ Q ∧ 𝑦 ∈ Q ∧ 𝑧 ∈ Q) → (𝑥 <_Q 𝑦 ↔ (𝑧 ·_Q 𝑥) <_Q (𝑧 ·_Q 𝑦)))
8		mulcomnqg 7445	. . . . 5 ⊢ ((𝑥 ∈ Q ∧ 𝑦 ∈ Q) → (𝑥 ·_Q 𝑦) = (𝑦 ·_Q 𝑥))
9		mulnqprl 7630	. . . . 5 ⊢ ((((𝐴 ∈ P ∧ 𝑢 ∈ (1^st ‘𝐴)) ∧ (𝐵 ∈ P ∧ 𝑡 ∈ (1^st ‘𝐵))) ∧ 𝑥 ∈ Q) → (𝑥 <_Q (𝑢 ·_Q 𝑡) → 𝑥 ∈ (1^st ‘(𝐴 ·_P 𝐵))))
10	1, 3, 7, 8, 9	genprndl 7583	. . . 4 ⊢ ((𝐴 ∈ P ∧ 𝐵 ∈ P) → ∀𝑞 ∈ Q (𝑞 ∈ (1^st ‘(𝐴 ·_P 𝐵)) ↔ ∃𝑟 ∈ Q (𝑞 <_Q 𝑟 ∧ 𝑟 ∈ (1^st ‘(𝐴 ·_P 𝐵)))))
11		mulnqpru 7631	. . . . 5 ⊢ ((((𝐴 ∈ P ∧ 𝑢 ∈ (2^nd ‘𝐴)) ∧ (𝐵 ∈ P ∧ 𝑡 ∈ (2^nd ‘𝐵))) ∧ 𝑥 ∈ Q) → ((𝑢 ·_Q 𝑡) <_Q 𝑥 → 𝑥 ∈ (2^nd ‘(𝐴 ·_P 𝐵))))
12	1, 3, 7, 8, 11	genprndu 7584	. . . 4 ⊢ ((𝐴 ∈ P ∧ 𝐵 ∈ P) → ∀𝑟 ∈ Q (𝑟 ∈ (2^nd ‘(𝐴 ·_P 𝐵)) ↔ ∃𝑞 ∈ Q (𝑞 <_Q 𝑟 ∧ 𝑞 ∈ (2^nd ‘(𝐴 ·_P 𝐵)))))
13	10, 12	jca 306	. . 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 7585	. . 3 ⊢ ((𝐴 ∈ P ∧ 𝐵 ∈ P) → ∀𝑞 ∈ Q ¬ (𝑞 ∈ (1^st ‘(𝐴 ·_P 𝐵)) ∧ 𝑞 ∈ (2^nd ‘(𝐴 ·_P 𝐵))))
15		mullocpr 7633	. . 3 ⊢ ((𝐴 ∈ P ∧ 𝐵 ∈ P) → ∀𝑞 ∈ Q ∀𝑟 ∈ Q (𝑞 <_Q 𝑟 → (𝑞 ∈ (1^st ‘(𝐴 ·_P 𝐵)) ∨ 𝑟 ∈ (2^nd ‘(𝐴 ·_P 𝐵)))))
16	13, 14, 15	3jca 1179	. 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 7538	. 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 417	1 ⊢ ((𝐴 ∈ P ∧ 𝐵 ∈ P) → (𝐴 ·_P 𝐵) ∈ P)

Colors of variables: wff set class

Syntax hints: ¬ wn 3 → wi 4 ∧ wa 104 ↔ wb 105 ∨ wo 709 ∧ w3a 980 ∈ wcel 2164 ∀wral 2472 ∃wrex 2473 𝒫 cpw 3602 class class class wbr 4030 × cxp 4658 ‘cfv 5255 (class class class)co 5919 1^st c1st 6193 2^nd c2nd 6194 Qcnq 7342 ·_Q cmq 7345 <_Q cltq 7347 Pcnp 7353 ·_P cmp 7356

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-ia1 106 ax-ia2 107 ax-ia3 108 ax-in1 615 ax-in2 616 ax-io 710 ax-5 1458 ax-7 1459 ax-gen 1460 ax-ie1 1504 ax-ie2 1505 ax-8 1515 ax-10 1516 ax-11 1517 ax-i12 1518 ax-bndl 1520 ax-4 1521 ax-17 1537 ax-i9 1541 ax-ial 1545 ax-i5r 1546 ax-13 2166 ax-14 2167 ax-ext 2175 ax-coll 4145 ax-sep 4148 ax-nul 4156 ax-pow 4204 ax-pr 4239 ax-un 4465 ax-setind 4570 ax-iinf 4621

This theorem depends on definitions: df-bi 117 df-dc 836 df-3or 981 df-3an 982 df-tru 1367 df-fal 1370 df-nf 1472 df-sb 1774 df-eu 2045 df-mo 2046 df-clab 2180 df-cleq 2186 df-clel 2189 df-nfc 2325 df-ne 2365 df-ral 2477 df-rex 2478 df-reu 2479 df-rab 2481 df-v 2762 df-sbc 2987 df-csb 3082 df-dif 3156 df-un 3158 df-in 3160 df-ss 3167 df-nul 3448 df-pw 3604 df-sn 3625 df-pr 3626 df-op 3628 df-uni 3837 df-int 3872 df-iun 3915 df-br 4031 df-opab 4092 df-mpt 4093 df-tr 4129 df-eprel 4321 df-id 4325 df-po 4328 df-iso 4329 df-iord 4398 df-on 4400 df-suc 4403 df-iom 4624 df-xp 4666 df-rel 4667 df-cnv 4668 df-co 4669 df-dm 4670 df-rn 4671 df-res 4672 df-ima 4673 df-iota 5216 df-fun 5257 df-fn 5258 df-f 5259 df-f1 5260 df-fo 5261 df-f1o 5262 df-fv 5263 df-ov 5922 df-oprab 5923 df-mpo 5924 df-1st 6195 df-2nd 6196 df-recs 6360 df-irdg 6425 df-1o 6471 df-2o 6472 df-oadd 6475 df-omul 6476 df-er 6589 df-ec 6591 df-qs 6595 df-ni 7366 df-pli 7367 df-mi 7368 df-lti 7369 df-plpq 7406 df-mpq 7407 df-enq 7409 df-nqqs 7410 df-plqqs 7411 df-mqqs 7412 df-1nqqs 7413 df-rq 7414 df-ltnqqs 7415 df-enq0 7486 df-nq0 7487 df-0nq0 7488 df-plq0 7489 df-mq0 7490 df-inp 7528 df-imp 7531

This theorem is referenced by: mulnqprlemfl 7637 mulnqprlemfu 7638 mulnqpr 7639 mulassprg 7643 distrlem1prl 7644 distrlem1pru 7645 distrlem4prl 7646 distrlem4pru 7647 distrlem5prl 7648 distrlem5pru 7649 distrprg 7650 1idpr 7654 recexprlemex 7699 ltmprr 7704 mulcmpblnrlemg 7802 mulcmpblnr 7803 mulclsr 7816 mulcomsrg 7819 mulasssrg 7820 distrsrg 7821 m1m1sr 7823 1idsr 7830 00sr 7831 recexgt0sr 7835 mulgt0sr 7840 mulextsr1lem 7842 mulextsr1 7843 recidpirq 7920

W3C validator