addcomprg - Intuitionistic Logic Explorer

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

Theorem addcomprg 7664

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 7561	. . . . . . . . 9 ⊢ (𝐵 ∈ P → ⟨(1^st ‘𝐵), (2^nd ‘𝐵)⟩ ∈ P)
2		elprnql 7567	. . . . . . . . 9 ⊢ ((⟨(1^st ‘𝐵), (2^nd ‘𝐵)⟩ ∈ P ∧ 𝑦 ∈ (1^st ‘𝐵)) → 𝑦 ∈ Q)
3	1, 2	sylan 283	. . . . . . . 8 ⊢ ((𝐵 ∈ P ∧ 𝑦 ∈ (1^st ‘𝐵)) → 𝑦 ∈ Q)
4		prop 7561	. . . . . . . . . . . . 13 ⊢ (𝐴 ∈ P → ⟨(1^st ‘𝐴), (2^nd ‘𝐴)⟩ ∈ P)
5		elprnql 7567	. . . . . . . . . . . . 13 ⊢ ((⟨(1^st ‘𝐴), (2^nd ‘𝐴)⟩ ∈ P ∧ 𝑧 ∈ (1^st ‘𝐴)) → 𝑧 ∈ Q)
6	4, 5	sylan 283	. . . . . . . . . . . 12 ⊢ ((𝐴 ∈ P ∧ 𝑧 ∈ (1^st ‘𝐴)) → 𝑧 ∈ Q)
7		addcomnqg 7467	. . . . . . . . . . . . 13 ⊢ ((𝑦 ∈ Q ∧ 𝑧 ∈ Q) → (𝑦 +_Q 𝑧) = (𝑧 +_Q 𝑦))
8	7	eqeq2d 2208	. . . . . . . . . . . 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 2494	. . . . . . . . 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 2494	. . . . 5 ⊢ ((𝐴 ∈ P ∧ 𝐵 ∈ P) → (∃𝑦 ∈ (1^st ‘𝐵)∃𝑧 ∈ (1^st ‘𝐴)𝑥 = (𝑦 +_Q 𝑧) ↔ ∃𝑦 ∈ (1^st ‘𝐵)∃𝑧 ∈ (1^st ‘𝐴)𝑥 = (𝑧 +_Q 𝑦)))
16		rexcom 2661	. . . . 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 2752	. . 3 ⊢ ((𝐴 ∈ P ∧ 𝐵 ∈ P) → {𝑥 ∈ Q ∣ ∃𝑦 ∈ (1^st ‘𝐵)∃𝑧 ∈ (1^st ‘𝐴)𝑥 = (𝑦 +_Q 𝑧)} = {𝑥 ∈ Q ∣ ∃𝑧 ∈ (1^st ‘𝐴)∃𝑦 ∈ (1^st ‘𝐵)𝑥 = (𝑧 +_Q 𝑦)})
19		elprnqu 7568	. . . . . . . . 9 ⊢ ((⟨(1^st ‘𝐵), (2^nd ‘𝐵)⟩ ∈ P ∧ 𝑦 ∈ (2^nd ‘𝐵)) → 𝑦 ∈ Q)
20	1, 19	sylan 283	. . . . . . . 8 ⊢ ((𝐵 ∈ P ∧ 𝑦 ∈ (2^nd ‘𝐵)) → 𝑦 ∈ Q)
21		elprnqu 7568	. . . . . . . . . . . . 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 2494	. . . . . . . . 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 2494	. . . . 5 ⊢ ((𝐴 ∈ P ∧ 𝐵 ∈ P) → (∃𝑦 ∈ (2^nd ‘𝐵)∃𝑧 ∈ (2^nd ‘𝐴)𝑥 = (𝑦 +_Q 𝑧) ↔ ∃𝑦 ∈ (2^nd ‘𝐵)∃𝑧 ∈ (2^nd ‘𝐴)𝑥 = (𝑧 +_Q 𝑦)))
30		rexcom 2661	. . . . 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 2752	. . 3 ⊢ ((𝐴 ∈ P ∧ 𝐵 ∈ P) → {𝑥 ∈ Q ∣ ∃𝑦 ∈ (2^nd ‘𝐵)∃𝑧 ∈ (2^nd ‘𝐴)𝑥 = (𝑦 +_Q 𝑧)} = {𝑥 ∈ Q ∣ ∃𝑧 ∈ (2^nd ‘𝐴)∃𝑦 ∈ (2^nd ‘𝐵)𝑥 = (𝑧 +_Q 𝑦)})
33	18, 32	opeq12d 3817	. 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 7624	. . 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 7624	. 2 ⊢ ((𝐴 ∈ P ∧ 𝐵 ∈ P) → (𝐴 +_P 𝐵) = ⟨{𝑥 ∈ Q ∣ ∃𝑧 ∈ (1^st ‘𝐴)∃𝑦 ∈ (1^st ‘𝐵)𝑥 = (𝑧 +_Q 𝑦)}, {𝑥 ∈ Q ∣ ∃𝑧 ∈ (2^nd ‘𝐴)∃𝑦 ∈ (2^nd ‘𝐵)𝑥 = (𝑧 +_Q 𝑦)}⟩)
37	33, 35, 36	3eqtr4rd 2240	1 ⊢ ((𝐴 ∈ P ∧ 𝐵 ∈ P) → (𝐴 +_P 𝐵) = (𝐵 +_P 𝐴))

Colors of variables: wff set class

Syntax hints: → wi 4 ∧ wa 104 ↔ wb 105 = wceq 1364 ∈ wcel 2167 ∃wrex 2476 {crab 2479 ⟨cop 3626 ‘cfv 5259 (class class class)co 5925 1^st c1st 6205 2^nd c2nd 6206 Qcnq 7366 +_Q cplq 7368 Pcnp 7377 +_P cpp 7379

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 1461 ax-7 1462 ax-gen 1463 ax-ie1 1507 ax-ie2 1508 ax-8 1518 ax-10 1519 ax-11 1520 ax-i12 1521 ax-bndl 1523 ax-4 1524 ax-17 1540 ax-i9 1544 ax-ial 1548 ax-i5r 1549 ax-13 2169 ax-14 2170 ax-ext 2178 ax-coll 4149 ax-sep 4152 ax-nul 4160 ax-pow 4208 ax-pr 4243 ax-un 4469 ax-setind 4574 ax-iinf 4625

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 1475 df-sb 1777 df-eu 2048 df-mo 2049 df-clab 2183 df-cleq 2189 df-clel 2192 df-nfc 2328 df-ne 2368 df-ral 2480 df-rex 2481 df-reu 2482 df-rab 2484 df-v 2765 df-sbc 2990 df-csb 3085 df-dif 3159 df-un 3161 df-in 3163 df-ss 3170 df-nul 3452 df-pw 3608 df-sn 3629 df-pr 3630 df-op 3632 df-uni 3841 df-int 3876 df-iun 3919 df-br 4035 df-opab 4096 df-mpt 4097 df-tr 4133 df-id 4329 df-iord 4402 df-on 4404 df-suc 4407 df-iom 4628 df-xp 4670 df-rel 4671 df-cnv 4672 df-co 4673 df-dm 4674 df-rn 4675 df-res 4676 df-ima 4677 df-iota 5220 df-fun 5261 df-fn 5262 df-f 5263 df-f1 5264 df-fo 5265 df-f1o 5266 df-fv 5267 df-ov 5928 df-oprab 5929 df-mpo 5930 df-1st 6207 df-2nd 6208 df-recs 6372 df-irdg 6437 df-oadd 6487 df-omul 6488 df-er 6601 df-ec 6603 df-qs 6607 df-ni 7390 df-pli 7391 df-mi 7392 df-plpq 7430 df-enq 7433 df-nqqs 7434 df-plqqs 7435 df-inp 7552 df-iplp 7554

This theorem is referenced by: prplnqu 7706 addextpr 7707 caucvgprlemcanl 7730 caucvgprprlemnkltj 7775 caucvgprprlemnbj 7779 caucvgprprlemmu 7781 caucvgprprlemloc 7789 caucvgprprlemexbt 7792 caucvgprprlemexb 7793 caucvgprprlemaddq 7794 enrer 7821 addcmpblnr 7825 mulcmpblnrlemg 7826 ltsrprg 7833 addcomsrg 7841 mulcomsrg 7843 mulasssrg 7844 distrsrg 7845 lttrsr 7848 ltposr 7849 ltsosr 7850 0lt1sr 7851 0idsr 7853 1idsr 7854 ltasrg 7856 recexgt0sr 7859 mulgt0sr 7864 aptisr 7865 mulextsr1lem 7866 archsr 7868 srpospr 7869 prsrpos 7871 prsradd 7872 prsrlt 7873 ltpsrprg 7889 map2psrprg 7891 pitonnlem1p1 7932 pitoregt0 7935 recidpirqlemcalc 7943

W3C validator