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

Theorem ltmnq 9673
 Description: Ordering property of multiplication for positive fractions. Proposition 9-2.6(iii) of [Gleason] p. 120. (Contributed by NM, 6-Mar-1996.) (Revised by Mario Carneiro, 10-May-2013.) (New usage is discouraged.)
Assertion
Ref Expression
ltmnq (𝐶Q → (𝐴 <Q 𝐵 ↔ (𝐶 ·Q 𝐴) <Q (𝐶 ·Q 𝐵)))

Proof of Theorem ltmnq
Dummy variables 𝑥 𝑦 𝑧 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 mulnqf 9650 . . 3 ·Q :(Q × Q)⟶Q
21fdmi 5965 . 2 dom ·Q = (Q × Q)
3 ltrelnq 9627 . 2 <Q ⊆ (Q × Q)
4 0nnq 9625 . 2 ¬ ∅ ∈ Q
5 elpqn 9626 . . . . . . . . . 10 (𝐶Q𝐶 ∈ (N × N))
653ad2ant3 1077 . . . . . . . . 9 ((𝐴Q𝐵Q𝐶Q) → 𝐶 ∈ (N × N))
7 xp1st 7089 . . . . . . . . 9 (𝐶 ∈ (N × N) → (1st𝐶) ∈ N)
86, 7syl 17 . . . . . . . 8 ((𝐴Q𝐵Q𝐶Q) → (1st𝐶) ∈ N)
9 xp2nd 7090 . . . . . . . . 9 (𝐶 ∈ (N × N) → (2nd𝐶) ∈ N)
106, 9syl 17 . . . . . . . 8 ((𝐴Q𝐵Q𝐶Q) → (2nd𝐶) ∈ N)
11 mulclpi 9594 . . . . . . . 8 (((1st𝐶) ∈ N ∧ (2nd𝐶) ∈ N) → ((1st𝐶) ·N (2nd𝐶)) ∈ N)
128, 10, 11syl2anc 691 . . . . . . 7 ((𝐴Q𝐵Q𝐶Q) → ((1st𝐶) ·N (2nd𝐶)) ∈ N)
13 ltmpi 9605 . . . . . . 7 (((1st𝐶) ·N (2nd𝐶)) ∈ N → (((1st𝐴) ·N (2nd𝐵)) <N ((1st𝐵) ·N (2nd𝐴)) ↔ (((1st𝐶) ·N (2nd𝐶)) ·N ((1st𝐴) ·N (2nd𝐵))) <N (((1st𝐶) ·N (2nd𝐶)) ·N ((1st𝐵) ·N (2nd𝐴)))))
1412, 13syl 17 . . . . . 6 ((𝐴Q𝐵Q𝐶Q) → (((1st𝐴) ·N (2nd𝐵)) <N ((1st𝐵) ·N (2nd𝐴)) ↔ (((1st𝐶) ·N (2nd𝐶)) ·N ((1st𝐴) ·N (2nd𝐵))) <N (((1st𝐶) ·N (2nd𝐶)) ·N ((1st𝐵) ·N (2nd𝐴)))))
15 fvex 6113 . . . . . . . 8 (1st𝐶) ∈ V
16 fvex 6113 . . . . . . . 8 (2nd𝐶) ∈ V
17 fvex 6113 . . . . . . . 8 (1st𝐴) ∈ V
18 mulcompi 9597 . . . . . . . 8 (𝑥 ·N 𝑦) = (𝑦 ·N 𝑥)
19 mulasspi 9598 . . . . . . . 8 ((𝑥 ·N 𝑦) ·N 𝑧) = (𝑥 ·N (𝑦 ·N 𝑧))
20 fvex 6113 . . . . . . . 8 (2nd𝐵) ∈ V
2115, 16, 17, 18, 19, 20caov4 6763 . . . . . . 7 (((1st𝐶) ·N (2nd𝐶)) ·N ((1st𝐴) ·N (2nd𝐵))) = (((1st𝐶) ·N (1st𝐴)) ·N ((2nd𝐶) ·N (2nd𝐵)))
22 fvex 6113 . . . . . . . 8 (1st𝐵) ∈ V
23 fvex 6113 . . . . . . . 8 (2nd𝐴) ∈ V
2415, 16, 22, 18, 19, 23caov4 6763 . . . . . . 7 (((1st𝐶) ·N (2nd𝐶)) ·N ((1st𝐵) ·N (2nd𝐴))) = (((1st𝐶) ·N (1st𝐵)) ·N ((2nd𝐶) ·N (2nd𝐴)))
2521, 24breq12i 4592 . . . . . 6 ((((1st𝐶) ·N (2nd𝐶)) ·N ((1st𝐴) ·N (2nd𝐵))) <N (((1st𝐶) ·N (2nd𝐶)) ·N ((1st𝐵) ·N (2nd𝐴))) ↔ (((1st𝐶) ·N (1st𝐴)) ·N ((2nd𝐶) ·N (2nd𝐵))) <N (((1st𝐶) ·N (1st𝐵)) ·N ((2nd𝐶) ·N (2nd𝐴))))
2614, 25syl6bb 275 . . . . 5 ((𝐴Q𝐵Q𝐶Q) → (((1st𝐴) ·N (2nd𝐵)) <N ((1st𝐵) ·N (2nd𝐴)) ↔ (((1st𝐶) ·N (1st𝐴)) ·N ((2nd𝐶) ·N (2nd𝐵))) <N (((1st𝐶) ·N (1st𝐵)) ·N ((2nd𝐶) ·N (2nd𝐴)))))
27 ordpipq 9643 . . . . 5 (⟨((1st𝐶) ·N (1st𝐴)), ((2nd𝐶) ·N (2nd𝐴))⟩ <pQ ⟨((1st𝐶) ·N (1st𝐵)), ((2nd𝐶) ·N (2nd𝐵))⟩ ↔ (((1st𝐶) ·N (1st𝐴)) ·N ((2nd𝐶) ·N (2nd𝐵))) <N (((1st𝐶) ·N (1st𝐵)) ·N ((2nd𝐶) ·N (2nd𝐴))))
2826, 27syl6bbr 277 . . . 4 ((𝐴Q𝐵Q𝐶Q) → (((1st𝐴) ·N (2nd𝐵)) <N ((1st𝐵) ·N (2nd𝐴)) ↔ ⟨((1st𝐶) ·N (1st𝐴)), ((2nd𝐶) ·N (2nd𝐴))⟩ <pQ ⟨((1st𝐶) ·N (1st𝐵)), ((2nd𝐶) ·N (2nd𝐵))⟩))
29 elpqn 9626 . . . . . . 7 (𝐴Q𝐴 ∈ (N × N))
30293ad2ant1 1075 . . . . . 6 ((𝐴Q𝐵Q𝐶Q) → 𝐴 ∈ (N × N))
31 mulpipq2 9640 . . . . . 6 ((𝐶 ∈ (N × N) ∧ 𝐴 ∈ (N × N)) → (𝐶 ·pQ 𝐴) = ⟨((1st𝐶) ·N (1st𝐴)), ((2nd𝐶) ·N (2nd𝐴))⟩)
326, 30, 31syl2anc 691 . . . . 5 ((𝐴Q𝐵Q𝐶Q) → (𝐶 ·pQ 𝐴) = ⟨((1st𝐶) ·N (1st𝐴)), ((2nd𝐶) ·N (2nd𝐴))⟩)
33 elpqn 9626 . . . . . . 7 (𝐵Q𝐵 ∈ (N × N))
34333ad2ant2 1076 . . . . . 6 ((𝐴Q𝐵Q𝐶Q) → 𝐵 ∈ (N × N))
35 mulpipq2 9640 . . . . . 6 ((𝐶 ∈ (N × N) ∧ 𝐵 ∈ (N × N)) → (𝐶 ·pQ 𝐵) = ⟨((1st𝐶) ·N (1st𝐵)), ((2nd𝐶) ·N (2nd𝐵))⟩)
366, 34, 35syl2anc 691 . . . . 5 ((𝐴Q𝐵Q𝐶Q) → (𝐶 ·pQ 𝐵) = ⟨((1st𝐶) ·N (1st𝐵)), ((2nd𝐶) ·N (2nd𝐵))⟩)
3732, 36breq12d 4596 . . . 4 ((𝐴Q𝐵Q𝐶Q) → ((𝐶 ·pQ 𝐴) <pQ (𝐶 ·pQ 𝐵) ↔ ⟨((1st𝐶) ·N (1st𝐴)), ((2nd𝐶) ·N (2nd𝐴))⟩ <pQ ⟨((1st𝐶) ·N (1st𝐵)), ((2nd𝐶) ·N (2nd𝐵))⟩))
3828, 37bitr4d 270 . . 3 ((𝐴Q𝐵Q𝐶Q) → (((1st𝐴) ·N (2nd𝐵)) <N ((1st𝐵) ·N (2nd𝐴)) ↔ (𝐶 ·pQ 𝐴) <pQ (𝐶 ·pQ 𝐵)))
39 ordpinq 9644 . . . 4 ((𝐴Q𝐵Q) → (𝐴 <Q 𝐵 ↔ ((1st𝐴) ·N (2nd𝐵)) <N ((1st𝐵) ·N (2nd𝐴))))
40393adant3 1074 . . 3 ((𝐴Q𝐵Q𝐶Q) → (𝐴 <Q 𝐵 ↔ ((1st𝐴) ·N (2nd𝐵)) <N ((1st𝐵) ·N (2nd𝐴))))
41 mulpqnq 9642 . . . . . . 7 ((𝐶Q𝐴Q) → (𝐶 ·Q 𝐴) = ([Q]‘(𝐶 ·pQ 𝐴)))
4241ancoms 468 . . . . . 6 ((𝐴Q𝐶Q) → (𝐶 ·Q 𝐴) = ([Q]‘(𝐶 ·pQ 𝐴)))
43423adant2 1073 . . . . 5 ((𝐴Q𝐵Q𝐶Q) → (𝐶 ·Q 𝐴) = ([Q]‘(𝐶 ·pQ 𝐴)))
44 mulpqnq 9642 . . . . . . 7 ((𝐶Q𝐵Q) → (𝐶 ·Q 𝐵) = ([Q]‘(𝐶 ·pQ 𝐵)))
4544ancoms 468 . . . . . 6 ((𝐵Q𝐶Q) → (𝐶 ·Q 𝐵) = ([Q]‘(𝐶 ·pQ 𝐵)))
46453adant1 1072 . . . . 5 ((𝐴Q𝐵Q𝐶Q) → (𝐶 ·Q 𝐵) = ([Q]‘(𝐶 ·pQ 𝐵)))
4743, 46breq12d 4596 . . . 4 ((𝐴Q𝐵Q𝐶Q) → ((𝐶 ·Q 𝐴) <Q (𝐶 ·Q 𝐵) ↔ ([Q]‘(𝐶 ·pQ 𝐴)) <Q ([Q]‘(𝐶 ·pQ 𝐵))))
48 lterpq 9671 . . . 4 ((𝐶 ·pQ 𝐴) <pQ (𝐶 ·pQ 𝐵) ↔ ([Q]‘(𝐶 ·pQ 𝐴)) <Q ([Q]‘(𝐶 ·pQ 𝐵)))
4947, 48syl6bbr 277 . . 3 ((𝐴Q𝐵Q𝐶Q) → ((𝐶 ·Q 𝐴) <Q (𝐶 ·Q 𝐵) ↔ (𝐶 ·pQ 𝐴) <pQ (𝐶 ·pQ 𝐵)))
5038, 40, 493bitr4d 299 . 2 ((𝐴Q𝐵Q𝐶Q) → (𝐴 <Q 𝐵 ↔ (𝐶 ·Q 𝐴) <Q (𝐶 ·Q 𝐵)))
512, 3, 4, 50ndmovord 6722 1 (𝐶Q → (𝐴 <Q 𝐵 ↔ (𝐶 ·Q 𝐴) <Q (𝐶 ·Q 𝐵)))
 Colors of variables: wff setvar class Syntax hints:   → wi 4   ↔ wb 195   ∧ w3a 1031   = wceq 1475   ∈ wcel 1977  ⟨cop 4131   class class class wbr 4583   × cxp 5036  ‘cfv 5804  (class class class)co 6549  1st c1st 7057  2nd c2nd 7058  Ncnpi 9545   ·N cmi 9547
 Copyright terms: Public domain W3C validator