addcomprg - Intuitionistic Logic Explorer

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

Theorem addcomprg 7893

Description: Addition of positive reals is commutative. Proposition 9-3.5(ii) of [Gleason] p. 123. (Contributed by Jim Kingdon, 11-Dec-2019.)

**Assertion**
Ref	Expression
addcomprg	⊢ ((𝐴 ∈ P ∧ 𝐵 ∈ P) → (𝐴 +_P 𝐵) = (𝐵 +_P 𝐴))

Proof of Theorem addcomprg Dummy variables 𝑥 𝑦 𝑧 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		prop 7790	. . . . . . . . 9 ⊢ (𝐵 ∈ P → ⟨(1^st ‘𝐵), (2^nd ‘𝐵)⟩ ∈ P)
2		elprnql 7796	. . . . . . . . 9 ⊢ ((⟨(1^st ‘𝐵), (2^nd ‘𝐵)⟩ ∈ P ∧ 𝑦 ∈ (1^st ‘𝐵)) → 𝑦 ∈ Q)
3	1, 2	sylan 283	. . . . . . . 8 ⊢ ((𝐵 ∈ P ∧ 𝑦 ∈ (1^st ‘𝐵)) → 𝑦 ∈ Q)
4		prop 7790	. . . . . . . . . . . . 13 ⊢ (𝐴 ∈ P → ⟨(1^st ‘𝐴), (2^nd ‘𝐴)⟩ ∈ P)
5		elprnql 7796	. . . . . . . . . . . . 13 ⊢ ((⟨(1^st ‘𝐴), (2^nd ‘𝐴)⟩ ∈ P ∧ 𝑧 ∈ (1^st ‘𝐴)) → 𝑧 ∈ Q)
6	4, 5	sylan 283	. . . . . . . . . . . 12 ⊢ ((𝐴 ∈ P ∧ 𝑧 ∈ (1^st ‘𝐴)) → 𝑧 ∈ Q)
7		addcomnqg 7696	. . . . . . . . . . . . 13 ⊢ ((𝑦 ∈ Q ∧ 𝑧 ∈ Q) → (𝑦 +_Q 𝑧) = (𝑧 +_Q 𝑦))
8	7	eqeq2d 2244	. . . . . . . . . . . 12 ⊢ ((𝑦 ∈ Q ∧ 𝑧 ∈ Q) → (𝑥 = (𝑦 +_Q 𝑧) ↔ 𝑥 = (𝑧 +_Q 𝑦)))
9	6, 8	sylan2 286	. . . . . . . . . . 11 ⊢ ((𝑦 ∈ Q ∧ (𝐴 ∈ P ∧ 𝑧 ∈ (1^st ‘𝐴))) → (𝑥 = (𝑦 +_Q 𝑧) ↔ 𝑥 = (𝑧 +_Q 𝑦)))
10	9	anassrs 400	. . . . . . . . . 10 ⊢ (((𝑦 ∈ Q ∧ 𝐴 ∈ P) ∧ 𝑧 ∈ (1^st ‘𝐴)) → (𝑥 = (𝑦 +_Q 𝑧) ↔ 𝑥 = (𝑧 +_Q 𝑦)))
11	10	rexbidva 2539	. . . . . . . . 9 ⊢ ((𝑦 ∈ Q ∧ 𝐴 ∈ P) → (∃𝑧 ∈ (1^st ‘𝐴)𝑥 = (𝑦 +_Q 𝑧) ↔ ∃𝑧 ∈ (1^st ‘𝐴)𝑥 = (𝑧 +_Q 𝑦)))
12	11	ancoms 268	. . . . . . . 8 ⊢ ((𝐴 ∈ P ∧ 𝑦 ∈ Q) → (∃𝑧 ∈ (1^st ‘𝐴)𝑥 = (𝑦 +_Q 𝑧) ↔ ∃𝑧 ∈ (1^st ‘𝐴)𝑥 = (𝑧 +_Q 𝑦)))
13	3, 12	sylan2 286	. . . . . . 7 ⊢ ((𝐴 ∈ P ∧ (𝐵 ∈ P ∧ 𝑦 ∈ (1^st ‘𝐵))) → (∃𝑧 ∈ (1^st ‘𝐴)𝑥 = (𝑦 +_Q 𝑧) ↔ ∃𝑧 ∈ (1^st ‘𝐴)𝑥 = (𝑧 +_Q 𝑦)))
14	13	anassrs 400	. . . . . 6 ⊢ (((𝐴 ∈ P ∧ 𝐵 ∈ P) ∧ 𝑦 ∈ (1^st ‘𝐵)) → (∃𝑧 ∈ (1^st ‘𝐴)𝑥 = (𝑦 +_Q 𝑧) ↔ ∃𝑧 ∈ (1^st ‘𝐴)𝑥 = (𝑧 +_Q 𝑦)))
15	14	rexbidva 2539	. . . . 5 ⊢ ((𝐴 ∈ P ∧ 𝐵 ∈ P) → (∃𝑦 ∈ (1^st ‘𝐵)∃𝑧 ∈ (1^st ‘𝐴)𝑥 = (𝑦 +_Q 𝑧) ↔ ∃𝑦 ∈ (1^st ‘𝐵)∃𝑧 ∈ (1^st ‘𝐴)𝑥 = (𝑧 +_Q 𝑦)))
16		rexcom 2707	. . . . 5 ⊢ (∃𝑦 ∈ (1^st ‘𝐵)∃𝑧 ∈ (1^st ‘𝐴)𝑥 = (𝑧 +_Q 𝑦) ↔ ∃𝑧 ∈ (1^st ‘𝐴)∃𝑦 ∈ (1^st ‘𝐵)𝑥 = (𝑧 +_Q 𝑦))
17	15, 16	bitrdi 196	. . . 4 ⊢ ((𝐴 ∈ P ∧ 𝐵 ∈ P) → (∃𝑦 ∈ (1^st ‘𝐵)∃𝑧 ∈ (1^st ‘𝐴)𝑥 = (𝑦 +_Q 𝑧) ↔ ∃𝑧 ∈ (1^st ‘𝐴)∃𝑦 ∈ (1^st ‘𝐵)𝑥 = (𝑧 +_Q 𝑦)))
18	17	rabbidv 2802	. . 3 ⊢ ((𝐴 ∈ P ∧ 𝐵 ∈ P) → {𝑥 ∈ Q ∣ ∃𝑦 ∈ (1^st ‘𝐵)∃𝑧 ∈ (1^st ‘𝐴)𝑥 = (𝑦 +_Q 𝑧)} = {𝑥 ∈ Q ∣ ∃𝑧 ∈ (1^st ‘𝐴)∃𝑦 ∈ (1^st ‘𝐵)𝑥 = (𝑧 +_Q 𝑦)})
19		elprnqu 7797	. . . . . . . . 9 ⊢ ((⟨(1^st ‘𝐵), (2^nd ‘𝐵)⟩ ∈ P ∧ 𝑦 ∈ (2^nd ‘𝐵)) → 𝑦 ∈ Q)
20	1, 19	sylan 283	. . . . . . . 8 ⊢ ((𝐵 ∈ P ∧ 𝑦 ∈ (2^nd ‘𝐵)) → 𝑦 ∈ Q)
21		elprnqu 7797	. . . . . . . . . . . . 13 ⊢ ((⟨(1^st ‘𝐴), (2^nd ‘𝐴)⟩ ∈ P ∧ 𝑧 ∈ (2^nd ‘𝐴)) → 𝑧 ∈ Q)
22	4, 21	sylan 283	. . . . . . . . . . . 12 ⊢ ((𝐴 ∈ P ∧ 𝑧 ∈ (2^nd ‘𝐴)) → 𝑧 ∈ Q)
23	22, 8	sylan2 286	. . . . . . . . . . 11 ⊢ ((𝑦 ∈ Q ∧ (𝐴 ∈ P ∧ 𝑧 ∈ (2^nd ‘𝐴))) → (𝑥 = (𝑦 +_Q 𝑧) ↔ 𝑥 = (𝑧 +_Q 𝑦)))
24	23	anassrs 400	. . . . . . . . . 10 ⊢ (((𝑦 ∈ Q ∧ 𝐴 ∈ P) ∧ 𝑧 ∈ (2^nd ‘𝐴)) → (𝑥 = (𝑦 +_Q 𝑧) ↔ 𝑥 = (𝑧 +_Q 𝑦)))
25	24	rexbidva 2539	. . . . . . . . 9 ⊢ ((𝑦 ∈ Q ∧ 𝐴 ∈ P) → (∃𝑧 ∈ (2^nd ‘𝐴)𝑥 = (𝑦 +_Q 𝑧) ↔ ∃𝑧 ∈ (2^nd ‘𝐴)𝑥 = (𝑧 +_Q 𝑦)))
26	25	ancoms 268	. . . . . . . 8 ⊢ ((𝐴 ∈ P ∧ 𝑦 ∈ Q) → (∃𝑧 ∈ (2^nd ‘𝐴)𝑥 = (𝑦 +_Q 𝑧) ↔ ∃𝑧 ∈ (2^nd ‘𝐴)𝑥 = (𝑧 +_Q 𝑦)))
27	20, 26	sylan2 286	. . . . . . 7 ⊢ ((𝐴 ∈ P ∧ (𝐵 ∈ P ∧ 𝑦 ∈ (2^nd ‘𝐵))) → (∃𝑧 ∈ (2^nd ‘𝐴)𝑥 = (𝑦 +_Q 𝑧) ↔ ∃𝑧 ∈ (2^nd ‘𝐴)𝑥 = (𝑧 +_Q 𝑦)))
28	27	anassrs 400	. . . . . 6 ⊢ (((𝐴 ∈ P ∧ 𝐵 ∈ P) ∧ 𝑦 ∈ (2^nd ‘𝐵)) → (∃𝑧 ∈ (2^nd ‘𝐴)𝑥 = (𝑦 +_Q 𝑧) ↔ ∃𝑧 ∈ (2^nd ‘𝐴)𝑥 = (𝑧 +_Q 𝑦)))
29	28	rexbidva 2539	. . . . 5 ⊢ ((𝐴 ∈ P ∧ 𝐵 ∈ P) → (∃𝑦 ∈ (2^nd ‘𝐵)∃𝑧 ∈ (2^nd ‘𝐴)𝑥 = (𝑦 +_Q 𝑧) ↔ ∃𝑦 ∈ (2^nd ‘𝐵)∃𝑧 ∈ (2^nd ‘𝐴)𝑥 = (𝑧 +_Q 𝑦)))
30		rexcom 2707	. . . . 5 ⊢ (∃𝑦 ∈ (2^nd ‘𝐵)∃𝑧 ∈ (2^nd ‘𝐴)𝑥 = (𝑧 +_Q 𝑦) ↔ ∃𝑧 ∈ (2^nd ‘𝐴)∃𝑦 ∈ (2^nd ‘𝐵)𝑥 = (𝑧 +_Q 𝑦))
31	29, 30	bitrdi 196	. . . 4 ⊢ ((𝐴 ∈ P ∧ 𝐵 ∈ P) → (∃𝑦 ∈ (2^nd ‘𝐵)∃𝑧 ∈ (2^nd ‘𝐴)𝑥 = (𝑦 +_Q 𝑧) ↔ ∃𝑧 ∈ (2^nd ‘𝐴)∃𝑦 ∈ (2^nd ‘𝐵)𝑥 = (𝑧 +_Q 𝑦)))
32	31	rabbidv 2802	. . 3 ⊢ ((𝐴 ∈ P ∧ 𝐵 ∈ P) → {𝑥 ∈ Q ∣ ∃𝑦 ∈ (2^nd ‘𝐵)∃𝑧 ∈ (2^nd ‘𝐴)𝑥 = (𝑦 +_Q 𝑧)} = {𝑥 ∈ Q ∣ ∃𝑧 ∈ (2^nd ‘𝐴)∃𝑦 ∈ (2^nd ‘𝐵)𝑥 = (𝑧 +_Q 𝑦)})
33	18, 32	opeq12d 3891	. 2 ⊢ ((𝐴 ∈ P ∧ 𝐵 ∈ P) → ⟨{𝑥 ∈ Q ∣ ∃𝑦 ∈ (1^st ‘𝐵)∃𝑧 ∈ (1^st ‘𝐴)𝑥 = (𝑦 +_Q 𝑧)}, {𝑥 ∈ Q ∣ ∃𝑦 ∈ (2^nd ‘𝐵)∃𝑧 ∈ (2^nd ‘𝐴)𝑥 = (𝑦 +_Q 𝑧)}⟩ = ⟨{𝑥 ∈ Q ∣ ∃𝑧 ∈ (1^st ‘𝐴)∃𝑦 ∈ (1^st ‘𝐵)𝑥 = (𝑧 +_Q 𝑦)}, {𝑥 ∈ Q ∣ ∃𝑧 ∈ (2^nd ‘𝐴)∃𝑦 ∈ (2^nd ‘𝐵)𝑥 = (𝑧 +_Q 𝑦)}⟩)
34		plpvlu 7853	. . 3 ⊢ ((𝐵 ∈ P ∧ 𝐴 ∈ P) → (𝐵 +_P 𝐴) = ⟨{𝑥 ∈ Q ∣ ∃𝑦 ∈ (1^st ‘𝐵)∃𝑧 ∈ (1^st ‘𝐴)𝑥 = (𝑦 +_Q 𝑧)}, {𝑥 ∈ Q ∣ ∃𝑦 ∈ (2^nd ‘𝐵)∃𝑧 ∈ (2^nd ‘𝐴)𝑥 = (𝑦 +_Q 𝑧)}⟩)
35	34	ancoms 268	. 2 ⊢ ((𝐴 ∈ P ∧ 𝐵 ∈ P) → (𝐵 +_P 𝐴) = ⟨{𝑥 ∈ Q ∣ ∃𝑦 ∈ (1^st ‘𝐵)∃𝑧 ∈ (1^st ‘𝐴)𝑥 = (𝑦 +_Q 𝑧)}, {𝑥 ∈ Q ∣ ∃𝑦 ∈ (2^nd ‘𝐵)∃𝑧 ∈ (2^nd ‘𝐴)𝑥 = (𝑦 +_Q 𝑧)}⟩)
36		plpvlu 7853	. 2 ⊢ ((𝐴 ∈ P ∧ 𝐵 ∈ P) → (𝐴 +_P 𝐵) = ⟨{𝑥 ∈ Q ∣ ∃𝑧 ∈ (1^st ‘𝐴)∃𝑦 ∈ (1^st ‘𝐵)𝑥 = (𝑧 +_Q 𝑦)}, {𝑥 ∈ Q ∣ ∃𝑧 ∈ (2^nd ‘𝐴)∃𝑦 ∈ (2^nd ‘𝐵)𝑥 = (𝑧 +_Q 𝑦)}⟩)
37	33, 35, 36	3eqtr4rd 2276	1 ⊢ ((𝐴 ∈ P ∧ 𝐵 ∈ P) → (𝐴 +_P 𝐵) = (𝐵 +_P 𝐴))

Colors of variables: wff set class

Syntax hints: → wi 4 ∧ wa 104 ↔ wb 105 = wceq 1398 ∈ wcel 2203 ∃wrex 2521 {crab 2524 ⟨cop 3692 ‘cfv 5352 (class class class)co 6050 1^st c1st 6332 2^nd c2nd 6333 Qcnq 7595 +_Q cplq 7597 Pcnp 7606 +_P cpp 7608

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 619 ax-in2 620 ax-io 717 ax-5 1496 ax-7 1497 ax-gen 1498 ax-ie1 1542 ax-ie2 1543 ax-8 1553 ax-10 1554 ax-11 1555 ax-i12 1556 ax-bndl 1558 ax-4 1559 ax-17 1575 ax-i9 1579 ax-ial 1583 ax-i5r 1584 ax-13 2205 ax-14 2206 ax-ext 2214 ax-coll 4225 ax-sep 4228 ax-nul 4236 ax-pow 4287 ax-pr 4322 ax-un 4554 ax-setind 4659 ax-iinf 4710

This theorem depends on definitions: df-bi 117 df-dc 843 df-3or 1006 df-3an 1007 df-tru 1401 df-fal 1404 df-nf 1510 df-sb 1812 df-eu 2083 df-mo 2084 df-clab 2219 df-cleq 2225 df-clel 2228 df-nfc 2373 df-ne 2413 df-ral 2525 df-rex 2526 df-reu 2527 df-rab 2529 df-v 2815 df-sbc 3043 df-csb 3139 df-dif 3213 df-un 3215 df-in 3217 df-ss 3224 df-nul 3509 df-pw 3671 df-sn 3695 df-pr 3696 df-op 3698 df-uni 3915 df-int 3950 df-iun 3993 df-br 4110 df-opab 4172 df-mpt 4173 df-tr 4209 df-id 4414 df-iord 4487 df-on 4489 df-suc 4492 df-iom 4713 df-xp 4755 df-rel 4756 df-cnv 4757 df-co 4758 df-dm 4759 df-rn 4760 df-res 4761 df-ima 4762 df-iota 5312 df-fun 5354 df-fn 5355 df-f 5356 df-f1 5357 df-fo 5358 df-f1o 5359 df-fv 5360 df-ov 6053 df-oprab 6054 df-mpo 6055 df-1st 6334 df-2nd 6335 df-recs 6536 df-irdg 6601 df-oadd 6651 df-omul 6652 df-er 6767 df-ec 6769 df-qs 6773 df-ni 7619 df-pli 7620 df-mi 7621 df-plpq 7659 df-enq 7662 df-nqqs 7663 df-plqqs 7664 df-inp 7781 df-iplp 7783

This theorem is referenced by: prplnqu 7935 addextpr 7936 caucvgprlemcanl 7959 caucvgprprlemnkltj 8004 caucvgprprlemnbj 8008 caucvgprprlemmu 8010 caucvgprprlemloc 8018 caucvgprprlemexbt 8021 caucvgprprlemexb 8022 caucvgprprlemaddq 8023 enrer 8050 addcmpblnr 8054 mulcmpblnrlemg 8055 ltsrprg 8062 addcomsrg 8070 mulcomsrg 8072 mulasssrg 8073 distrsrg 8074 lttrsr 8077 ltposr 8078 ltsosr 8079 0lt1sr 8080 0idsr 8082 1idsr 8083 ltasrg 8085 recexgt0sr 8088 mulgt0sr 8093 aptisr 8094 mulextsr1lem 8095 archsr 8097 srpospr 8098 prsrpos 8100 prsradd 8101 prsrlt 8102 ltpsrprg 8118 map2psrprg 8120 pitonnlem1p1 8161 pitoregt0 8164 recidpirqlemcalc 8172

W3C validator