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

Theorem ltmnqg 7716
Description: Ordering property of multiplication for positive fractions. Proposition 9-2.6(iii) of [Gleason] p. 120. (Contributed by Jim Kingdon, 22-Sep-2019.)
Assertion
Ref Expression
ltmnqg ((𝐴Q𝐵Q𝐶Q) → (𝐴 <Q 𝐵 ↔ (𝐶 ·Q 𝐴) <Q (𝐶 ·Q 𝐵)))

Proof of Theorem ltmnqg
Dummy variables 𝑥 𝑦 𝑧 𝑤 𝑣 𝑢 𝑓 𝑔 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 df-nqqs 7663 . 2 Q = ((N × N) / ~Q )
2 breq1 4112 . . 3 ([⟨𝑥, 𝑦⟩] ~Q = 𝐴 → ([⟨𝑥, 𝑦⟩] ~Q <Q [⟨𝑧, 𝑤⟩] ~Q𝐴 <Q [⟨𝑧, 𝑤⟩] ~Q ))
3 oveq2 6058 . . . 4 ([⟨𝑥, 𝑦⟩] ~Q = 𝐴 → ([⟨𝑣, 𝑢⟩] ~Q ·Q [⟨𝑥, 𝑦⟩] ~Q ) = ([⟨𝑣, 𝑢⟩] ~Q ·Q 𝐴))
43breq1d 4119 . . 3 ([⟨𝑥, 𝑦⟩] ~Q = 𝐴 → (([⟨𝑣, 𝑢⟩] ~Q ·Q [⟨𝑥, 𝑦⟩] ~Q ) <Q ([⟨𝑣, 𝑢⟩] ~Q ·Q [⟨𝑧, 𝑤⟩] ~Q ) ↔ ([⟨𝑣, 𝑢⟩] ~Q ·Q 𝐴) <Q ([⟨𝑣, 𝑢⟩] ~Q ·Q [⟨𝑧, 𝑤⟩] ~Q )))
52, 4bibi12d 235 . 2 ([⟨𝑥, 𝑦⟩] ~Q = 𝐴 → (([⟨𝑥, 𝑦⟩] ~Q <Q [⟨𝑧, 𝑤⟩] ~Q ↔ ([⟨𝑣, 𝑢⟩] ~Q ·Q [⟨𝑥, 𝑦⟩] ~Q ) <Q ([⟨𝑣, 𝑢⟩] ~Q ·Q [⟨𝑧, 𝑤⟩] ~Q )) ↔ (𝐴 <Q [⟨𝑧, 𝑤⟩] ~Q ↔ ([⟨𝑣, 𝑢⟩] ~Q ·Q 𝐴) <Q ([⟨𝑣, 𝑢⟩] ~Q ·Q [⟨𝑧, 𝑤⟩] ~Q ))))
6 breq2 4113 . . 3 ([⟨𝑧, 𝑤⟩] ~Q = 𝐵 → (𝐴 <Q [⟨𝑧, 𝑤⟩] ~Q𝐴 <Q 𝐵))
7 oveq2 6058 . . . 4 ([⟨𝑧, 𝑤⟩] ~Q = 𝐵 → ([⟨𝑣, 𝑢⟩] ~Q ·Q [⟨𝑧, 𝑤⟩] ~Q ) = ([⟨𝑣, 𝑢⟩] ~Q ·Q 𝐵))
87breq2d 4121 . . 3 ([⟨𝑧, 𝑤⟩] ~Q = 𝐵 → (([⟨𝑣, 𝑢⟩] ~Q ·Q 𝐴) <Q ([⟨𝑣, 𝑢⟩] ~Q ·Q [⟨𝑧, 𝑤⟩] ~Q ) ↔ ([⟨𝑣, 𝑢⟩] ~Q ·Q 𝐴) <Q ([⟨𝑣, 𝑢⟩] ~Q ·Q 𝐵)))
96, 8bibi12d 235 . 2 ([⟨𝑧, 𝑤⟩] ~Q = 𝐵 → ((𝐴 <Q [⟨𝑧, 𝑤⟩] ~Q ↔ ([⟨𝑣, 𝑢⟩] ~Q ·Q 𝐴) <Q ([⟨𝑣, 𝑢⟩] ~Q ·Q [⟨𝑧, 𝑤⟩] ~Q )) ↔ (𝐴 <Q 𝐵 ↔ ([⟨𝑣, 𝑢⟩] ~Q ·Q 𝐴) <Q ([⟨𝑣, 𝑢⟩] ~Q ·Q 𝐵))))
10 oveq1 6057 . . . 4 ([⟨𝑣, 𝑢⟩] ~Q = 𝐶 → ([⟨𝑣, 𝑢⟩] ~Q ·Q 𝐴) = (𝐶 ·Q 𝐴))
11 oveq1 6057 . . . 4 ([⟨𝑣, 𝑢⟩] ~Q = 𝐶 → ([⟨𝑣, 𝑢⟩] ~Q ·Q 𝐵) = (𝐶 ·Q 𝐵))
1210, 11breq12d 4122 . . 3 ([⟨𝑣, 𝑢⟩] ~Q = 𝐶 → (([⟨𝑣, 𝑢⟩] ~Q ·Q 𝐴) <Q ([⟨𝑣, 𝑢⟩] ~Q ·Q 𝐵) ↔ (𝐶 ·Q 𝐴) <Q (𝐶 ·Q 𝐵)))
1312bibi2d 232 . 2 ([⟨𝑣, 𝑢⟩] ~Q = 𝐶 → ((𝐴 <Q 𝐵 ↔ ([⟨𝑣, 𝑢⟩] ~Q ·Q 𝐴) <Q ([⟨𝑣, 𝑢⟩] ~Q ·Q 𝐵)) ↔ (𝐴 <Q 𝐵 ↔ (𝐶 ·Q 𝐴) <Q (𝐶 ·Q 𝐵))))
14 mulclpi 7643 . . . . . . . 8 ((𝑓N𝑔N) → (𝑓 ·N 𝑔) ∈ N)
1514adantl 277 . . . . . . 7 ((((𝑥N𝑦N) ∧ (𝑧N𝑤N) ∧ (𝑣N𝑢N)) ∧ (𝑓N𝑔N)) → (𝑓 ·N 𝑔) ∈ N)
16 simp1l 1048 . . . . . . 7 (((𝑥N𝑦N) ∧ (𝑧N𝑤N) ∧ (𝑣N𝑢N)) → 𝑥N)
17 simp2r 1051 . . . . . . 7 (((𝑥N𝑦N) ∧ (𝑧N𝑤N) ∧ (𝑣N𝑢N)) → 𝑤N)
1815, 16, 17caovcld 6208 . . . . . 6 (((𝑥N𝑦N) ∧ (𝑧N𝑤N) ∧ (𝑣N𝑢N)) → (𝑥 ·N 𝑤) ∈ N)
19 simp1r 1049 . . . . . . 7 (((𝑥N𝑦N) ∧ (𝑧N𝑤N) ∧ (𝑣N𝑢N)) → 𝑦N)
20 simp2l 1050 . . . . . . 7 (((𝑥N𝑦N) ∧ (𝑧N𝑤N) ∧ (𝑣N𝑢N)) → 𝑧N)
2115, 19, 20caovcld 6208 . . . . . 6 (((𝑥N𝑦N) ∧ (𝑧N𝑤N) ∧ (𝑣N𝑢N)) → (𝑦 ·N 𝑧) ∈ N)
22 mulclpi 7643 . . . . . . 7 ((𝑣N𝑢N) → (𝑣 ·N 𝑢) ∈ N)
23223ad2ant3 1047 . . . . . 6 (((𝑥N𝑦N) ∧ (𝑧N𝑤N) ∧ (𝑣N𝑢N)) → (𝑣 ·N 𝑢) ∈ N)
24 ltmpig 7654 . . . . . 6 (((𝑥 ·N 𝑤) ∈ N ∧ (𝑦 ·N 𝑧) ∈ N ∧ (𝑣 ·N 𝑢) ∈ N) → ((𝑥 ·N 𝑤) <N (𝑦 ·N 𝑧) ↔ ((𝑣 ·N 𝑢) ·N (𝑥 ·N 𝑤)) <N ((𝑣 ·N 𝑢) ·N (𝑦 ·N 𝑧))))
2518, 21, 23, 24syl3anc 1274 . . . . 5 (((𝑥N𝑦N) ∧ (𝑧N𝑤N) ∧ (𝑣N𝑢N)) → ((𝑥 ·N 𝑤) <N (𝑦 ·N 𝑧) ↔ ((𝑣 ·N 𝑢) ·N (𝑥 ·N 𝑤)) <N ((𝑣 ·N 𝑢) ·N (𝑦 ·N 𝑧))))
26 simp3l 1052 . . . . . . 7 (((𝑥N𝑦N) ∧ (𝑧N𝑤N) ∧ (𝑣N𝑢N)) → 𝑣N)
27 simp3r 1053 . . . . . . 7 (((𝑥N𝑦N) ∧ (𝑧N𝑤N) ∧ (𝑣N𝑢N)) → 𝑢N)
28 mulcompig 7646 . . . . . . . 8 ((𝑓N𝑔N) → (𝑓 ·N 𝑔) = (𝑔 ·N 𝑓))
2928adantl 277 . . . . . . 7 ((((𝑥N𝑦N) ∧ (𝑧N𝑤N) ∧ (𝑣N𝑢N)) ∧ (𝑓N𝑔N)) → (𝑓 ·N 𝑔) = (𝑔 ·N 𝑓))
30 mulasspig 7647 . . . . . . . 8 ((𝑓N𝑔NN) → ((𝑓 ·N 𝑔) ·N ) = (𝑓 ·N (𝑔 ·N )))
3130adantl 277 . . . . . . 7 ((((𝑥N𝑦N) ∧ (𝑧N𝑤N) ∧ (𝑣N𝑢N)) ∧ (𝑓N𝑔NN)) → ((𝑓 ·N 𝑔) ·N ) = (𝑓 ·N (𝑔 ·N )))
3226, 16, 27, 29, 31, 17, 15caov4d 6239 . . . . . 6 (((𝑥N𝑦N) ∧ (𝑧N𝑤N) ∧ (𝑣N𝑢N)) → ((𝑣 ·N 𝑥) ·N (𝑢 ·N 𝑤)) = ((𝑣 ·N 𝑢) ·N (𝑥 ·N 𝑤)))
3327, 19, 26, 29, 31, 20, 15caov4d 6239 . . . . . . 7 (((𝑥N𝑦N) ∧ (𝑧N𝑤N) ∧ (𝑣N𝑢N)) → ((𝑢 ·N 𝑦) ·N (𝑣 ·N 𝑧)) = ((𝑢 ·N 𝑣) ·N (𝑦 ·N 𝑧)))
34 mulcompig 7646 . . . . . . . . . 10 ((𝑢N𝑣N) → (𝑢 ·N 𝑣) = (𝑣 ·N 𝑢))
3534oveq1d 6065 . . . . . . . . 9 ((𝑢N𝑣N) → ((𝑢 ·N 𝑣) ·N (𝑦 ·N 𝑧)) = ((𝑣 ·N 𝑢) ·N (𝑦 ·N 𝑧)))
3635ancoms 268 . . . . . . . 8 ((𝑣N𝑢N) → ((𝑢 ·N 𝑣) ·N (𝑦 ·N 𝑧)) = ((𝑣 ·N 𝑢) ·N (𝑦 ·N 𝑧)))
37363ad2ant3 1047 . . . . . . 7 (((𝑥N𝑦N) ∧ (𝑧N𝑤N) ∧ (𝑣N𝑢N)) → ((𝑢 ·N 𝑣) ·N (𝑦 ·N 𝑧)) = ((𝑣 ·N 𝑢) ·N (𝑦 ·N 𝑧)))
3833, 37eqtrd 2265 . . . . . 6 (((𝑥N𝑦N) ∧ (𝑧N𝑤N) ∧ (𝑣N𝑢N)) → ((𝑢 ·N 𝑦) ·N (𝑣 ·N 𝑧)) = ((𝑣 ·N 𝑢) ·N (𝑦 ·N 𝑧)))
3932, 38breq12d 4122 . . . . 5 (((𝑥N𝑦N) ∧ (𝑧N𝑤N) ∧ (𝑣N𝑢N)) → (((𝑣 ·N 𝑥) ·N (𝑢 ·N 𝑤)) <N ((𝑢 ·N 𝑦) ·N (𝑣 ·N 𝑧)) ↔ ((𝑣 ·N 𝑢) ·N (𝑥 ·N 𝑤)) <N ((𝑣 ·N 𝑢) ·N (𝑦 ·N 𝑧))))
4025, 39bitr4d 191 . . . 4 (((𝑥N𝑦N) ∧ (𝑧N𝑤N) ∧ (𝑣N𝑢N)) → ((𝑥 ·N 𝑤) <N (𝑦 ·N 𝑧) ↔ ((𝑣 ·N 𝑥) ·N (𝑢 ·N 𝑤)) <N ((𝑢 ·N 𝑦) ·N (𝑣 ·N 𝑧))))
41 ordpipqqs 7689 . . . . 5 (((𝑥N𝑦N) ∧ (𝑧N𝑤N)) → ([⟨𝑥, 𝑦⟩] ~Q <Q [⟨𝑧, 𝑤⟩] ~Q ↔ (𝑥 ·N 𝑤) <N (𝑦 ·N 𝑧)))
42413adant3 1044 . . . 4 (((𝑥N𝑦N) ∧ (𝑧N𝑤N) ∧ (𝑣N𝑢N)) → ([⟨𝑥, 𝑦⟩] ~Q <Q [⟨𝑧, 𝑤⟩] ~Q ↔ (𝑥 ·N 𝑤) <N (𝑦 ·N 𝑧)))
4315, 26, 16caovcld 6208 . . . . 5 (((𝑥N𝑦N) ∧ (𝑧N𝑤N) ∧ (𝑣N𝑢N)) → (𝑣 ·N 𝑥) ∈ N)
4415, 27, 19caovcld 6208 . . . . 5 (((𝑥N𝑦N) ∧ (𝑧N𝑤N) ∧ (𝑣N𝑢N)) → (𝑢 ·N 𝑦) ∈ N)
4515, 26, 20caovcld 6208 . . . . 5 (((𝑥N𝑦N) ∧ (𝑧N𝑤N) ∧ (𝑣N𝑢N)) → (𝑣 ·N 𝑧) ∈ N)
4615, 27, 17caovcld 6208 . . . . 5 (((𝑥N𝑦N) ∧ (𝑧N𝑤N) ∧ (𝑣N𝑢N)) → (𝑢 ·N 𝑤) ∈ N)
47 ordpipqqs 7689 . . . . 5 ((((𝑣 ·N 𝑥) ∈ N ∧ (𝑢 ·N 𝑦) ∈ N) ∧ ((𝑣 ·N 𝑧) ∈ N ∧ (𝑢 ·N 𝑤) ∈ N)) → ([⟨(𝑣 ·N 𝑥), (𝑢 ·N 𝑦)⟩] ~Q <Q [⟨(𝑣 ·N 𝑧), (𝑢 ·N 𝑤)⟩] ~Q ↔ ((𝑣 ·N 𝑥) ·N (𝑢 ·N 𝑤)) <N ((𝑢 ·N 𝑦) ·N (𝑣 ·N 𝑧))))
4843, 44, 45, 46, 47syl22anc 1275 . . . 4 (((𝑥N𝑦N) ∧ (𝑧N𝑤N) ∧ (𝑣N𝑢N)) → ([⟨(𝑣 ·N 𝑥), (𝑢 ·N 𝑦)⟩] ~Q <Q [⟨(𝑣 ·N 𝑧), (𝑢 ·N 𝑤)⟩] ~Q ↔ ((𝑣 ·N 𝑥) ·N (𝑢 ·N 𝑤)) <N ((𝑢 ·N 𝑦) ·N (𝑣 ·N 𝑧))))
4940, 42, 483bitr4d 220 . . 3 (((𝑥N𝑦N) ∧ (𝑧N𝑤N) ∧ (𝑣N𝑢N)) → ([⟨𝑥, 𝑦⟩] ~Q <Q [⟨𝑧, 𝑤⟩] ~Q ↔ [⟨(𝑣 ·N 𝑥), (𝑢 ·N 𝑦)⟩] ~Q <Q [⟨(𝑣 ·N 𝑧), (𝑢 ·N 𝑤)⟩] ~Q ))
50 mulpipqqs 7688 . . . . . 6 (((𝑣N𝑢N) ∧ (𝑥N𝑦N)) → ([⟨𝑣, 𝑢⟩] ~Q ·Q [⟨𝑥, 𝑦⟩] ~Q ) = [⟨(𝑣 ·N 𝑥), (𝑢 ·N 𝑦)⟩] ~Q )
5150ancoms 268 . . . . 5 (((𝑥N𝑦N) ∧ (𝑣N𝑢N)) → ([⟨𝑣, 𝑢⟩] ~Q ·Q [⟨𝑥, 𝑦⟩] ~Q ) = [⟨(𝑣 ·N 𝑥), (𝑢 ·N 𝑦)⟩] ~Q )
52513adant2 1043 . . . 4 (((𝑥N𝑦N) ∧ (𝑧N𝑤N) ∧ (𝑣N𝑢N)) → ([⟨𝑣, 𝑢⟩] ~Q ·Q [⟨𝑥, 𝑦⟩] ~Q ) = [⟨(𝑣 ·N 𝑥), (𝑢 ·N 𝑦)⟩] ~Q )
53 mulpipqqs 7688 . . . . . 6 (((𝑣N𝑢N) ∧ (𝑧N𝑤N)) → ([⟨𝑣, 𝑢⟩] ~Q ·Q [⟨𝑧, 𝑤⟩] ~Q ) = [⟨(𝑣 ·N 𝑧), (𝑢 ·N 𝑤)⟩] ~Q )
5453ancoms 268 . . . . 5 (((𝑧N𝑤N) ∧ (𝑣N𝑢N)) → ([⟨𝑣, 𝑢⟩] ~Q ·Q [⟨𝑧, 𝑤⟩] ~Q ) = [⟨(𝑣 ·N 𝑧), (𝑢 ·N 𝑤)⟩] ~Q )
55543adant1 1042 . . . 4 (((𝑥N𝑦N) ∧ (𝑧N𝑤N) ∧ (𝑣N𝑢N)) → ([⟨𝑣, 𝑢⟩] ~Q ·Q [⟨𝑧, 𝑤⟩] ~Q ) = [⟨(𝑣 ·N 𝑧), (𝑢 ·N 𝑤)⟩] ~Q )
5652, 55breq12d 4122 . . 3 (((𝑥N𝑦N) ∧ (𝑧N𝑤N) ∧ (𝑣N𝑢N)) → (([⟨𝑣, 𝑢⟩] ~Q ·Q [⟨𝑥, 𝑦⟩] ~Q ) <Q ([⟨𝑣, 𝑢⟩] ~Q ·Q [⟨𝑧, 𝑤⟩] ~Q ) ↔ [⟨(𝑣 ·N 𝑥), (𝑢 ·N 𝑦)⟩] ~Q <Q [⟨(𝑣 ·N 𝑧), (𝑢 ·N 𝑤)⟩] ~Q ))
5749, 56bitr4d 191 . 2 (((𝑥N𝑦N) ∧ (𝑧N𝑤N) ∧ (𝑣N𝑢N)) → ([⟨𝑥, 𝑦⟩] ~Q <Q [⟨𝑧, 𝑤⟩] ~Q ↔ ([⟨𝑣, 𝑢⟩] ~Q ·Q [⟨𝑥, 𝑦⟩] ~Q ) <Q ([⟨𝑣, 𝑢⟩] ~Q ·Q [⟨𝑧, 𝑤⟩] ~Q )))
581, 5, 9, 13, 573ecoptocl 6858 1 ((𝐴Q𝐵Q𝐶Q) → (𝐴 <Q 𝐵 ↔ (𝐶 ·Q 𝐴) <Q (𝐶 ·Q 𝐵)))
Colors of variables: wff set class
Syntax hints:  wi 4  wa 104  wb 105  w3a 1005   = wceq 1398  wcel 2203  cop 3692   class class class wbr 4109  (class class class)co 6050  [cec 6765  Ncnpi 7587   ·N cmi 7589   <N clti 7590   ~Q ceq 7594  Qcnq 7595   ·Q cmq 7598   <Q cltq 7600
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-ia1 106  ax-ia2 107  ax-ia3 108  ax-in1 619  ax-in2 620  ax-io 717  ax-5 1496  ax-7 1497  ax-gen 1498  ax-ie1 1542  ax-ie2 1543  ax-8 1553  ax-10 1554  ax-11 1555  ax-i12 1556  ax-bndl 1558  ax-4 1559  ax-17 1575  ax-i9 1579  ax-ial 1583  ax-i5r 1584  ax-13 2205  ax-14 2206  ax-ext 2214  ax-coll 4225  ax-sep 4228  ax-nul 4236  ax-pow 4287  ax-pr 4322  ax-un 4554  ax-setind 4659  ax-iinf 4710
This theorem depends on definitions:  df-bi 117  df-dc 843  df-3or 1006  df-3an 1007  df-tru 1401  df-fal 1404  df-nf 1510  df-sb 1812  df-eu 2083  df-mo 2084  df-clab 2219  df-cleq 2225  df-clel 2228  df-nfc 2373  df-ne 2413  df-ral 2525  df-rex 2526  df-reu 2527  df-rab 2529  df-v 2815  df-sbc 3043  df-csb 3139  df-dif 3213  df-un 3215  df-in 3217  df-ss 3224  df-nul 3509  df-pw 3671  df-sn 3695  df-pr 3696  df-op 3698  df-uni 3915  df-int 3950  df-iun 3993  df-br 4110  df-opab 4172  df-mpt 4173  df-tr 4209  df-eprel 4410  df-id 4414  df-iord 4487  df-on 4489  df-suc 4492  df-iom 4713  df-xp 4755  df-rel 4756  df-cnv 4757  df-co 4758  df-dm 4759  df-rn 4760  df-res 4761  df-ima 4762  df-iota 5312  df-fun 5354  df-fn 5355  df-f 5356  df-f1 5357  df-fo 5358  df-f1o 5359  df-fv 5360  df-ov 6053  df-oprab 6054  df-mpo 6055  df-1st 6334  df-2nd 6335  df-recs 6536  df-irdg 6601  df-oadd 6651  df-omul 6652  df-er 6767  df-ec 6769  df-qs 6773  df-ni 7619  df-mi 7621  df-lti 7622  df-mpq 7660  df-enq 7662  df-nqqs 7663  df-mqqs 7665  df-ltnqqs 7668
This theorem is referenced by:  ltmnqi  7718  lt2mulnq  7720  ltaddnq  7722  prarloclemarch  7733  prarloclemarch2  7734  ltrnqg  7735  prarloclemlt  7808  addnqprllem  7842  addnqprulem  7843  appdivnq  7878  mulnqprl  7883  mulnqpru  7884  mullocprlem  7885  mulclpr  7887  distrlem4prl  7899  distrlem4pru  7900  1idprl  7905  1idpru  7906  recexprlem1ssl  7948  recexprlem1ssu  7949
  Copyright terms: Public domain W3C validator