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

Theorem ltrnq 9680
 Description: Ordering property of reciprocal for positive fractions. Proposition 9-2.6(iv) of [Gleason] p. 120. (Contributed by NM, 9-Mar-1996.) (Revised by Mario Carneiro, 10-May-2013.) (New usage is discouraged.)
Assertion
Ref Expression
ltrnq (𝐴 <Q 𝐵 ↔ (*Q𝐵) <Q (*Q𝐴))

Proof of Theorem ltrnq
Dummy variables 𝑥 𝑦 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 ltrelnq 9627 . . 3 <Q ⊆ (Q × Q)
21brel 5090 . 2 (𝐴 <Q 𝐵 → (𝐴Q𝐵Q))
31brel 5090 . . 3 ((*Q𝐵) <Q (*Q𝐴) → ((*Q𝐵) ∈ Q ∧ (*Q𝐴) ∈ Q))
4 dmrecnq 9669 . . . . 5 dom *Q = Q
5 0nnq 9625 . . . . 5 ¬ ∅ ∈ Q
64, 5ndmfvrcl 6129 . . . 4 ((*Q𝐵) ∈ Q𝐵Q)
74, 5ndmfvrcl 6129 . . . 4 ((*Q𝐴) ∈ Q𝐴Q)
86, 7anim12ci 589 . . 3 (((*Q𝐵) ∈ Q ∧ (*Q𝐴) ∈ Q) → (𝐴Q𝐵Q))
93, 8syl 17 . 2 ((*Q𝐵) <Q (*Q𝐴) → (𝐴Q𝐵Q))
10 breq1 4586 . . . 4 (𝑥 = 𝐴 → (𝑥 <Q 𝑦𝐴 <Q 𝑦))
11 fveq2 6103 . . . . 5 (𝑥 = 𝐴 → (*Q𝑥) = (*Q𝐴))
1211breq2d 4595 . . . 4 (𝑥 = 𝐴 → ((*Q𝑦) <Q (*Q𝑥) ↔ (*Q𝑦) <Q (*Q𝐴)))
1310, 12bibi12d 334 . . 3 (𝑥 = 𝐴 → ((𝑥 <Q 𝑦 ↔ (*Q𝑦) <Q (*Q𝑥)) ↔ (𝐴 <Q 𝑦 ↔ (*Q𝑦) <Q (*Q𝐴))))
14 breq2 4587 . . . 4 (𝑦 = 𝐵 → (𝐴 <Q 𝑦𝐴 <Q 𝐵))
15 fveq2 6103 . . . . 5 (𝑦 = 𝐵 → (*Q𝑦) = (*Q𝐵))
1615breq1d 4593 . . . 4 (𝑦 = 𝐵 → ((*Q𝑦) <Q (*Q𝐴) ↔ (*Q𝐵) <Q (*Q𝐴)))
1714, 16bibi12d 334 . . 3 (𝑦 = 𝐵 → ((𝐴 <Q 𝑦 ↔ (*Q𝑦) <Q (*Q𝐴)) ↔ (𝐴 <Q 𝐵 ↔ (*Q𝐵) <Q (*Q𝐴))))
18 recclnq 9667 . . . . . 6 (𝑥Q → (*Q𝑥) ∈ Q)
19 recclnq 9667 . . . . . 6 (𝑦Q → (*Q𝑦) ∈ Q)
20 mulclnq 9648 . . . . . 6 (((*Q𝑥) ∈ Q ∧ (*Q𝑦) ∈ Q) → ((*Q𝑥) ·Q (*Q𝑦)) ∈ Q)
2118, 19, 20syl2an 493 . . . . 5 ((𝑥Q𝑦Q) → ((*Q𝑥) ·Q (*Q𝑦)) ∈ Q)
22 ltmnq 9673 . . . . 5 (((*Q𝑥) ·Q (*Q𝑦)) ∈ Q → (𝑥 <Q 𝑦 ↔ (((*Q𝑥) ·Q (*Q𝑦)) ·Q 𝑥) <Q (((*Q𝑥) ·Q (*Q𝑦)) ·Q 𝑦)))
2321, 22syl 17 . . . 4 ((𝑥Q𝑦Q) → (𝑥 <Q 𝑦 ↔ (((*Q𝑥) ·Q (*Q𝑦)) ·Q 𝑥) <Q (((*Q𝑥) ·Q (*Q𝑦)) ·Q 𝑦)))
24 mulcomnq 9654 . . . . . . 7 (((*Q𝑥) ·Q (*Q𝑦)) ·Q 𝑥) = (𝑥 ·Q ((*Q𝑥) ·Q (*Q𝑦)))
25 mulassnq 9660 . . . . . . 7 ((𝑥 ·Q (*Q𝑥)) ·Q (*Q𝑦)) = (𝑥 ·Q ((*Q𝑥) ·Q (*Q𝑦)))
26 mulcomnq 9654 . . . . . . 7 ((𝑥 ·Q (*Q𝑥)) ·Q (*Q𝑦)) = ((*Q𝑦) ·Q (𝑥 ·Q (*Q𝑥)))
2724, 25, 263eqtr2i 2638 . . . . . 6 (((*Q𝑥) ·Q (*Q𝑦)) ·Q 𝑥) = ((*Q𝑦) ·Q (𝑥 ·Q (*Q𝑥)))
28 recidnq 9666 . . . . . . . 8 (𝑥Q → (𝑥 ·Q (*Q𝑥)) = 1Q)
2928oveq2d 6565 . . . . . . 7 (𝑥Q → ((*Q𝑦) ·Q (𝑥 ·Q (*Q𝑥))) = ((*Q𝑦) ·Q 1Q))
30 mulidnq 9664 . . . . . . . 8 ((*Q𝑦) ∈ Q → ((*Q𝑦) ·Q 1Q) = (*Q𝑦))
3119, 30syl 17 . . . . . . 7 (𝑦Q → ((*Q𝑦) ·Q 1Q) = (*Q𝑦))
3229, 31sylan9eq 2664 . . . . . 6 ((𝑥Q𝑦Q) → ((*Q𝑦) ·Q (𝑥 ·Q (*Q𝑥))) = (*Q𝑦))
3327, 32syl5eq 2656 . . . . 5 ((𝑥Q𝑦Q) → (((*Q𝑥) ·Q (*Q𝑦)) ·Q 𝑥) = (*Q𝑦))
34 mulassnq 9660 . . . . . . 7 (((*Q𝑥) ·Q (*Q𝑦)) ·Q 𝑦) = ((*Q𝑥) ·Q ((*Q𝑦) ·Q 𝑦))
35 mulcomnq 9654 . . . . . . . 8 ((*Q𝑦) ·Q 𝑦) = (𝑦 ·Q (*Q𝑦))
3635oveq2i 6560 . . . . . . 7 ((*Q𝑥) ·Q ((*Q𝑦) ·Q 𝑦)) = ((*Q𝑥) ·Q (𝑦 ·Q (*Q𝑦)))
3734, 36eqtri 2632 . . . . . 6 (((*Q𝑥) ·Q (*Q𝑦)) ·Q 𝑦) = ((*Q𝑥) ·Q (𝑦 ·Q (*Q𝑦)))
38 recidnq 9666 . . . . . . . 8 (𝑦Q → (𝑦 ·Q (*Q𝑦)) = 1Q)
3938oveq2d 6565 . . . . . . 7 (𝑦Q → ((*Q𝑥) ·Q (𝑦 ·Q (*Q𝑦))) = ((*Q𝑥) ·Q 1Q))
40 mulidnq 9664 . . . . . . . 8 ((*Q𝑥) ∈ Q → ((*Q𝑥) ·Q 1Q) = (*Q𝑥))
4118, 40syl 17 . . . . . . 7 (𝑥Q → ((*Q𝑥) ·Q 1Q) = (*Q𝑥))
4239, 41sylan9eqr 2666 . . . . . 6 ((𝑥Q𝑦Q) → ((*Q𝑥) ·Q (𝑦 ·Q (*Q𝑦))) = (*Q𝑥))
4337, 42syl5eq 2656 . . . . 5 ((𝑥Q𝑦Q) → (((*Q𝑥) ·Q (*Q𝑦)) ·Q 𝑦) = (*Q𝑥))
4433, 43breq12d 4596 . . . 4 ((𝑥Q𝑦Q) → ((((*Q𝑥) ·Q (*Q𝑦)) ·Q 𝑥) <Q (((*Q𝑥) ·Q (*Q𝑦)) ·Q 𝑦) ↔ (*Q𝑦) <Q (*Q𝑥)))
4523, 44bitrd 267 . . 3 ((𝑥Q𝑦Q) → (𝑥 <Q 𝑦 ↔ (*Q𝑦) <Q (*Q𝑥)))
4613, 17, 45vtocl2ga 3247 . 2 ((𝐴Q𝐵Q) → (𝐴 <Q 𝐵 ↔ (*Q𝐵) <Q (*Q𝐴)))
472, 9, 46pm5.21nii 367 1 (𝐴 <Q 𝐵 ↔ (*Q𝐵) <Q (*Q𝐴))
 Colors of variables: wff setvar class Syntax hints:   ↔ wb 195   ∧ wa 383   = wceq 1475   ∈ wcel 1977   class class class wbr 4583  ‘cfv 5804  (class class class)co 6549  Qcnq 9553  1Qc1q 9554   ·Q cmq 9557  *Qcrq 9558
 Copyright terms: Public domain W3C validator