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

Theorem ltrnqg 7076
 Description: Ordering property of reciprocal for positive fractions. For a simplified version of the forward implication, see ltrnqi 7077. (Contributed by Jim Kingdon, 29-Dec-2019.)
Assertion
Ref Expression
ltrnqg ((𝐴Q𝐵Q) → (𝐴 <Q 𝐵 ↔ (*Q𝐵) <Q (*Q𝐴)))

Proof of Theorem ltrnqg
StepHypRef Expression
1 recclnq 7048 . . . 4 (𝐴Q → (*Q𝐴) ∈ Q)
2 recclnq 7048 . . . 4 (𝐵Q → (*Q𝐵) ∈ Q)
3 mulclnq 7032 . . . 4 (((*Q𝐴) ∈ Q ∧ (*Q𝐵) ∈ Q) → ((*Q𝐴) ·Q (*Q𝐵)) ∈ Q)
41, 2, 3syl2an 284 . . 3 ((𝐴Q𝐵Q) → ((*Q𝐴) ·Q (*Q𝐵)) ∈ Q)
5 ltmnqg 7057 . . 3 ((𝐴Q𝐵Q ∧ ((*Q𝐴) ·Q (*Q𝐵)) ∈ Q) → (𝐴 <Q 𝐵 ↔ (((*Q𝐴) ·Q (*Q𝐵)) ·Q 𝐴) <Q (((*Q𝐴) ·Q (*Q𝐵)) ·Q 𝐵)))
64, 5mpd3an3 1281 . 2 ((𝐴Q𝐵Q) → (𝐴 <Q 𝐵 ↔ (((*Q𝐴) ·Q (*Q𝐵)) ·Q 𝐴) <Q (((*Q𝐴) ·Q (*Q𝐵)) ·Q 𝐵)))
7 simpl 108 . . . . . 6 ((𝐴Q𝐵Q) → 𝐴Q)
8 mulcomnqg 7039 . . . . . 6 ((((*Q𝐴) ·Q (*Q𝐵)) ∈ Q𝐴Q) → (((*Q𝐴) ·Q (*Q𝐵)) ·Q 𝐴) = (𝐴 ·Q ((*Q𝐴) ·Q (*Q𝐵))))
94, 7, 8syl2anc 404 . . . . 5 ((𝐴Q𝐵Q) → (((*Q𝐴) ·Q (*Q𝐵)) ·Q 𝐴) = (𝐴 ·Q ((*Q𝐴) ·Q (*Q𝐵))))
101adantr 271 . . . . . 6 ((𝐴Q𝐵Q) → (*Q𝐴) ∈ Q)
112adantl 272 . . . . . 6 ((𝐴Q𝐵Q) → (*Q𝐵) ∈ Q)
12 mulassnqg 7040 . . . . . 6 ((𝐴Q ∧ (*Q𝐴) ∈ Q ∧ (*Q𝐵) ∈ Q) → ((𝐴 ·Q (*Q𝐴)) ·Q (*Q𝐵)) = (𝐴 ·Q ((*Q𝐴) ·Q (*Q𝐵))))
137, 10, 11, 12syl3anc 1181 . . . . 5 ((𝐴Q𝐵Q) → ((𝐴 ·Q (*Q𝐴)) ·Q (*Q𝐵)) = (𝐴 ·Q ((*Q𝐴) ·Q (*Q𝐵))))
14 mulclnq 7032 . . . . . . 7 ((𝐴Q ∧ (*Q𝐴) ∈ Q) → (𝐴 ·Q (*Q𝐴)) ∈ Q)
157, 10, 14syl2anc 404 . . . . . 6 ((𝐴Q𝐵Q) → (𝐴 ·Q (*Q𝐴)) ∈ Q)
16 mulcomnqg 7039 . . . . . 6 (((𝐴 ·Q (*Q𝐴)) ∈ Q ∧ (*Q𝐵) ∈ Q) → ((𝐴 ·Q (*Q𝐴)) ·Q (*Q𝐵)) = ((*Q𝐵) ·Q (𝐴 ·Q (*Q𝐴))))
1715, 11, 16syl2anc 404 . . . . 5 ((𝐴Q𝐵Q) → ((𝐴 ·Q (*Q𝐴)) ·Q (*Q𝐵)) = ((*Q𝐵) ·Q (𝐴 ·Q (*Q𝐴))))
189, 13, 173eqtr2d 2133 . . . 4 ((𝐴Q𝐵Q) → (((*Q𝐴) ·Q (*Q𝐵)) ·Q 𝐴) = ((*Q𝐵) ·Q (𝐴 ·Q (*Q𝐴))))
19 recidnq 7049 . . . . . 6 (𝐴Q → (𝐴 ·Q (*Q𝐴)) = 1Q)
2019oveq2d 5706 . . . . 5 (𝐴Q → ((*Q𝐵) ·Q (𝐴 ·Q (*Q𝐴))) = ((*Q𝐵) ·Q 1Q))
21 mulidnq 7045 . . . . . 6 ((*Q𝐵) ∈ Q → ((*Q𝐵) ·Q 1Q) = (*Q𝐵))
222, 21syl 14 . . . . 5 (𝐵Q → ((*Q𝐵) ·Q 1Q) = (*Q𝐵))
2320, 22sylan9eq 2147 . . . 4 ((𝐴Q𝐵Q) → ((*Q𝐵) ·Q (𝐴 ·Q (*Q𝐴))) = (*Q𝐵))
2418, 23eqtrd 2127 . . 3 ((𝐴Q𝐵Q) → (((*Q𝐴) ·Q (*Q𝐵)) ·Q 𝐴) = (*Q𝐵))
25 simpr 109 . . . . 5 ((𝐴Q𝐵Q) → 𝐵Q)
26 mulassnqg 7040 . . . . 5 (((*Q𝐴) ∈ Q ∧ (*Q𝐵) ∈ Q𝐵Q) → (((*Q𝐴) ·Q (*Q𝐵)) ·Q 𝐵) = ((*Q𝐴) ·Q ((*Q𝐵) ·Q 𝐵)))
2710, 11, 25, 26syl3anc 1181 . . . 4 ((𝐴Q𝐵Q) → (((*Q𝐴) ·Q (*Q𝐵)) ·Q 𝐵) = ((*Q𝐴) ·Q ((*Q𝐵) ·Q 𝐵)))
28 mulcomnqg 7039 . . . . . 6 (((*Q𝐵) ∈ Q𝐵Q) → ((*Q𝐵) ·Q 𝐵) = (𝐵 ·Q (*Q𝐵)))
2911, 25, 28syl2anc 404 . . . . 5 ((𝐴Q𝐵Q) → ((*Q𝐵) ·Q 𝐵) = (𝐵 ·Q (*Q𝐵)))
3029oveq2d 5706 . . . 4 ((𝐴Q𝐵Q) → ((*Q𝐴) ·Q ((*Q𝐵) ·Q 𝐵)) = ((*Q𝐴) ·Q (𝐵 ·Q (*Q𝐵))))
31 recidnq 7049 . . . . . 6 (𝐵Q → (𝐵 ·Q (*Q𝐵)) = 1Q)
3231oveq2d 5706 . . . . 5 (𝐵Q → ((*Q𝐴) ·Q (𝐵 ·Q (*Q𝐵))) = ((*Q𝐴) ·Q 1Q))
33 mulidnq 7045 . . . . . 6 ((*Q𝐴) ∈ Q → ((*Q𝐴) ·Q 1Q) = (*Q𝐴))
341, 33syl 14 . . . . 5 (𝐴Q → ((*Q𝐴) ·Q 1Q) = (*Q𝐴))
3532, 34sylan9eqr 2149 . . . 4 ((𝐴Q𝐵Q) → ((*Q𝐴) ·Q (𝐵 ·Q (*Q𝐵))) = (*Q𝐴))
3627, 30, 353eqtrd 2131 . . 3 ((𝐴Q𝐵Q) → (((*Q𝐴) ·Q (*Q𝐵)) ·Q 𝐵) = (*Q𝐴))
3724, 36breq12d 3880 . 2 ((𝐴Q𝐵Q) → ((((*Q𝐴) ·Q (*Q𝐵)) ·Q 𝐴) <Q (((*Q𝐴) ·Q (*Q𝐵)) ·Q 𝐵) ↔ (*Q𝐵) <Q (*Q𝐴)))
386, 37bitrd 187 1 ((𝐴Q𝐵Q) → (𝐴 <Q 𝐵 ↔ (*Q𝐵) <Q (*Q𝐴)))
 Colors of variables: wff set class Syntax hints:   → wi 4   ∧ wa 103   ↔ wb 104   = wceq 1296   ∈ wcel 1445   class class class wbr 3867  ‘cfv 5049  (class class class)co 5690  Qcnq 6936  1Qc1q 6937   ·Q cmq 6939  *Qcrq 6940
 Copyright terms: Public domain W3C validator