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

Theorem mulcomprg 7626
Description: Multiplication of positive reals is commutative. Proposition 9-3.7(ii) of [Gleason] p. 124. (Contributed by Jim Kingdon, 11-Dec-2019.)
Assertion
Ref Expression
mulcomprg ((𝐴P𝐵P) → (𝐴 ·P 𝐵) = (𝐵 ·P 𝐴))

Proof of Theorem mulcomprg
Dummy variables 𝑥 𝑦 𝑧 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 prop 7521 . . . . . . . . 9 (𝐵P → ⟨(1st𝐵), (2nd𝐵)⟩ ∈ P)
2 elprnql 7527 . . . . . . . . 9 ((⟨(1st𝐵), (2nd𝐵)⟩ ∈ P𝑧 ∈ (1st𝐵)) → 𝑧Q)
31, 2sylan 283 . . . . . . . 8 ((𝐵P𝑧 ∈ (1st𝐵)) → 𝑧Q)
4 prop 7521 . . . . . . . . . . . . 13 (𝐴P → ⟨(1st𝐴), (2nd𝐴)⟩ ∈ P)
5 elprnql 7527 . . . . . . . . . . . . 13 ((⟨(1st𝐴), (2nd𝐴)⟩ ∈ P𝑦 ∈ (1st𝐴)) → 𝑦Q)
64, 5sylan 283 . . . . . . . . . . . 12 ((𝐴P𝑦 ∈ (1st𝐴)) → 𝑦Q)
7 mulcomnqg 7429 . . . . . . . . . . . . 13 ((𝑧Q𝑦Q) → (𝑧 ·Q 𝑦) = (𝑦 ·Q 𝑧))
87eqeq2d 2201 . . . . . . . . . . . 12 ((𝑧Q𝑦Q) → (𝑥 = (𝑧 ·Q 𝑦) ↔ 𝑥 = (𝑦 ·Q 𝑧)))
96, 8sylan2 286 . . . . . . . . . . 11 ((𝑧Q ∧ (𝐴P𝑦 ∈ (1st𝐴))) → (𝑥 = (𝑧 ·Q 𝑦) ↔ 𝑥 = (𝑦 ·Q 𝑧)))
109anassrs 400 . . . . . . . . . 10 (((𝑧Q𝐴P) ∧ 𝑦 ∈ (1st𝐴)) → (𝑥 = (𝑧 ·Q 𝑦) ↔ 𝑥 = (𝑦 ·Q 𝑧)))
1110rexbidva 2487 . . . . . . . . 9 ((𝑧Q𝐴P) → (∃𝑦 ∈ (1st𝐴)𝑥 = (𝑧 ·Q 𝑦) ↔ ∃𝑦 ∈ (1st𝐴)𝑥 = (𝑦 ·Q 𝑧)))
1211ancoms 268 . . . . . . . 8 ((𝐴P𝑧Q) → (∃𝑦 ∈ (1st𝐴)𝑥 = (𝑧 ·Q 𝑦) ↔ ∃𝑦 ∈ (1st𝐴)𝑥 = (𝑦 ·Q 𝑧)))
133, 12sylan2 286 . . . . . . 7 ((𝐴P ∧ (𝐵P𝑧 ∈ (1st𝐵))) → (∃𝑦 ∈ (1st𝐴)𝑥 = (𝑧 ·Q 𝑦) ↔ ∃𝑦 ∈ (1st𝐴)𝑥 = (𝑦 ·Q 𝑧)))
1413anassrs 400 . . . . . 6 (((𝐴P𝐵P) ∧ 𝑧 ∈ (1st𝐵)) → (∃𝑦 ∈ (1st𝐴)𝑥 = (𝑧 ·Q 𝑦) ↔ ∃𝑦 ∈ (1st𝐴)𝑥 = (𝑦 ·Q 𝑧)))
1514rexbidva 2487 . . . . 5 ((𝐴P𝐵P) → (∃𝑧 ∈ (1st𝐵)∃𝑦 ∈ (1st𝐴)𝑥 = (𝑧 ·Q 𝑦) ↔ ∃𝑧 ∈ (1st𝐵)∃𝑦 ∈ (1st𝐴)𝑥 = (𝑦 ·Q 𝑧)))
16 rexcom 2654 . . . . 5 (∃𝑧 ∈ (1st𝐵)∃𝑦 ∈ (1st𝐴)𝑥 = (𝑦 ·Q 𝑧) ↔ ∃𝑦 ∈ (1st𝐴)∃𝑧 ∈ (1st𝐵)𝑥 = (𝑦 ·Q 𝑧))
1715, 16bitrdi 196 . . . 4 ((𝐴P𝐵P) → (∃𝑧 ∈ (1st𝐵)∃𝑦 ∈ (1st𝐴)𝑥 = (𝑧 ·Q 𝑦) ↔ ∃𝑦 ∈ (1st𝐴)∃𝑧 ∈ (1st𝐵)𝑥 = (𝑦 ·Q 𝑧)))
1817rabbidv 2745 . . 3 ((𝐴P𝐵P) → {𝑥Q ∣ ∃𝑧 ∈ (1st𝐵)∃𝑦 ∈ (1st𝐴)𝑥 = (𝑧 ·Q 𝑦)} = {𝑥Q ∣ ∃𝑦 ∈ (1st𝐴)∃𝑧 ∈ (1st𝐵)𝑥 = (𝑦 ·Q 𝑧)})
19 elprnqu 7528 . . . . . . . . 9 ((⟨(1st𝐵), (2nd𝐵)⟩ ∈ P𝑧 ∈ (2nd𝐵)) → 𝑧Q)
201, 19sylan 283 . . . . . . . 8 ((𝐵P𝑧 ∈ (2nd𝐵)) → 𝑧Q)
21 elprnqu 7528 . . . . . . . . . . . . 13 ((⟨(1st𝐴), (2nd𝐴)⟩ ∈ P𝑦 ∈ (2nd𝐴)) → 𝑦Q)
224, 21sylan 283 . . . . . . . . . . . 12 ((𝐴P𝑦 ∈ (2nd𝐴)) → 𝑦Q)
2322, 8sylan2 286 . . . . . . . . . . 11 ((𝑧Q ∧ (𝐴P𝑦 ∈ (2nd𝐴))) → (𝑥 = (𝑧 ·Q 𝑦) ↔ 𝑥 = (𝑦 ·Q 𝑧)))
2423anassrs 400 . . . . . . . . . 10 (((𝑧Q𝐴P) ∧ 𝑦 ∈ (2nd𝐴)) → (𝑥 = (𝑧 ·Q 𝑦) ↔ 𝑥 = (𝑦 ·Q 𝑧)))
2524rexbidva 2487 . . . . . . . . 9 ((𝑧Q𝐴P) → (∃𝑦 ∈ (2nd𝐴)𝑥 = (𝑧 ·Q 𝑦) ↔ ∃𝑦 ∈ (2nd𝐴)𝑥 = (𝑦 ·Q 𝑧)))
2625ancoms 268 . . . . . . . 8 ((𝐴P𝑧Q) → (∃𝑦 ∈ (2nd𝐴)𝑥 = (𝑧 ·Q 𝑦) ↔ ∃𝑦 ∈ (2nd𝐴)𝑥 = (𝑦 ·Q 𝑧)))
2720, 26sylan2 286 . . . . . . 7 ((𝐴P ∧ (𝐵P𝑧 ∈ (2nd𝐵))) → (∃𝑦 ∈ (2nd𝐴)𝑥 = (𝑧 ·Q 𝑦) ↔ ∃𝑦 ∈ (2nd𝐴)𝑥 = (𝑦 ·Q 𝑧)))
2827anassrs 400 . . . . . 6 (((𝐴P𝐵P) ∧ 𝑧 ∈ (2nd𝐵)) → (∃𝑦 ∈ (2nd𝐴)𝑥 = (𝑧 ·Q 𝑦) ↔ ∃𝑦 ∈ (2nd𝐴)𝑥 = (𝑦 ·Q 𝑧)))
2928rexbidva 2487 . . . . 5 ((𝐴P𝐵P) → (∃𝑧 ∈ (2nd𝐵)∃𝑦 ∈ (2nd𝐴)𝑥 = (𝑧 ·Q 𝑦) ↔ ∃𝑧 ∈ (2nd𝐵)∃𝑦 ∈ (2nd𝐴)𝑥 = (𝑦 ·Q 𝑧)))
30 rexcom 2654 . . . . 5 (∃𝑧 ∈ (2nd𝐵)∃𝑦 ∈ (2nd𝐴)𝑥 = (𝑦 ·Q 𝑧) ↔ ∃𝑦 ∈ (2nd𝐴)∃𝑧 ∈ (2nd𝐵)𝑥 = (𝑦 ·Q 𝑧))
3129, 30bitrdi 196 . . . 4 ((𝐴P𝐵P) → (∃𝑧 ∈ (2nd𝐵)∃𝑦 ∈ (2nd𝐴)𝑥 = (𝑧 ·Q 𝑦) ↔ ∃𝑦 ∈ (2nd𝐴)∃𝑧 ∈ (2nd𝐵)𝑥 = (𝑦 ·Q 𝑧)))
3231rabbidv 2745 . . 3 ((𝐴P𝐵P) → {𝑥Q ∣ ∃𝑧 ∈ (2nd𝐵)∃𝑦 ∈ (2nd𝐴)𝑥 = (𝑧 ·Q 𝑦)} = {𝑥Q ∣ ∃𝑦 ∈ (2nd𝐴)∃𝑧 ∈ (2nd𝐵)𝑥 = (𝑦 ·Q 𝑧)})
3318, 32opeq12d 3808 . 2 ((𝐴P𝐵P) → ⟨{𝑥Q ∣ ∃𝑧 ∈ (1st𝐵)∃𝑦 ∈ (1st𝐴)𝑥 = (𝑧 ·Q 𝑦)}, {𝑥Q ∣ ∃𝑧 ∈ (2nd𝐵)∃𝑦 ∈ (2nd𝐴)𝑥 = (𝑧 ·Q 𝑦)}⟩ = ⟨{𝑥Q ∣ ∃𝑦 ∈ (1st𝐴)∃𝑧 ∈ (1st𝐵)𝑥 = (𝑦 ·Q 𝑧)}, {𝑥Q ∣ ∃𝑦 ∈ (2nd𝐴)∃𝑧 ∈ (2nd𝐵)𝑥 = (𝑦 ·Q 𝑧)}⟩)
34 mpvlu 7585 . . 3 ((𝐵P𝐴P) → (𝐵 ·P 𝐴) = ⟨{𝑥Q ∣ ∃𝑧 ∈ (1st𝐵)∃𝑦 ∈ (1st𝐴)𝑥 = (𝑧 ·Q 𝑦)}, {𝑥Q ∣ ∃𝑧 ∈ (2nd𝐵)∃𝑦 ∈ (2nd𝐴)𝑥 = (𝑧 ·Q 𝑦)}⟩)
3534ancoms 268 . 2 ((𝐴P𝐵P) → (𝐵 ·P 𝐴) = ⟨{𝑥Q ∣ ∃𝑧 ∈ (1st𝐵)∃𝑦 ∈ (1st𝐴)𝑥 = (𝑧 ·Q 𝑦)}, {𝑥Q ∣ ∃𝑧 ∈ (2nd𝐵)∃𝑦 ∈ (2nd𝐴)𝑥 = (𝑧 ·Q 𝑦)}⟩)
36 mpvlu 7585 . 2 ((𝐴P𝐵P) → (𝐴 ·P 𝐵) = ⟨{𝑥Q ∣ ∃𝑦 ∈ (1st𝐴)∃𝑧 ∈ (1st𝐵)𝑥 = (𝑦 ·Q 𝑧)}, {𝑥Q ∣ ∃𝑦 ∈ (2nd𝐴)∃𝑧 ∈ (2nd𝐵)𝑥 = (𝑦 ·Q 𝑧)}⟩)
3733, 35, 363eqtr4rd 2233 1 ((𝐴P𝐵P) → (𝐴 ·P 𝐵) = (𝐵 ·P 𝐴))
Colors of variables: wff set class
Syntax hints:  wi 4  wa 104  wb 105   = wceq 1364  wcel 2160  wrex 2469  {crab 2472  cop 3617  cfv 5242  (class class class)co 5906  1st c1st 6178  2nd c2nd 6179  Qcnq 7326   ·Q cmq 7329  Pcnp 7337   ·P cmp 7340
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 2162  ax-14 2163  ax-ext 2171  ax-coll 4140  ax-sep 4143  ax-nul 4151  ax-pow 4199  ax-pr 4234  ax-un 4458  ax-setind 4561  ax-iinf 4612
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 2041  df-mo 2042  df-clab 2176  df-cleq 2182  df-clel 2185  df-nfc 2321  df-ne 2361  df-ral 2473  df-rex 2474  df-reu 2475  df-rab 2477  df-v 2758  df-sbc 2982  df-csb 3077  df-dif 3151  df-un 3153  df-in 3155  df-ss 3162  df-nul 3443  df-pw 3599  df-sn 3620  df-pr 3621  df-op 3623  df-uni 3832  df-int 3867  df-iun 3910  df-br 4026  df-opab 4087  df-mpt 4088  df-tr 4124  df-id 4318  df-iord 4391  df-on 4393  df-suc 4396  df-iom 4615  df-xp 4657  df-rel 4658  df-cnv 4659  df-co 4660  df-dm 4661  df-rn 4662  df-res 4663  df-ima 4664  df-iota 5203  df-fun 5244  df-fn 5245  df-f 5246  df-f1 5247  df-fo 5248  df-f1o 5249  df-fv 5250  df-ov 5909  df-oprab 5910  df-mpo 5911  df-1st 6180  df-2nd 6181  df-recs 6345  df-irdg 6410  df-oadd 6460  df-omul 6461  df-er 6574  df-ec 6576  df-qs 6580  df-ni 7350  df-mi 7352  df-mpq 7391  df-enq 7393  df-nqqs 7394  df-mqqs 7396  df-inp 7512  df-imp 7515
This theorem is referenced by:  ltmprr  7688  mulcmpblnrlemg  7786  mulcomsrg  7803  mulasssrg  7804  m1m1sr  7807  recexgt0sr  7819  mulgt0sr  7824  mulextsr1lem  7826  recidpirqlemcalc  7903
  Copyright terms: Public domain W3C validator