MPE Home Metamath Proof Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >  recmulnq Structured version   Visualization version   GIF version

Theorem recmulnq 10878
Description: Relationship between reciprocal and multiplication on positive fractions. (Contributed by NM, 6-Mar-1996.) (Revised by Mario Carneiro, 28-Apr-2015.) (New usage is discouraged.)
Assertion
Ref Expression
recmulnq (𝐴Q → ((*Q𝐴) = 𝐵 ↔ (𝐴 ·Q 𝐵) = 1Q))

Proof of Theorem recmulnq
Dummy variables 𝑥 𝑦 𝑠 𝑟 𝑡 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 fvex 6840 . . . 4 (*Q𝐴) ∈ V
21a1i 11 . . 3 (𝐴Q → (*Q𝐴) ∈ V)
3 eleq1 2827 . . 3 ((*Q𝐴) = 𝐵 → ((*Q𝐴) ∈ V ↔ 𝐵 ∈ V))
42, 3syl5ibcom 246 . 2 (𝐴Q → ((*Q𝐴) = 𝐵𝐵 ∈ V))
5 id 22 . . . . . 6 ((𝐴 ·Q 𝐵) = 1Q → (𝐴 ·Q 𝐵) = 1Q)
6 1nq 10842 . . . . . 6 1QQ
75, 6eqeltrdi 2847 . . . . 5 ((𝐴 ·Q 𝐵) = 1Q → (𝐴 ·Q 𝐵) ∈ Q)
8 mulnqf 10863 . . . . . . 7 ·Q :(Q × Q)⟶Q
98fdmi 6666 . . . . . 6 dom ·Q = (Q × Q)
10 0nnq 10838 . . . . . 6 ¬ ∅ ∈ Q
119, 10ndmovrcl 7542 . . . . 5 ((𝐴 ·Q 𝐵) ∈ Q → (𝐴Q𝐵Q))
127, 11syl 17 . . . 4 ((𝐴 ·Q 𝐵) = 1Q → (𝐴Q𝐵Q))
13 elex 3452 . . . 4 (𝐵Q𝐵 ∈ V)
1412, 13simpl2im 508 . . 3 ((𝐴 ·Q 𝐵) = 1Q𝐵 ∈ V)
1514a1i 11 . 2 (𝐴Q → ((𝐴 ·Q 𝐵) = 1Q𝐵 ∈ V))
16 oveq1 7363 . . . . 5 (𝑥 = 𝐴 → (𝑥 ·Q 𝑦) = (𝐴 ·Q 𝑦))
1716eqeq1d 2741 . . . 4 (𝑥 = 𝐴 → ((𝑥 ·Q 𝑦) = 1Q ↔ (𝐴 ·Q 𝑦) = 1Q))
18 oveq2 7364 . . . . 5 (𝑦 = 𝐵 → (𝐴 ·Q 𝑦) = (𝐴 ·Q 𝐵))
1918eqeq1d 2741 . . . 4 (𝑦 = 𝐵 → ((𝐴 ·Q 𝑦) = 1Q ↔ (𝐴 ·Q 𝐵) = 1Q))
20 nqerid 10847 . . . . . . . . . 10 (𝑥Q → ([Q]‘𝑥) = 𝑥)
21 relxp 5636 . . . . . . . . . . . 12 Rel (N × N)
22 elpqn 10839 . . . . . . . . . . . 12 (𝑥Q𝑥 ∈ (N × N))
23 1st2nd 7981 . . . . . . . . . . . 12 ((Rel (N × N) ∧ 𝑥 ∈ (N × N)) → 𝑥 = ⟨(1st𝑥), (2nd𝑥)⟩)
2421, 22, 23sylancr 593 . . . . . . . . . . 11 (𝑥Q𝑥 = ⟨(1st𝑥), (2nd𝑥)⟩)
2524fveq2d 6831 . . . . . . . . . 10 (𝑥Q → ([Q]‘𝑥) = ([Q]‘⟨(1st𝑥), (2nd𝑥)⟩))
2620, 25eqtr3d 2776 . . . . . . . . 9 (𝑥Q𝑥 = ([Q]‘⟨(1st𝑥), (2nd𝑥)⟩))
2726oveq1d 7371 . . . . . . . 8 (𝑥Q → (𝑥 ·Q ([Q]‘⟨(2nd𝑥), (1st𝑥)⟩)) = (([Q]‘⟨(1st𝑥), (2nd𝑥)⟩) ·Q ([Q]‘⟨(2nd𝑥), (1st𝑥)⟩)))
28 mulerpq 10871 . . . . . . . 8 (([Q]‘⟨(1st𝑥), (2nd𝑥)⟩) ·Q ([Q]‘⟨(2nd𝑥), (1st𝑥)⟩)) = ([Q]‘(⟨(1st𝑥), (2nd𝑥)⟩ ·pQ ⟨(2nd𝑥), (1st𝑥)⟩))
2927, 28eqtrdi 2790 . . . . . . 7 (𝑥Q → (𝑥 ·Q ([Q]‘⟨(2nd𝑥), (1st𝑥)⟩)) = ([Q]‘(⟨(1st𝑥), (2nd𝑥)⟩ ·pQ ⟨(2nd𝑥), (1st𝑥)⟩)))
30 xp1st 7963 . . . . . . . . . . 11 (𝑥 ∈ (N × N) → (1st𝑥) ∈ N)
3122, 30syl 17 . . . . . . . . . 10 (𝑥Q → (1st𝑥) ∈ N)
32 xp2nd 7964 . . . . . . . . . . 11 (𝑥 ∈ (N × N) → (2nd𝑥) ∈ N)
3322, 32syl 17 . . . . . . . . . 10 (𝑥Q → (2nd𝑥) ∈ N)
34 mulpipq 10854 . . . . . . . . . 10 ((((1st𝑥) ∈ N ∧ (2nd𝑥) ∈ N) ∧ ((2nd𝑥) ∈ N ∧ (1st𝑥) ∈ N)) → (⟨(1st𝑥), (2nd𝑥)⟩ ·pQ ⟨(2nd𝑥), (1st𝑥)⟩) = ⟨((1st𝑥) ·N (2nd𝑥)), ((2nd𝑥) ·N (1st𝑥))⟩)
3531, 33, 33, 31, 34syl22anc 844 . . . . . . . . 9 (𝑥Q → (⟨(1st𝑥), (2nd𝑥)⟩ ·pQ ⟨(2nd𝑥), (1st𝑥)⟩) = ⟨((1st𝑥) ·N (2nd𝑥)), ((2nd𝑥) ·N (1st𝑥))⟩)
36 mulcompi 10810 . . . . . . . . . 10 ((2nd𝑥) ·N (1st𝑥)) = ((1st𝑥) ·N (2nd𝑥))
3736opeq2i 4808 . . . . . . . . 9 ⟨((1st𝑥) ·N (2nd𝑥)), ((2nd𝑥) ·N (1st𝑥))⟩ = ⟨((1st𝑥) ·N (2nd𝑥)), ((1st𝑥) ·N (2nd𝑥))⟩
3835, 37eqtrdi 2790 . . . . . . . 8 (𝑥Q → (⟨(1st𝑥), (2nd𝑥)⟩ ·pQ ⟨(2nd𝑥), (1st𝑥)⟩) = ⟨((1st𝑥) ·N (2nd𝑥)), ((1st𝑥) ·N (2nd𝑥))⟩)
3938fveq2d 6831 . . . . . . 7 (𝑥Q → ([Q]‘(⟨(1st𝑥), (2nd𝑥)⟩ ·pQ ⟨(2nd𝑥), (1st𝑥)⟩)) = ([Q]‘⟨((1st𝑥) ·N (2nd𝑥)), ((1st𝑥) ·N (2nd𝑥))⟩))
40 mulclpi 10807 . . . . . . . . . . 11 (((1st𝑥) ∈ N ∧ (2nd𝑥) ∈ N) → ((1st𝑥) ·N (2nd𝑥)) ∈ N)
4131, 33, 40syl2anc 590 . . . . . . . . . 10 (𝑥Q → ((1st𝑥) ·N (2nd𝑥)) ∈ N)
42 1nqenq 10876 . . . . . . . . . 10 (((1st𝑥) ·N (2nd𝑥)) ∈ N → 1Q ~Q ⟨((1st𝑥) ·N (2nd𝑥)), ((1st𝑥) ·N (2nd𝑥))⟩)
4341, 42syl 17 . . . . . . . . 9 (𝑥Q → 1Q ~Q ⟨((1st𝑥) ·N (2nd𝑥)), ((1st𝑥) ·N (2nd𝑥))⟩)
44 elpqn 10839 . . . . . . . . . . 11 (1QQ → 1Q ∈ (N × N))
456, 44ax-mp 5 . . . . . . . . . 10 1Q ∈ (N × N)
4641, 41opelxpd 5657 . . . . . . . . . 10 (𝑥Q → ⟨((1st𝑥) ·N (2nd𝑥)), ((1st𝑥) ·N (2nd𝑥))⟩ ∈ (N × N))
47 nqereq 10849 . . . . . . . . . 10 ((1Q ∈ (N × N) ∧ ⟨((1st𝑥) ·N (2nd𝑥)), ((1st𝑥) ·N (2nd𝑥))⟩ ∈ (N × N)) → (1Q ~Q ⟨((1st𝑥) ·N (2nd𝑥)), ((1st𝑥) ·N (2nd𝑥))⟩ ↔ ([Q]‘1Q) = ([Q]‘⟨((1st𝑥) ·N (2nd𝑥)), ((1st𝑥) ·N (2nd𝑥))⟩)))
4845, 46, 47sylancr 593 . . . . . . . . 9 (𝑥Q → (1Q ~Q ⟨((1st𝑥) ·N (2nd𝑥)), ((1st𝑥) ·N (2nd𝑥))⟩ ↔ ([Q]‘1Q) = ([Q]‘⟨((1st𝑥) ·N (2nd𝑥)), ((1st𝑥) ·N (2nd𝑥))⟩)))
4943, 48mpbid 233 . . . . . . . 8 (𝑥Q → ([Q]‘1Q) = ([Q]‘⟨((1st𝑥) ·N (2nd𝑥)), ((1st𝑥) ·N (2nd𝑥))⟩))
50 nqerid 10847 . . . . . . . . 9 (1QQ → ([Q]‘1Q) = 1Q)
516, 50ax-mp 5 . . . . . . . 8 ([Q]‘1Q) = 1Q
5249, 51eqtr3di 2789 . . . . . . 7 (𝑥Q → ([Q]‘⟨((1st𝑥) ·N (2nd𝑥)), ((1st𝑥) ·N (2nd𝑥))⟩) = 1Q)
5329, 39, 523eqtrd 2778 . . . . . 6 (𝑥Q → (𝑥 ·Q ([Q]‘⟨(2nd𝑥), (1st𝑥)⟩)) = 1Q)
54 fvex 6840 . . . . . . 7 ([Q]‘⟨(2nd𝑥), (1st𝑥)⟩) ∈ V
55 oveq2 7364 . . . . . . . 8 (𝑦 = ([Q]‘⟨(2nd𝑥), (1st𝑥)⟩) → (𝑥 ·Q 𝑦) = (𝑥 ·Q ([Q]‘⟨(2nd𝑥), (1st𝑥)⟩)))
5655eqeq1d 2741 . . . . . . 7 (𝑦 = ([Q]‘⟨(2nd𝑥), (1st𝑥)⟩) → ((𝑥 ·Q 𝑦) = 1Q ↔ (𝑥 ·Q ([Q]‘⟨(2nd𝑥), (1st𝑥)⟩)) = 1Q))
5754, 56spcev 3544 . . . . . 6 ((𝑥 ·Q ([Q]‘⟨(2nd𝑥), (1st𝑥)⟩)) = 1Q → ∃𝑦(𝑥 ·Q 𝑦) = 1Q)
5853, 57syl 17 . . . . 5 (𝑥Q → ∃𝑦(𝑥 ·Q 𝑦) = 1Q)
59 mulcomnq 10867 . . . . . 6 (𝑟 ·Q 𝑠) = (𝑠 ·Q 𝑟)
60 mulassnq 10873 . . . . . 6 ((𝑟 ·Q 𝑠) ·Q 𝑡) = (𝑟 ·Q (𝑠 ·Q 𝑡))
61 mulidnq 10877 . . . . . 6 (𝑟Q → (𝑟 ·Q 1Q) = 𝑟)
626, 9, 10, 59, 60, 61caovmo 7593 . . . . 5 ∃*𝑦(𝑥 ·Q 𝑦) = 1Q
63 df-eu 2573 . . . . 5 (∃!𝑦(𝑥 ·Q 𝑦) = 1Q ↔ (∃𝑦(𝑥 ·Q 𝑦) = 1Q ∧ ∃*𝑦(𝑥 ·Q 𝑦) = 1Q))
6458, 62, 63sylanblrc 596 . . . 4 (𝑥Q → ∃!𝑦(𝑥 ·Q 𝑦) = 1Q)
65 cnvimass 6034 . . . . . . . 8 ( ·Q “ {1Q}) ⊆ dom ·Q
66 df-rq 10831 . . . . . . . 8 *Q = ( ·Q “ {1Q})
679eqcomi 2748 . . . . . . . 8 (Q × Q) = dom ·Q
6865, 66, 673sstr4i 3966 . . . . . . 7 *Q ⊆ (Q × Q)
69 relxp 5636 . . . . . . 7 Rel (Q × Q)
70 relss 5725 . . . . . . 7 (*Q ⊆ (Q × Q) → (Rel (Q × Q) → Rel *Q))
7168, 69, 70mp2 9 . . . . . 6 Rel *Q
7266eleq2i 2831 . . . . . . . 8 (⟨𝑥, 𝑦⟩ ∈ *Q ↔ ⟨𝑥, 𝑦⟩ ∈ ( ·Q “ {1Q}))
73 ffn 6655 . . . . . . . . 9 ( ·Q :(Q × Q)⟶Q → ·Q Fn (Q × Q))
74 fniniseg 7001 . . . . . . . . 9 ( ·Q Fn (Q × Q) → (⟨𝑥, 𝑦⟩ ∈ ( ·Q “ {1Q}) ↔ (⟨𝑥, 𝑦⟩ ∈ (Q × Q) ∧ ( ·Q ‘⟨𝑥, 𝑦⟩) = 1Q)))
758, 73, 74mp2b 10 . . . . . . . 8 (⟨𝑥, 𝑦⟩ ∈ ( ·Q “ {1Q}) ↔ (⟨𝑥, 𝑦⟩ ∈ (Q × Q) ∧ ( ·Q ‘⟨𝑥, 𝑦⟩) = 1Q))
76 ancom 461 . . . . . . . . 9 ((⟨𝑥, 𝑦⟩ ∈ (Q × Q) ∧ ( ·Q ‘⟨𝑥, 𝑦⟩) = 1Q) ↔ (( ·Q ‘⟨𝑥, 𝑦⟩) = 1Q ∧ ⟨𝑥, 𝑦⟩ ∈ (Q × Q)))
77 ancom 461 . . . . . . . . . 10 ((𝑥Q ∧ (𝑥 ·Q 𝑦) = 1Q) ↔ ((𝑥 ·Q 𝑦) = 1Q𝑥Q))
78 eleq1 2827 . . . . . . . . . . . . . . 15 ((𝑥 ·Q 𝑦) = 1Q → ((𝑥 ·Q 𝑦) ∈ Q ↔ 1QQ))
796, 78mpbiri 259 . . . . . . . . . . . . . 14 ((𝑥 ·Q 𝑦) = 1Q → (𝑥 ·Q 𝑦) ∈ Q)
809, 10ndmovrcl 7542 . . . . . . . . . . . . . 14 ((𝑥 ·Q 𝑦) ∈ Q → (𝑥Q𝑦Q))
8179, 80syl 17 . . . . . . . . . . . . 13 ((𝑥 ·Q 𝑦) = 1Q → (𝑥Q𝑦Q))
82 opelxpi 5655 . . . . . . . . . . . . 13 ((𝑥Q𝑦Q) → ⟨𝑥, 𝑦⟩ ∈ (Q × Q))
8381, 82syl 17 . . . . . . . . . . . 12 ((𝑥 ·Q 𝑦) = 1Q → ⟨𝑥, 𝑦⟩ ∈ (Q × Q))
8481simpld 495 . . . . . . . . . . . 12 ((𝑥 ·Q 𝑦) = 1Q𝑥Q)
8583, 842thd 266 . . . . . . . . . . 11 ((𝑥 ·Q 𝑦) = 1Q → (⟨𝑥, 𝑦⟩ ∈ (Q × Q) ↔ 𝑥Q))
8685pm5.32i 579 . . . . . . . . . 10 (((𝑥 ·Q 𝑦) = 1Q ∧ ⟨𝑥, 𝑦⟩ ∈ (Q × Q)) ↔ ((𝑥 ·Q 𝑦) = 1Q𝑥Q))
87 df-ov 7359 . . . . . . . . . . . 12 (𝑥 ·Q 𝑦) = ( ·Q ‘⟨𝑥, 𝑦⟩)
8887eqeq1i 2744 . . . . . . . . . . 11 ((𝑥 ·Q 𝑦) = 1Q ↔ ( ·Q ‘⟨𝑥, 𝑦⟩) = 1Q)
8988anbi1i 630 . . . . . . . . . 10 (((𝑥 ·Q 𝑦) = 1Q ∧ ⟨𝑥, 𝑦⟩ ∈ (Q × Q)) ↔ (( ·Q ‘⟨𝑥, 𝑦⟩) = 1Q ∧ ⟨𝑥, 𝑦⟩ ∈ (Q × Q)))
9077, 86, 893bitr2ri 301 . . . . . . . . 9 ((( ·Q ‘⟨𝑥, 𝑦⟩) = 1Q ∧ ⟨𝑥, 𝑦⟩ ∈ (Q × Q)) ↔ (𝑥Q ∧ (𝑥 ·Q 𝑦) = 1Q))
9176, 90bitri 276 . . . . . . . 8 ((⟨𝑥, 𝑦⟩ ∈ (Q × Q) ∧ ( ·Q ‘⟨𝑥, 𝑦⟩) = 1Q) ↔ (𝑥Q ∧ (𝑥 ·Q 𝑦) = 1Q))
9272, 75, 913bitri 298 . . . . . . 7 (⟨𝑥, 𝑦⟩ ∈ *Q ↔ (𝑥Q ∧ (𝑥 ·Q 𝑦) = 1Q))
9392a1i 11 . . . . . 6 (⊤ → (⟨𝑥, 𝑦⟩ ∈ *Q ↔ (𝑥Q ∧ (𝑥 ·Q 𝑦) = 1Q)))
9471, 93opabbi2dv 5791 . . . . 5 (⊤ → *Q = {⟨𝑥, 𝑦⟩ ∣ (𝑥Q ∧ (𝑥 ·Q 𝑦) = 1Q)})
9594mptru 1554 . . . 4 *Q = {⟨𝑥, 𝑦⟩ ∣ (𝑥Q ∧ (𝑥 ·Q 𝑦) = 1Q)}
9617, 19, 64, 95fvopab3g 6930 . . 3 ((𝐴Q𝐵 ∈ V) → ((*Q𝐴) = 𝐵 ↔ (𝐴 ·Q 𝐵) = 1Q))
9796ex 413 . 2 (𝐴Q → (𝐵 ∈ V → ((*Q𝐴) = 𝐵 ↔ (𝐴 ·Q 𝐵) = 1Q)))
984, 15, 97pm5.21ndd 380 1 (𝐴Q → ((*Q𝐴) = 𝐵 ↔ (𝐴 ·Q 𝐵) = 1Q))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 207  wa 396   = wceq 1547  wtru 1548  wex 1786  wcel 2119  ∃*wmo 2541  ∃!weu 2572  Vcvv 3431  wss 3883  {csn 4555  cop 4561   class class class wbr 5072  {copab 5134   × cxp 5616  ccnv 5617  dom cdm 5618  cima 5621  Rel wrel 5623   Fn wfn 6480  wf 6481  cfv 6485  (class class class)co 7356  1st c1st 7929  2nd c2nd 7930  Ncnpi 10758   ·N cmi 10760   ·pQ cmpq 10763   ~Q ceq 10765  Qcnq 10766  1Qc1q 10767  [Q]cerq 10768   ·Q cmq 10770  *Qcrq 10771
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1802  ax-4 1816  ax-5 1917  ax-6 1974  ax-7 2015  ax-8 2121  ax-9 2129  ax-10 2152  ax-11 2168  ax-12 2189  ax-ext 2711  ax-sep 5218  ax-nul 5228  ax-pr 5362  ax-un 7678
This theorem depends on definitions:  df-bi 208  df-an 397  df-or 854  df-3or 1093  df-3an 1094  df-tru 1550  df-fal 1560  df-ex 1787  df-nf 1791  df-sb 2074  df-mo 2543  df-eu 2573  df-clab 2718  df-cleq 2731  df-clel 2814  df-nfc 2888  df-ne 2935  df-ral 3054  df-rex 3064  df-rmo 3344  df-reu 3345  df-rab 3392  df-v 3433  df-sbc 3724  df-csb 3832  df-dif 3886  df-un 3888  df-in 3890  df-ss 3900  df-pss 3903  df-nul 4262  df-if 4455  df-pw 4531  df-sn 4556  df-pr 4558  df-op 4562  df-uni 4839  df-iun 4923  df-br 5073  df-opab 5135  df-mpt 5154  df-tr 5180  df-id 5513  df-eprel 5518  df-po 5526  df-so 5527  df-fr 5571  df-we 5573  df-xp 5624  df-rel 5625  df-cnv 5626  df-co 5627  df-dm 5628  df-rn 5629  df-res 5630  df-ima 5631  df-pred 6252  df-ord 6313  df-on 6314  df-lim 6315  df-suc 6316  df-iota 6441  df-fun 6487  df-fn 6488  df-f 6489  df-f1 6490  df-fo 6491  df-f1o 6492  df-fv 6493  df-ov 7359  df-oprab 7360  df-mpo 7361  df-om 7807  df-1st 7931  df-2nd 7932  df-frecs 8221  df-wrecs 8252  df-recs 8301  df-rdg 8339  df-1o 8395  df-oadd 8399  df-omul 8400  df-er 8633  df-ni 10786  df-mi 10788  df-lti 10789  df-mpq 10823  df-enq 10825  df-nq 10826  df-erq 10827  df-mq 10829  df-1nq 10830  df-rq 10831
This theorem is referenced by:  recidnq  10879  recrecnq  10881  reclem3pr  10963
  Copyright terms: Public domain W3C validator