addcomprg - Intuitionistic Logic Explorer

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

Theorem addcomprg 7935

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 7832	. . . . . . . . 9 ⊢ (𝐵 ∈ P → ⟨(1^st ‘𝐵), (2^nd ‘𝐵)⟩ ∈ P)
2		elprnql 7838	. . . . . . . . 9 ⊢ ((⟨(1^st ‘𝐵), (2^nd ‘𝐵)⟩ ∈ P ∧ 𝑦 ∈ (1^st ‘𝐵)) → 𝑦 ∈ Q)
3	1, 2	sylan 283	. . . . . . . 8 ⊢ ((𝐵 ∈ P ∧ 𝑦 ∈ (1^st ‘𝐵)) → 𝑦 ∈ Q)
4		prop 7832	. . . . . . . . . . . . 13 ⊢ (𝐴 ∈ P → ⟨(1^st ‘𝐴), (2^nd ‘𝐴)⟩ ∈ P)
5		elprnql 7838	. . . . . . . . . . . . 13 ⊢ ((⟨(1^st ‘𝐴), (2^nd ‘𝐴)⟩ ∈ P ∧ 𝑧 ∈ (1^st ‘𝐴)) → 𝑧 ∈ Q)
6	4, 5	sylan 283	. . . . . . . . . . . 12 ⊢ ((𝐴 ∈ P ∧ 𝑧 ∈ (1^st ‘𝐴)) → 𝑧 ∈ Q)
7		addcomnqg 7738	. . . . . . . . . . . . 13 ⊢ ((𝑦 ∈ Q ∧ 𝑧 ∈ Q) → (𝑦 +_Q 𝑧) = (𝑧 +_Q 𝑦))
8	7	eqeq2d 2250	. . . . . . . . . . . 12 ⊢ ((𝑦 ∈ Q ∧ 𝑧 ∈ Q) → (𝑥 = (𝑦 +_Q 𝑧) ↔ 𝑥 = (𝑧 +_Q 𝑦)))
9	6, 8	sylan2 286	. . . . . . . . . . 11 ⊢ ((𝑦 ∈ Q ∧ (𝐴 ∈ P ∧ 𝑧 ∈ (1^st ‘𝐴))) → (𝑥 = (𝑦 +_Q 𝑧) ↔ 𝑥 = (𝑧 +_Q 𝑦)))
10	9	anassrs 404	. . . . . . . . . 10 ⊢ (((𝑦 ∈ Q ∧ 𝐴 ∈ P) ∧ 𝑧 ∈ (1^st ‘𝐴)) → (𝑥 = (𝑦 +_Q 𝑧) ↔ 𝑥 = (𝑧 +_Q 𝑦)))
11	10	rexbidva 2547	. . . . . . . . 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 404	. . . . . 6 ⊢ (((𝐴 ∈ P ∧ 𝐵 ∈ P) ∧ 𝑦 ∈ (1^st ‘𝐵)) → (∃𝑧 ∈ (1^st ‘𝐴)𝑥 = (𝑦 +_Q 𝑧) ↔ ∃𝑧 ∈ (1^st ‘𝐴)𝑥 = (𝑧 +_Q 𝑦)))
15	14	rexbidva 2547	. . . . 5 ⊢ ((𝐴 ∈ P ∧ 𝐵 ∈ P) → (∃𝑦 ∈ (1^st ‘𝐵)∃𝑧 ∈ (1^st ‘𝐴)𝑥 = (𝑦 +_Q 𝑧) ↔ ∃𝑦 ∈ (1^st ‘𝐵)∃𝑧 ∈ (1^st ‘𝐴)𝑥 = (𝑧 +_Q 𝑦)))
16		rexcom 2715	. . . . 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 2810	. . 3 ⊢ ((𝐴 ∈ P ∧ 𝐵 ∈ P) → {𝑥 ∈ Q ∣ ∃𝑦 ∈ (1^st ‘𝐵)∃𝑧 ∈ (1^st ‘𝐴)𝑥 = (𝑦 +_Q 𝑧)} = {𝑥 ∈ Q ∣ ∃𝑧 ∈ (1^st ‘𝐴)∃𝑦 ∈ (1^st ‘𝐵)𝑥 = (𝑧 +_Q 𝑦)})
19		elprnqu 7839	. . . . . . . . 9 ⊢ ((⟨(1^st ‘𝐵), (2^nd ‘𝐵)⟩ ∈ P ∧ 𝑦 ∈ (2^nd ‘𝐵)) → 𝑦 ∈ Q)
20	1, 19	sylan 283	. . . . . . . 8 ⊢ ((𝐵 ∈ P ∧ 𝑦 ∈ (2^nd ‘𝐵)) → 𝑦 ∈ Q)
21		elprnqu 7839	. . . . . . . . . . . . 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 404	. . . . . . . . . 10 ⊢ (((𝑦 ∈ Q ∧ 𝐴 ∈ P) ∧ 𝑧 ∈ (2^nd ‘𝐴)) → (𝑥 = (𝑦 +_Q 𝑧) ↔ 𝑥 = (𝑧 +_Q 𝑦)))
25	24	rexbidva 2547	. . . . . . . . 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 404	. . . . . 6 ⊢ (((𝐴 ∈ P ∧ 𝐵 ∈ P) ∧ 𝑦 ∈ (2^nd ‘𝐵)) → (∃𝑧 ∈ (2^nd ‘𝐴)𝑥 = (𝑦 +_Q 𝑧) ↔ ∃𝑧 ∈ (2^nd ‘𝐴)𝑥 = (𝑧 +_Q 𝑦)))
29	28	rexbidva 2547	. . . . 5 ⊢ ((𝐴 ∈ P ∧ 𝐵 ∈ P) → (∃𝑦 ∈ (2^nd ‘𝐵)∃𝑧 ∈ (2^nd ‘𝐴)𝑥 = (𝑦 +_Q 𝑧) ↔ ∃𝑦 ∈ (2^nd ‘𝐵)∃𝑧 ∈ (2^nd ‘𝐴)𝑥 = (𝑧 +_Q 𝑦)))
30		rexcom 2715	. . . . 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 2810	. . 3 ⊢ ((𝐴 ∈ P ∧ 𝐵 ∈ P) → {𝑥 ∈ Q ∣ ∃𝑦 ∈ (2^nd ‘𝐵)∃𝑧 ∈ (2^nd ‘𝐴)𝑥 = (𝑦 +_Q 𝑧)} = {𝑥 ∈ Q ∣ ∃𝑧 ∈ (2^nd ‘𝐴)∃𝑦 ∈ (2^nd ‘𝐵)𝑥 = (𝑧 +_Q 𝑦)})
33	18, 32	opeq12d 3907	. 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 7895	. . 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 7895	. 2 ⊢ ((𝐴 ∈ P ∧ 𝐵 ∈ P) → (𝐴 +_P 𝐵) = ⟨{𝑥 ∈ Q ∣ ∃𝑧 ∈ (1^st ‘𝐴)∃𝑦 ∈ (1^st ‘𝐵)𝑥 = (𝑧 +_Q 𝑦)}, {𝑥 ∈ Q ∣ ∃𝑧 ∈ (2^nd ‘𝐴)∃𝑦 ∈ (2^nd ‘𝐵)𝑥 = (𝑧 +_Q 𝑦)}⟩)
37	33, 35, 36	3eqtr4rd 2282	1 ⊢ ((𝐴 ∈ P ∧ 𝐵 ∈ P) → (𝐴 +_P 𝐵) = (𝐵 +_P 𝐴))

Colors of variables: wff set class

Syntax hints: → wi 4 ∧ wa 104 ↔ wb 105 = wceq 1402 ∈ wcel 2209 ∃wrex 2529 {crab 2532 ⟨cop 3708 ‘cfv 5372 (class class class)co 6075 1^st c1st 6362 2^nd c2nd 6363 Qcnq 7637 +_Q cplq 7639 Pcnp 7648 +_P cpp 7650

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 623 ax-in2 624 ax-io 721 ax-5 1500 ax-7 1501 ax-gen 1502 ax-ie1 1546 ax-ie2 1547 ax-8 1557 ax-10 1558 ax-11 1559 ax-i12 1560 ax-bndl 1562 ax-4 1563 ax-17 1579 ax-i9 1583 ax-ial 1587 ax-i5r 1588 ax-14 2212 ax-ext 2220 ax-coll 4241 ax-sep 4244 ax-nul 4254 ax-pow 4306 ax-pr 4341 ax-un 4573 ax-setind 4679 ax-iinf 4730

This theorem depends on definitions: df-bi 117 df-dc 847 df-3or 1010 df-3an 1011 df-tru 1405 df-fal 1408 df-nf 1514 df-sb 1816 df-eu 2089 df-mo 2090 df-clab 2225 df-cleq 2231 df-clel 2234 df-nfc 2381 df-ne 2421 df-ral 2533 df-rex 2534 df-reu 2535 df-rab 2537 df-v 2823 df-sbc 3052 df-csb 3148 df-dif 3222 df-un 3224 df-in 3226 df-ss 3233 df-nul 3521 df-pw 3687 df-sn 3711 df-pr 3712 df-op 3714 df-uni 3931 df-int 3966 df-iun 4009 df-br 4126 df-opab 4188 df-mpt 4189 df-tr 4225 df-id 4433 df-iord 4506 df-on 4508 df-suc 4511 df-iom 4733 df-xp 4775 df-rel 4776 df-cnv 4777 df-co 4778 df-dm 4779 df-rn 4780 df-res 4781 df-ima 4782 df-iota 5332 df-fun 5374 df-fn 5375 df-f 5376 df-f1 5377 df-fo 5378 df-f1o 5379 df-fv 5380 df-ov 6078 df-oprab 6079 df-mpo 6080 df-1st 6364 df-2nd 6365 df-recs 6566 df-irdg 6631 df-oadd 6681 df-omul 6682 df-er 6797 df-ec 6799 df-qs 6803 df-ni 7661 df-pli 7662 df-mi 7663 df-plpq 7701 df-enq 7704 df-nqqs 7705 df-plqqs 7706 df-inp 7823 df-iplp 7825

This theorem is referenced by: prplnqu 7977 addextpr 7978 caucvgprlemcanl 8001 caucvgprprlemnkltj 8046 caucvgprprlemnbj 8050 caucvgprprlemmu 8052 caucvgprprlemloc 8060 caucvgprprlemexbt 8063 caucvgprprlemexb 8064 caucvgprprlemaddq 8065 enrer 8092 addcmpblnr 8096 mulcmpblnrlemg 8097 ltsrprg 8104 addcomsrg 8112 mulcomsrg 8114 mulasssrg 8115 distrsrg 8116 lttrsr 8119 ltposr 8120 ltsosr 8121 0lt1sr 8122 0idsr 8124 1idsr 8125 ltasrg 8127 recexgt0sr 8130 mulgt0sr 8135 aptisr 8136 mulextsr1lem 8137 archsr 8139 srpospr 8140 prsrpos 8142 prsradd 8143 prsrlt 8144 ltpsrprg 8160 map2psrprg 8162 pitonnlem1p1 8203 pitoregt0 8206 recidpirqlemcalc 8214

W3C validator