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

Theorem recmulnq 10955
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 6894 . . . 4 (*Q𝐴) ∈ V
21a1i 11 . . 3 (𝐴Q → (*Q𝐴) ∈ V)
3 eleq1 2850 . . 3 ((*Q𝐴) = 𝐵 → ((*Q𝐴) ∈ V ↔ 𝐵 ∈ V))
42, 3syl5ibcom 248 . 2 (𝐴Q → ((*Q𝐴) = 𝐵𝐵 ∈ V))
5 id 23 . . . . . 6 ((𝐴 ·Q 𝐵) = 1Q → (𝐴 ·Q 𝐵) = 1Q)
6 1nq 10919 . . . . . 6 1QQ
75, 6eqeltrdi 2870 . . . . 5 ((𝐴 ·Q 𝐵) = 1Q → (𝐴 ·Q 𝐵) ∈ Q)
8 mulnqf 10940 . . . . . . 7 ·Q :(Q × Q)⟶Q
98fdmi 6717 . . . . . 6 dom ·Q = (Q × Q)
10 0nnq 10915 . . . . . 6 ¬ ∅ ∈ Q
119, 10ndmovrcl 7598 . . . . 5 ((𝐴 ·Q 𝐵) ∈ Q → (𝐴Q𝐵Q))
127, 11syl 18 . . . 4 ((𝐴 ·Q 𝐵) = 1Q → (𝐴Q𝐵Q))
13 elex 3475 . . . 4 (𝐵Q𝐵 ∈ V)
1412, 13simpl2im 512 . . 3 ((𝐴 ·Q 𝐵) = 1Q𝐵 ∈ V)
1514a1i 11 . 2 (𝐴Q → ((𝐴 ·Q 𝐵) = 1Q𝐵 ∈ V))
16 oveq1 7419 . . . . 5 (𝑥 = 𝐴 → (𝑥 ·Q 𝑦) = (𝐴 ·Q 𝑦))
1716eqeq1d 2764 . . . 4 (𝑥 = 𝐴 → ((𝑥 ·Q 𝑦) = 1Q ↔ (𝐴 ·Q 𝑦) = 1Q))
18 oveq2 7420 . . . . 5 (𝑦 = 𝐵 → (𝐴 ·Q 𝑦) = (𝐴 ·Q 𝐵))
1918eqeq1d 2764 . . . 4 (𝑦 = 𝐵 → ((𝐴 ·Q 𝑦) = 1Q ↔ (𝐴 ·Q 𝐵) = 1Q))
20 nqerid 10924 . . . . . . . . . 10 (𝑥Q → ([Q]‘𝑥) = 𝑥)
21 relxp 5678 . . . . . . . . . . . 12 Rel (N × N)
22 elpqn 10916 . . . . . . . . . . . 12 (𝑥Q𝑥 ∈ (N × N))
23 1st2nd 8034 . . . . . . . . . . . 12 ((Rel (N × N) ∧ 𝑥 ∈ (N × N)) → 𝑥 = ⟨(1st𝑥), (2nd𝑥)⟩)
2421, 22, 23sylancr 598 . . . . . . . . . . 11 (𝑥Q𝑥 = ⟨(1st𝑥), (2nd𝑥)⟩)
2524fveq2d 6885 . . . . . . . . . 10 (𝑥Q → ([Q]‘𝑥) = ([Q]‘⟨(1st𝑥), (2nd𝑥)⟩))
2620, 25eqtr3d 2799 . . . . . . . . 9 (𝑥Q𝑥 = ([Q]‘⟨(1st𝑥), (2nd𝑥)⟩))
2726oveq1d 7427 . . . . . . . 8 (𝑥Q → (𝑥 ·Q ([Q]‘⟨(2nd𝑥), (1st𝑥)⟩)) = (([Q]‘⟨(1st𝑥), (2nd𝑥)⟩) ·Q ([Q]‘⟨(2nd𝑥), (1st𝑥)⟩)))
28 mulerpq 10948 . . . . . . . 8 (([Q]‘⟨(1st𝑥), (2nd𝑥)⟩) ·Q ([Q]‘⟨(2nd𝑥), (1st𝑥)⟩)) = ([Q]‘(⟨(1st𝑥), (2nd𝑥)⟩ ·pQ ⟨(2nd𝑥), (1st𝑥)⟩))
2927, 28eqtrdi 2813 . . . . . . 7 (𝑥Q → (𝑥 ·Q ([Q]‘⟨(2nd𝑥), (1st𝑥)⟩)) = ([Q]‘(⟨(1st𝑥), (2nd𝑥)⟩ ·pQ ⟨(2nd𝑥), (1st𝑥)⟩)))
30 xp1st 8016 . . . . . . . . . . 11 (𝑥 ∈ (N × N) → (1st𝑥) ∈ N)
3122, 30syl 18 . . . . . . . . . 10 (𝑥Q → (1st𝑥) ∈ N)
32 xp2nd 8017 . . . . . . . . . . 11 (𝑥 ∈ (N × N) → (2nd𝑥) ∈ N)
3322, 32syl 18 . . . . . . . . . 10 (𝑥Q → (2nd𝑥) ∈ N)
34 mulpipq 10931 . . . . . . . . . 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 851 . . . . . . . . 9 (𝑥Q → (⟨(1st𝑥), (2nd𝑥)⟩ ·pQ ⟨(2nd𝑥), (1st𝑥)⟩) = ⟨((1st𝑥) ·N (2nd𝑥)), ((2nd𝑥) ·N (1st𝑥))⟩)
36 mulcompi 10887 . . . . . . . . . 10 ((2nd𝑥) ·N (1st𝑥)) = ((1st𝑥) ·N (2nd𝑥))
3736opeq2i 4841 . . . . . . . . 9 ⟨((1st𝑥) ·N (2nd𝑥)), ((2nd𝑥) ·N (1st𝑥))⟩ = ⟨((1st𝑥) ·N (2nd𝑥)), ((1st𝑥) ·N (2nd𝑥))⟩
3835, 37eqtrdi 2813 . . . . . . . 8 (𝑥Q → (⟨(1st𝑥), (2nd𝑥)⟩ ·pQ ⟨(2nd𝑥), (1st𝑥)⟩) = ⟨((1st𝑥) ·N (2nd𝑥)), ((1st𝑥) ·N (2nd𝑥))⟩)
3938fveq2d 6885 . . . . . . 7 (𝑥Q → ([Q]‘(⟨(1st𝑥), (2nd𝑥)⟩ ·pQ ⟨(2nd𝑥), (1st𝑥)⟩)) = ([Q]‘⟨((1st𝑥) ·N (2nd𝑥)), ((1st𝑥) ·N (2nd𝑥))⟩))
40 mulclpi 10884 . . . . . . . . . . 11 (((1st𝑥) ∈ N ∧ (2nd𝑥) ∈ N) → ((1st𝑥) ·N (2nd𝑥)) ∈ N)
4131, 33, 40syl2anc 595 . . . . . . . . . 10 (𝑥Q → ((1st𝑥) ·N (2nd𝑥)) ∈ N)
42 1nqenq 10953 . . . . . . . . . 10 (((1st𝑥) ·N (2nd𝑥)) ∈ N → 1Q ~Q ⟨((1st𝑥) ·N (2nd𝑥)), ((1st𝑥) ·N (2nd𝑥))⟩)
4341, 42syl 18 . . . . . . . . 9 (𝑥Q → 1Q ~Q ⟨((1st𝑥) ·N (2nd𝑥)), ((1st𝑥) ·N (2nd𝑥))⟩)
44 elpqn 10916 . . . . . . . . . . 11 (1QQ → 1Q ∈ (N × N))
456, 44ax-mp 5 . . . . . . . . . 10 1Q ∈ (N × N)
4641, 41opelxpd 5699 . . . . . . . . . 10 (𝑥Q → ⟨((1st𝑥) ·N (2nd𝑥)), ((1st𝑥) ·N (2nd𝑥))⟩ ∈ (N × N))
47 nqereq 10926 . . . . . . . . . 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 598 . . . . . . . . 9 (𝑥Q → (1Q ~Q ⟨((1st𝑥) ·N (2nd𝑥)), ((1st𝑥) ·N (2nd𝑥))⟩ ↔ ([Q]‘1Q) = ([Q]‘⟨((1st𝑥) ·N (2nd𝑥)), ((1st𝑥) ·N (2nd𝑥))⟩)))
4943, 48mpbid 235 . . . . . . . 8 (𝑥Q → ([Q]‘1Q) = ([Q]‘⟨((1st𝑥) ·N (2nd𝑥)), ((1st𝑥) ·N (2nd𝑥))⟩))
50 nqerid 10924 . . . . . . . . 9 (1QQ → ([Q]‘1Q) = 1Q)
516, 50ax-mp 5 . . . . . . . 8 ([Q]‘1Q) = 1Q
5249, 51eqtr3di 2812 . . . . . . 7 (𝑥Q → ([Q]‘⟨((1st𝑥) ·N (2nd𝑥)), ((1st𝑥) ·N (2nd𝑥))⟩) = 1Q)
5329, 39, 523eqtrd 2801 . . . . . 6 (𝑥Q → (𝑥 ·Q ([Q]‘⟨(2nd𝑥), (1st𝑥)⟩)) = 1Q)
54 fvex 6894 . . . . . . 7 ([Q]‘⟨(2nd𝑥), (1st𝑥)⟩) ∈ V
55 oveq2 7420 . . . . . . . 8 (𝑦 = ([Q]‘⟨(2nd𝑥), (1st𝑥)⟩) → (𝑥 ·Q 𝑦) = (𝑥 ·Q ([Q]‘⟨(2nd𝑥), (1st𝑥)⟩)))
5655eqeq1d 2764 . . . . . . 7 (𝑦 = ([Q]‘⟨(2nd𝑥), (1st𝑥)⟩) → ((𝑥 ·Q 𝑦) = 1Q ↔ (𝑥 ·Q ([Q]‘⟨(2nd𝑥), (1st𝑥)⟩)) = 1Q))
5754, 56spcev 3564 . . . . . 6 ((𝑥 ·Q ([Q]‘⟨(2nd𝑥), (1st𝑥)⟩)) = 1Q → ∃𝑦(𝑥 ·Q 𝑦) = 1Q)
5853, 57syl 18 . . . . 5 (𝑥Q → ∃𝑦(𝑥 ·Q 𝑦) = 1Q)
59 mulcomnq 10944 . . . . . 6 (𝑟 ·Q 𝑠) = (𝑠 ·Q 𝑟)
60 mulassnq 10950 . . . . . 6 ((𝑟 ·Q 𝑠) ·Q 𝑡) = (𝑟 ·Q (𝑠 ·Q 𝑡))
61 mulidnq 10954 . . . . . 6 (𝑟Q → (𝑟 ·Q 1Q) = 𝑟)
626, 9, 10, 59, 60, 61caovmo 7649 . . . . 5 ∃*𝑦(𝑥 ·Q 𝑦) = 1Q
63 df-eu 2596 . . . . 5 (∃!𝑦(𝑥 ·Q 𝑦) = 1Q ↔ (∃𝑦(𝑥 ·Q 𝑦) = 1Q ∧ ∃*𝑦(𝑥 ·Q 𝑦) = 1Q))
6458, 62, 63sylanblrc 601 . . . 4 (𝑥Q → ∃!𝑦(𝑥 ·Q 𝑦) = 1Q)
65 cnvimass 6083 . . . . . . . 8 ( ·Q “ {1Q}) ⊆ dom ·Q
66 df-rq 10908 . . . . . . . 8 *Q = ( ·Q “ {1Q})
679eqcomi 2771 . . . . . . . 8 (Q × Q) = dom ·Q
6865, 66, 673sstr4i 3987 . . . . . . 7 *Q ⊆ (Q × Q)
69 relxp 5678 . . . . . . 7 Rel (Q × Q)
70 relss 5767 . . . . . . 7 (*Q ⊆ (Q × Q) → (Rel (Q × Q) → Rel *Q))
7168, 69, 70mp2 9 . . . . . 6 Rel *Q
7266eleq2i 2854 . . . . . . . 8 (⟨𝑥, 𝑦⟩ ∈ *Q ↔ ⟨𝑥, 𝑦⟩ ∈ ( ·Q “ {1Q}))
73 ffn 6705 . . . . . . . . 9 ( ·Q :(Q × Q)⟶Q → ·Q Fn (Q × Q))
74 fniniseg 7055 . . . . . . . . 9 ( ·Q Fn (Q × Q) → (⟨𝑥, 𝑦⟩ ∈ ( ·Q “ {1Q}) ↔ (⟨𝑥, 𝑦⟩ ∈ (Q × Q) ∧ ( ·Q ‘⟨𝑥, 𝑦⟩) = 1Q)))
758, 73, 74mp2b 10 . . . . . . . 8 (⟨𝑥, 𝑦⟩ ∈ ( ·Q “ {1Q}) ↔ (⟨𝑥, 𝑦⟩ ∈ (Q × Q) ∧ ( ·Q ‘⟨𝑥, 𝑦⟩) = 1Q))
76 ancom 465 . . . . . . . . 9 ((⟨𝑥, 𝑦⟩ ∈ (Q × Q) ∧ ( ·Q ‘⟨𝑥, 𝑦⟩) = 1Q) ↔ (( ·Q ‘⟨𝑥, 𝑦⟩) = 1Q ∧ ⟨𝑥, 𝑦⟩ ∈ (Q × Q)))
77 ancom 465 . . . . . . . . . 10 ((𝑥Q ∧ (𝑥 ·Q 𝑦) = 1Q) ↔ ((𝑥 ·Q 𝑦) = 1Q𝑥Q))
78 eleq1 2850 . . . . . . . . . . . . . . 15 ((𝑥 ·Q 𝑦) = 1Q → ((𝑥 ·Q 𝑦) ∈ Q ↔ 1QQ))
796, 78mpbiri 261 . . . . . . . . . . . . . 14 ((𝑥 ·Q 𝑦) = 1Q → (𝑥 ·Q 𝑦) ∈ Q)
809, 10ndmovrcl 7598 . . . . . . . . . . . . . 14 ((𝑥 ·Q 𝑦) ∈ Q → (𝑥Q𝑦Q))
8179, 80syl 18 . . . . . . . . . . . . 13 ((𝑥 ·Q 𝑦) = 1Q → (𝑥Q𝑦Q))
82 opelxpi 5697 . . . . . . . . . . . . 13 ((𝑥Q𝑦Q) → ⟨𝑥, 𝑦⟩ ∈ (Q × Q))
8381, 82syl 18 . . . . . . . . . . . 12 ((𝑥 ·Q 𝑦) = 1Q → ⟨𝑥, 𝑦⟩ ∈ (Q × Q))
8481simpld 499 . . . . . . . . . . . 12 ((𝑥 ·Q 𝑦) = 1Q𝑥Q)
8583, 842thd 268 . . . . . . . . . . 11 ((𝑥 ·Q 𝑦) = 1Q → (⟨𝑥, 𝑦⟩ ∈ (Q × Q) ↔ 𝑥Q))
8685pm5.32i 584 . . . . . . . . . 10 (((𝑥 ·Q 𝑦) = 1Q ∧ ⟨𝑥, 𝑦⟩ ∈ (Q × Q)) ↔ ((𝑥 ·Q 𝑦) = 1Q𝑥Q))
87 df-ov 7415 . . . . . . . . . . . 12 (𝑥 ·Q 𝑦) = ( ·Q ‘⟨𝑥, 𝑦⟩)
8887eqeq1i 2767 . . . . . . . . . . 11 ((𝑥 ·Q 𝑦) = 1Q ↔ ( ·Q ‘⟨𝑥, 𝑦⟩) = 1Q)
8988anbi1i 635 . . . . . . . . . 10 (((𝑥 ·Q 𝑦) = 1Q ∧ ⟨𝑥, 𝑦⟩ ∈ (Q × Q)) ↔ (( ·Q ‘⟨𝑥, 𝑦⟩) = 1Q ∧ ⟨𝑥, 𝑦⟩ ∈ (Q × Q)))
9077, 86, 893bitr2ri 303 . . . . . . . . 9 ((( ·Q ‘⟨𝑥, 𝑦⟩) = 1Q ∧ ⟨𝑥, 𝑦⟩ ∈ (Q × Q)) ↔ (𝑥Q ∧ (𝑥 ·Q 𝑦) = 1Q))
9176, 90bitri 278 . . . . . . . 8 ((⟨𝑥, 𝑦⟩ ∈ (Q × Q) ∧ ( ·Q ‘⟨𝑥, 𝑦⟩) = 1Q) ↔ (𝑥Q ∧ (𝑥 ·Q 𝑦) = 1Q))
9272, 75, 913bitri 300 . . . . . . 7 (⟨𝑥, 𝑦⟩ ∈ *Q ↔ (𝑥Q ∧ (𝑥 ·Q 𝑦) = 1Q))
9392a1i 11 . . . . . 6 (⊤ → (⟨𝑥, 𝑦⟩ ∈ *Q ↔ (𝑥Q ∧ (𝑥 ·Q 𝑦) = 1Q)))
9471, 93opabbi2dv 5834 . . . . 5 (⊤ → *Q = {⟨𝑥, 𝑦⟩ ∣ (𝑥Q ∧ (𝑥 ·Q 𝑦) = 1Q)})
9594mptru 1576 . . . 4 *Q = {⟨𝑥, 𝑦⟩ ∣ (𝑥Q ∧ (𝑥 ·Q 𝑦) = 1Q)}
9617, 19, 64, 95fvopab3g 6984 . . 3 ((𝐴Q𝐵 ∈ V) → ((*Q𝐴) = 𝐵 ↔ (𝐴 ·Q 𝐵) = 1Q))
9796ex 417 . 2 (𝐴Q → (𝐵 ∈ V → ((*Q𝐴) = 𝐵 ↔ (𝐴 ·Q 𝐵) = 1Q)))
984, 15, 97pm5.21ndd 382 1 (𝐴Q → ((*Q𝐴) = 𝐵 ↔ (𝐴 ·Q 𝐵) = 1Q))
Colors of variables:    wff setvar class
This proof depends on syntax axioms:  wi 4  wb 209  wa 400   = wceq 1569  wtru 1570  wex 1808  wcel 2142  ∃*wmo 2564  ∃!weu 2595  Vcvv 3454  wss 3904  {csn 4588  cop 4594   class class class wbr 5108  {copab 5172   × cxp 5658  ccnv 5659  dom cdm 5660  cima 5663  Rel wrel 5665   Fn wfn 6531  wf 6532  cfv 6536  (class class class)co 7412  1st c1st 7982  2nd c2nd 7983  Ncnpi 10835   ·N cmi 10837   ·pQ cmpq 10840   ~Q ceq 10842  Qcnq 10843  1Qc1q 10844  [Q]cerq 10845   ·Q cmq 10847  *Qcrq 10848
This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1824  ax-4 1838  ax-5 1939  ax-6 1996  ax-7 2037  ax-8 2144  ax-9 2152  ax-10 2175  ax-11 2191  ax-12 2212  ax-ext 2734  ax-sep 5256  ax-nul 5268  ax-pr 5403  ax-un 7734
This proof depends on definitions:  df-bi 210  df-an 401  df-or 861  df-3or 1103  df-3an 1104  df-tru 1572  df-fal 1582  df-ex 1809  df-nf 1813  df-sb 2096  df-mo 2566  df-eu 2596  df-clab 2741  df-cleq 2754  df-clel 2837  df-nfc 2911  df-ne 2958  df-ral 3079  df-rex 3089  df-rmo 3368  df-reu 3369  df-rab 3416  df-v 3456  df-sbc 3744  df-csb 3853  df-dif 3907  df-un 3909  df-in 3911  df-ss 3921  df-pss 3924  df-nul 4286  df-if 4487  df-pw 4563  df-sn 4589  df-pr 4591  df-op 4595  df-uni 4872  df-iun 4957  df-br 5109  df-opab 5173  df-mpt 5192  df-tr 5218  df-id 5555  df-eprel 5560  df-po 5568  df-so 5569  df-fr 5613  df-we 5615  df-xp 5666  df-rel 5667  df-cnv 5668  df-co 5669  df-dm 5670  df-rn 5671  df-res 5672  df-ima 5673  df-pred 6302  df-ord 6363  df-on 6364  df-lim 6365  df-suc 6366  df-iota 6492  df-fun 6538  df-fn 6539  df-f 6540  df-f1 6541  df-fo 6542  df-f1o 6543  df-fv 6544  df-ov 7415  df-oprab 7416  df-mpo 7417  df-om 7861  df-1st 7984  df-2nd 7985  df-frecs 8276  df-wrecs 8307  df-recs 8356  df-rdg 8395  df-1o 8451  df-oadd 8455  df-omul 8456  df-er 8692  df-ni 10863  df-mi 10865  df-lti 10866  df-mpq 10900  df-enq 10902  df-nq 10903  df-erq 10904  df-mq 10906  df-1nq 10907  df-rq 10908
This theorem is used by:  recidnq  10956  recrecnq  10958  reclem3pr  11040
  Copyright terms: Public domain W3C validator