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

Theorem ltanqg 7341
Description: Ordering property of addition for positive fractions. Proposition 9-2.6(ii) of [Gleason] p. 120. (Contributed by Jim Kingdon, 22-Sep-2019.)
Assertion
Ref Expression
ltanqg ((𝐴Q𝐵Q𝐶Q) → (𝐴 <Q 𝐵 ↔ (𝐶 +Q 𝐴) <Q (𝐶 +Q 𝐵)))

Proof of Theorem ltanqg
Dummy variables 𝑥 𝑦 𝑧 𝑤 𝑣 𝑢 𝑓 𝑔 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 df-nqqs 7289 . 2 Q = ((N × N) / ~Q )
2 breq1 3985 . . 3 ([⟨𝑥, 𝑦⟩] ~Q = 𝐴 → ([⟨𝑥, 𝑦⟩] ~Q <Q [⟨𝑧, 𝑤⟩] ~Q𝐴 <Q [⟨𝑧, 𝑤⟩] ~Q ))
3 oveq2 5850 . . . 4 ([⟨𝑥, 𝑦⟩] ~Q = 𝐴 → ([⟨𝑣, 𝑢⟩] ~Q +Q [⟨𝑥, 𝑦⟩] ~Q ) = ([⟨𝑣, 𝑢⟩] ~Q +Q 𝐴))
43breq1d 3992 . . 3 ([⟨𝑥, 𝑦⟩] ~Q = 𝐴 → (([⟨𝑣, 𝑢⟩] ~Q +Q [⟨𝑥, 𝑦⟩] ~Q ) <Q ([⟨𝑣, 𝑢⟩] ~Q +Q [⟨𝑧, 𝑤⟩] ~Q ) ↔ ([⟨𝑣, 𝑢⟩] ~Q +Q 𝐴) <Q ([⟨𝑣, 𝑢⟩] ~Q +Q [⟨𝑧, 𝑤⟩] ~Q )))
52, 4bibi12d 234 . 2 ([⟨𝑥, 𝑦⟩] ~Q = 𝐴 → (([⟨𝑥, 𝑦⟩] ~Q <Q [⟨𝑧, 𝑤⟩] ~Q ↔ ([⟨𝑣, 𝑢⟩] ~Q +Q [⟨𝑥, 𝑦⟩] ~Q ) <Q ([⟨𝑣, 𝑢⟩] ~Q +Q [⟨𝑧, 𝑤⟩] ~Q )) ↔ (𝐴 <Q [⟨𝑧, 𝑤⟩] ~Q ↔ ([⟨𝑣, 𝑢⟩] ~Q +Q 𝐴) <Q ([⟨𝑣, 𝑢⟩] ~Q +Q [⟨𝑧, 𝑤⟩] ~Q ))))
6 breq2 3986 . . 3 ([⟨𝑧, 𝑤⟩] ~Q = 𝐵 → (𝐴 <Q [⟨𝑧, 𝑤⟩] ~Q𝐴 <Q 𝐵))
7 oveq2 5850 . . . 4 ([⟨𝑧, 𝑤⟩] ~Q = 𝐵 → ([⟨𝑣, 𝑢⟩] ~Q +Q [⟨𝑧, 𝑤⟩] ~Q ) = ([⟨𝑣, 𝑢⟩] ~Q +Q 𝐵))
87breq2d 3994 . . 3 ([⟨𝑧, 𝑤⟩] ~Q = 𝐵 → (([⟨𝑣, 𝑢⟩] ~Q +Q 𝐴) <Q ([⟨𝑣, 𝑢⟩] ~Q +Q [⟨𝑧, 𝑤⟩] ~Q ) ↔ ([⟨𝑣, 𝑢⟩] ~Q +Q 𝐴) <Q ([⟨𝑣, 𝑢⟩] ~Q +Q 𝐵)))
96, 8bibi12d 234 . 2 ([⟨𝑧, 𝑤⟩] ~Q = 𝐵 → ((𝐴 <Q [⟨𝑧, 𝑤⟩] ~Q ↔ ([⟨𝑣, 𝑢⟩] ~Q +Q 𝐴) <Q ([⟨𝑣, 𝑢⟩] ~Q +Q [⟨𝑧, 𝑤⟩] ~Q )) ↔ (𝐴 <Q 𝐵 ↔ ([⟨𝑣, 𝑢⟩] ~Q +Q 𝐴) <Q ([⟨𝑣, 𝑢⟩] ~Q +Q 𝐵))))
10 oveq1 5849 . . . 4 ([⟨𝑣, 𝑢⟩] ~Q = 𝐶 → ([⟨𝑣, 𝑢⟩] ~Q +Q 𝐴) = (𝐶 +Q 𝐴))
11 oveq1 5849 . . . 4 ([⟨𝑣, 𝑢⟩] ~Q = 𝐶 → ([⟨𝑣, 𝑢⟩] ~Q +Q 𝐵) = (𝐶 +Q 𝐵))
1210, 11breq12d 3995 . . 3 ([⟨𝑣, 𝑢⟩] ~Q = 𝐶 → (([⟨𝑣, 𝑢⟩] ~Q +Q 𝐴) <Q ([⟨𝑣, 𝑢⟩] ~Q +Q 𝐵) ↔ (𝐶 +Q 𝐴) <Q (𝐶 +Q 𝐵)))
1312bibi2d 231 . 2 ([⟨𝑣, 𝑢⟩] ~Q = 𝐶 → ((𝐴 <Q 𝐵 ↔ ([⟨𝑣, 𝑢⟩] ~Q +Q 𝐴) <Q ([⟨𝑣, 𝑢⟩] ~Q +Q 𝐵)) ↔ (𝐴 <Q 𝐵 ↔ (𝐶 +Q 𝐴) <Q (𝐶 +Q 𝐵))))
14 addclpi 7268 . . . . . 6 ((𝑓N𝑔N) → (𝑓 +N 𝑔) ∈ N)
1514adantl 275 . . . . 5 ((((𝑥N𝑦N) ∧ (𝑧N𝑤N) ∧ (𝑣N𝑢N)) ∧ (𝑓N𝑔N)) → (𝑓 +N 𝑔) ∈ N)
16 simp3l 1015 . . . . . 6 (((𝑥N𝑦N) ∧ (𝑧N𝑤N) ∧ (𝑣N𝑢N)) → 𝑣N)
17 simp1r 1012 . . . . . 6 (((𝑥N𝑦N) ∧ (𝑧N𝑤N) ∧ (𝑣N𝑢N)) → 𝑦N)
18 mulclpi 7269 . . . . . 6 ((𝑣N𝑦N) → (𝑣 ·N 𝑦) ∈ N)
1916, 17, 18syl2anc 409 . . . . 5 (((𝑥N𝑦N) ∧ (𝑧N𝑤N) ∧ (𝑣N𝑢N)) → (𝑣 ·N 𝑦) ∈ N)
20 simp3r 1016 . . . . . 6 (((𝑥N𝑦N) ∧ (𝑧N𝑤N) ∧ (𝑣N𝑢N)) → 𝑢N)
21 simp1l 1011 . . . . . 6 (((𝑥N𝑦N) ∧ (𝑧N𝑤N) ∧ (𝑣N𝑢N)) → 𝑥N)
22 mulclpi 7269 . . . . . 6 ((𝑢N𝑥N) → (𝑢 ·N 𝑥) ∈ N)
2320, 21, 22syl2anc 409 . . . . 5 (((𝑥N𝑦N) ∧ (𝑧N𝑤N) ∧ (𝑣N𝑢N)) → (𝑢 ·N 𝑥) ∈ N)
2415, 19, 23caovcld 5995 . . . 4 (((𝑥N𝑦N) ∧ (𝑧N𝑤N) ∧ (𝑣N𝑢N)) → ((𝑣 ·N 𝑦) +N (𝑢 ·N 𝑥)) ∈ N)
25 mulclpi 7269 . . . . 5 ((𝑢N𝑦N) → (𝑢 ·N 𝑦) ∈ N)
2620, 17, 25syl2anc 409 . . . 4 (((𝑥N𝑦N) ∧ (𝑧N𝑤N) ∧ (𝑣N𝑢N)) → (𝑢 ·N 𝑦) ∈ N)
27 mulclpi 7269 . . . . . . 7 ((𝑓N𝑔N) → (𝑓 ·N 𝑔) ∈ N)
2827adantl 275 . . . . . 6 ((((𝑥N𝑦N) ∧ (𝑧N𝑤N) ∧ (𝑣N𝑢N)) ∧ (𝑓N𝑔N)) → (𝑓 ·N 𝑔) ∈ N)
29 simp2r 1014 . . . . . 6 (((𝑥N𝑦N) ∧ (𝑧N𝑤N) ∧ (𝑣N𝑢N)) → 𝑤N)
3028, 16, 29caovcld 5995 . . . . 5 (((𝑥N𝑦N) ∧ (𝑧N𝑤N) ∧ (𝑣N𝑢N)) → (𝑣 ·N 𝑤) ∈ N)
31 simp2l 1013 . . . . . 6 (((𝑥N𝑦N) ∧ (𝑧N𝑤N) ∧ (𝑣N𝑢N)) → 𝑧N)
32 mulclpi 7269 . . . . . 6 ((𝑢N𝑧N) → (𝑢 ·N 𝑧) ∈ N)
3320, 31, 32syl2anc 409 . . . . 5 (((𝑥N𝑦N) ∧ (𝑧N𝑤N) ∧ (𝑣N𝑢N)) → (𝑢 ·N 𝑧) ∈ N)
3415, 30, 33caovcld 5995 . . . 4 (((𝑥N𝑦N) ∧ (𝑧N𝑤N) ∧ (𝑣N𝑢N)) → ((𝑣 ·N 𝑤) +N (𝑢 ·N 𝑧)) ∈ N)
35 mulclpi 7269 . . . . 5 ((𝑢N𝑤N) → (𝑢 ·N 𝑤) ∈ N)
3620, 29, 35syl2anc 409 . . . 4 (((𝑥N𝑦N) ∧ (𝑧N𝑤N) ∧ (𝑣N𝑢N)) → (𝑢 ·N 𝑤) ∈ N)
37 ordpipqqs 7315 . . . 4 (((((𝑣 ·N 𝑦) +N (𝑢 ·N 𝑥)) ∈ N ∧ (𝑢 ·N 𝑦) ∈ N) ∧ (((𝑣 ·N 𝑤) +N (𝑢 ·N 𝑧)) ∈ N ∧ (𝑢 ·N 𝑤) ∈ N)) → ([⟨((𝑣 ·N 𝑦) +N (𝑢 ·N 𝑥)), (𝑢 ·N 𝑦)⟩] ~Q <Q [⟨((𝑣 ·N 𝑤) +N (𝑢 ·N 𝑧)), (𝑢 ·N 𝑤)⟩] ~Q ↔ (((𝑣 ·N 𝑦) +N (𝑢 ·N 𝑥)) ·N (𝑢 ·N 𝑤)) <N ((𝑢 ·N 𝑦) ·N ((𝑣 ·N 𝑤) +N (𝑢 ·N 𝑧)))))
3824, 26, 34, 36, 37syl22anc 1229 . . 3 (((𝑥N𝑦N) ∧ (𝑧N𝑤N) ∧ (𝑣N𝑢N)) → ([⟨((𝑣 ·N 𝑦) +N (𝑢 ·N 𝑥)), (𝑢 ·N 𝑦)⟩] ~Q <Q [⟨((𝑣 ·N 𝑤) +N (𝑢 ·N 𝑧)), (𝑢 ·N 𝑤)⟩] ~Q ↔ (((𝑣 ·N 𝑦) +N (𝑢 ·N 𝑥)) ·N (𝑢 ·N 𝑤)) <N ((𝑢 ·N 𝑦) ·N ((𝑣 ·N 𝑤) +N (𝑢 ·N 𝑧)))))
39 simp3 989 . . . . 5 (((𝑥N𝑦N) ∧ (𝑧N𝑤N) ∧ (𝑣N𝑢N)) → (𝑣N𝑢N))
40 simp1 987 . . . . 5 (((𝑥N𝑦N) ∧ (𝑧N𝑤N) ∧ (𝑣N𝑢N)) → (𝑥N𝑦N))
41 addpipqqs 7311 . . . . 5 (((𝑣N𝑢N) ∧ (𝑥N𝑦N)) → ([⟨𝑣, 𝑢⟩] ~Q +Q [⟨𝑥, 𝑦⟩] ~Q ) = [⟨((𝑣 ·N 𝑦) +N (𝑢 ·N 𝑥)), (𝑢 ·N 𝑦)⟩] ~Q )
4239, 40, 41syl2anc 409 . . . 4 (((𝑥N𝑦N) ∧ (𝑧N𝑤N) ∧ (𝑣N𝑢N)) → ([⟨𝑣, 𝑢⟩] ~Q +Q [⟨𝑥, 𝑦⟩] ~Q ) = [⟨((𝑣 ·N 𝑦) +N (𝑢 ·N 𝑥)), (𝑢 ·N 𝑦)⟩] ~Q )
43 simp2 988 . . . . 5 (((𝑥N𝑦N) ∧ (𝑧N𝑤N) ∧ (𝑣N𝑢N)) → (𝑧N𝑤N))
44 addpipqqs 7311 . . . . 5 (((𝑣N𝑢N) ∧ (𝑧N𝑤N)) → ([⟨𝑣, 𝑢⟩] ~Q +Q [⟨𝑧, 𝑤⟩] ~Q ) = [⟨((𝑣 ·N 𝑤) +N (𝑢 ·N 𝑧)), (𝑢 ·N 𝑤)⟩] ~Q )
4539, 43, 44syl2anc 409 . . . 4 (((𝑥N𝑦N) ∧ (𝑧N𝑤N) ∧ (𝑣N𝑢N)) → ([⟨𝑣, 𝑢⟩] ~Q +Q [⟨𝑧, 𝑤⟩] ~Q ) = [⟨((𝑣 ·N 𝑤) +N (𝑢 ·N 𝑧)), (𝑢 ·N 𝑤)⟩] ~Q )
4642, 45breq12d 3995 . . 3 (((𝑥N𝑦N) ∧ (𝑧N𝑤N) ∧ (𝑣N𝑢N)) → (([⟨𝑣, 𝑢⟩] ~Q +Q [⟨𝑥, 𝑦⟩] ~Q ) <Q ([⟨𝑣, 𝑢⟩] ~Q +Q [⟨𝑧, 𝑤⟩] ~Q ) ↔ [⟨((𝑣 ·N 𝑦) +N (𝑢 ·N 𝑥)), (𝑢 ·N 𝑦)⟩] ~Q <Q [⟨((𝑣 ·N 𝑤) +N (𝑢 ·N 𝑧)), (𝑢 ·N 𝑤)⟩] ~Q ))
47 ordpipqqs 7315 . . . . 5 (((𝑥N𝑦N) ∧ (𝑧N𝑤N)) → ([⟨𝑥, 𝑦⟩] ~Q <Q [⟨𝑧, 𝑤⟩] ~Q ↔ (𝑥 ·N 𝑤) <N (𝑦 ·N 𝑧)))
48473adant3 1007 . . . 4 (((𝑥N𝑦N) ∧ (𝑧N𝑤N) ∧ (𝑣N𝑢N)) → ([⟨𝑥, 𝑦⟩] ~Q <Q [⟨𝑧, 𝑤⟩] ~Q ↔ (𝑥 ·N 𝑤) <N (𝑦 ·N 𝑧)))
49 mulclpi 7269 . . . . . 6 ((𝑥N𝑤N) → (𝑥 ·N 𝑤) ∈ N)
5021, 29, 49syl2anc 409 . . . . 5 (((𝑥N𝑦N) ∧ (𝑧N𝑤N) ∧ (𝑣N𝑢N)) → (𝑥 ·N 𝑤) ∈ N)
51 mulclpi 7269 . . . . . 6 ((𝑦N𝑧N) → (𝑦 ·N 𝑧) ∈ N)
5217, 31, 51syl2anc 409 . . . . 5 (((𝑥N𝑦N) ∧ (𝑧N𝑤N) ∧ (𝑣N𝑢N)) → (𝑦 ·N 𝑧) ∈ N)
53 mulclpi 7269 . . . . . 6 ((𝑢N𝑢N) → (𝑢 ·N 𝑢) ∈ N)
5420, 20, 53syl2anc 409 . . . . 5 (((𝑥N𝑦N) ∧ (𝑧N𝑤N) ∧ (𝑣N𝑢N)) → (𝑢 ·N 𝑢) ∈ N)
55 ltmpig 7280 . . . . 5 (((𝑥 ·N 𝑤) ∈ N ∧ (𝑦 ·N 𝑧) ∈ N ∧ (𝑢 ·N 𝑢) ∈ N) → ((𝑥 ·N 𝑤) <N (𝑦 ·N 𝑧) ↔ ((𝑢 ·N 𝑢) ·N (𝑥 ·N 𝑤)) <N ((𝑢 ·N 𝑢) ·N (𝑦 ·N 𝑧))))
5650, 52, 54, 55syl3anc 1228 . . . 4 (((𝑥N𝑦N) ∧ (𝑧N𝑤N) ∧ (𝑣N𝑢N)) → ((𝑥 ·N 𝑤) <N (𝑦 ·N 𝑧) ↔ ((𝑢 ·N 𝑢) ·N (𝑥 ·N 𝑤)) <N ((𝑢 ·N 𝑢) ·N (𝑦 ·N 𝑧))))
57 mulclpi 7269 . . . . . . 7 (((𝑢 ·N 𝑥) ∈ N ∧ (𝑢 ·N 𝑤) ∈ N) → ((𝑢 ·N 𝑥) ·N (𝑢 ·N 𝑤)) ∈ N)
5823, 36, 57syl2anc 409 . . . . . 6 (((𝑥N𝑦N) ∧ (𝑧N𝑤N) ∧ (𝑣N𝑢N)) → ((𝑢 ·N 𝑥) ·N (𝑢 ·N 𝑤)) ∈ N)
59 mulclpi 7269 . . . . . . 7 (((𝑢 ·N 𝑦) ∈ N ∧ (𝑢 ·N 𝑧) ∈ N) → ((𝑢 ·N 𝑦) ·N (𝑢 ·N 𝑧)) ∈ N)
6026, 33, 59syl2anc 409 . . . . . 6 (((𝑥N𝑦N) ∧ (𝑧N𝑤N) ∧ (𝑣N𝑢N)) → ((𝑢 ·N 𝑦) ·N (𝑢 ·N 𝑧)) ∈ N)
61 mulclpi 7269 . . . . . . 7 (((𝑣 ·N 𝑦) ∈ N ∧ (𝑢 ·N 𝑤) ∈ N) → ((𝑣 ·N 𝑦) ·N (𝑢 ·N 𝑤)) ∈ N)
6219, 36, 61syl2anc 409 . . . . . 6 (((𝑥N𝑦N) ∧ (𝑧N𝑤N) ∧ (𝑣N𝑢N)) → ((𝑣 ·N 𝑦) ·N (𝑢 ·N 𝑤)) ∈ N)
63 ltapig 7279 . . . . . 6 ((((𝑢 ·N 𝑥) ·N (𝑢 ·N 𝑤)) ∈ N ∧ ((𝑢 ·N 𝑦) ·N (𝑢 ·N 𝑧)) ∈ N ∧ ((𝑣 ·N 𝑦) ·N (𝑢 ·N 𝑤)) ∈ N) → (((𝑢 ·N 𝑥) ·N (𝑢 ·N 𝑤)) <N ((𝑢 ·N 𝑦) ·N (𝑢 ·N 𝑧)) ↔ (((𝑣 ·N 𝑦) ·N (𝑢 ·N 𝑤)) +N ((𝑢 ·N 𝑥) ·N (𝑢 ·N 𝑤))) <N (((𝑣 ·N 𝑦) ·N (𝑢 ·N 𝑤)) +N ((𝑢 ·N 𝑦) ·N (𝑢 ·N 𝑧)))))
6458, 60, 62, 63syl3anc 1228 . . . . 5 (((𝑥N𝑦N) ∧ (𝑧N𝑤N) ∧ (𝑣N𝑢N)) → (((𝑢 ·N 𝑥) ·N (𝑢 ·N 𝑤)) <N ((𝑢 ·N 𝑦) ·N (𝑢 ·N 𝑧)) ↔ (((𝑣 ·N 𝑦) ·N (𝑢 ·N 𝑤)) +N ((𝑢 ·N 𝑥) ·N (𝑢 ·N 𝑤))) <N (((𝑣 ·N 𝑦) ·N (𝑢 ·N 𝑤)) +N ((𝑢 ·N 𝑦) ·N (𝑢 ·N 𝑧)))))
65 mulcompig 7272 . . . . . . . 8 ((𝑓N𝑔N) → (𝑓 ·N 𝑔) = (𝑔 ·N 𝑓))
6665adantl 275 . . . . . . 7 ((((𝑥N𝑦N) ∧ (𝑧N𝑤N) ∧ (𝑣N𝑢N)) ∧ (𝑓N𝑔N)) → (𝑓 ·N 𝑔) = (𝑔 ·N 𝑓))
67 mulasspig 7273 . . . . . . . 8 ((𝑓N𝑔NN) → ((𝑓 ·N 𝑔) ·N ) = (𝑓 ·N (𝑔 ·N )))
6867adantl 275 . . . . . . 7 ((((𝑥N𝑦N) ∧ (𝑧N𝑤N) ∧ (𝑣N𝑢N)) ∧ (𝑓N𝑔NN)) → ((𝑓 ·N 𝑔) ·N ) = (𝑓 ·N (𝑔 ·N )))
6920, 20, 21, 66, 68, 29, 28caov4d 6026 . . . . . 6 (((𝑥N𝑦N) ∧ (𝑧N𝑤N) ∧ (𝑣N𝑢N)) → ((𝑢 ·N 𝑢) ·N (𝑥 ·N 𝑤)) = ((𝑢 ·N 𝑥) ·N (𝑢 ·N 𝑤)))
7020, 20, 17, 66, 68, 31, 28caov4d 6026 . . . . . 6 (((𝑥N𝑦N) ∧ (𝑧N𝑤N) ∧ (𝑣N𝑢N)) → ((𝑢 ·N 𝑢) ·N (𝑦 ·N 𝑧)) = ((𝑢 ·N 𝑦) ·N (𝑢 ·N 𝑧)))
7169, 70breq12d 3995 . . . . 5 (((𝑥N𝑦N) ∧ (𝑧N𝑤N) ∧ (𝑣N𝑢N)) → (((𝑢 ·N 𝑢) ·N (𝑥 ·N 𝑤)) <N ((𝑢 ·N 𝑢) ·N (𝑦 ·N 𝑧)) ↔ ((𝑢 ·N 𝑥) ·N (𝑢 ·N 𝑤)) <N ((𝑢 ·N 𝑦) ·N (𝑢 ·N 𝑧))))
72 distrpig 7274 . . . . . . . 8 ((𝑓N𝑔NN) → (𝑓 ·N (𝑔 +N )) = ((𝑓 ·N 𝑔) +N (𝑓 ·N )))
7372adantl 275 . . . . . . 7 ((((𝑥N𝑦N) ∧ (𝑧N𝑤N) ∧ (𝑣N𝑢N)) ∧ (𝑓N𝑔NN)) → (𝑓 ·N (𝑔 +N )) = ((𝑓 ·N 𝑔) +N (𝑓 ·N )))
7473, 19, 23, 36, 15, 66caovdir2d 6018 . . . . . 6 (((𝑥N𝑦N) ∧ (𝑧N𝑤N) ∧ (𝑣N𝑢N)) → (((𝑣 ·N 𝑦) +N (𝑢 ·N 𝑥)) ·N (𝑢 ·N 𝑤)) = (((𝑣 ·N 𝑦) ·N (𝑢 ·N 𝑤)) +N ((𝑢 ·N 𝑥) ·N (𝑢 ·N 𝑤))))
7573, 26, 30, 33caovdid 6017 . . . . . . 7 (((𝑥N𝑦N) ∧ (𝑧N𝑤N) ∧ (𝑣N𝑢N)) → ((𝑢 ·N 𝑦) ·N ((𝑣 ·N 𝑤) +N (𝑢 ·N 𝑧))) = (((𝑢 ·N 𝑦) ·N (𝑣 ·N 𝑤)) +N ((𝑢 ·N 𝑦) ·N (𝑢 ·N 𝑧))))
7620, 17, 16, 66, 68, 29, 28caov411d 6027 . . . . . . . 8 (((𝑥N𝑦N) ∧ (𝑧N𝑤N) ∧ (𝑣N𝑢N)) → ((𝑢 ·N 𝑦) ·N (𝑣 ·N 𝑤)) = ((𝑣 ·N 𝑦) ·N (𝑢 ·N 𝑤)))
7776oveq1d 5857 . . . . . . 7 (((𝑥N𝑦N) ∧ (𝑧N𝑤N) ∧ (𝑣N𝑢N)) → (((𝑢 ·N 𝑦) ·N (𝑣 ·N 𝑤)) +N ((𝑢 ·N 𝑦) ·N (𝑢 ·N 𝑧))) = (((𝑣 ·N 𝑦) ·N (𝑢 ·N 𝑤)) +N ((𝑢 ·N 𝑦) ·N (𝑢 ·N 𝑧))))
7875, 77eqtrd 2198 . . . . . 6 (((𝑥N𝑦N) ∧ (𝑧N𝑤N) ∧ (𝑣N𝑢N)) → ((𝑢 ·N 𝑦) ·N ((𝑣 ·N 𝑤) +N (𝑢 ·N 𝑧))) = (((𝑣 ·N 𝑦) ·N (𝑢 ·N 𝑤)) +N ((𝑢 ·N 𝑦) ·N (𝑢 ·N 𝑧))))
7974, 78breq12d 3995 . . . . 5 (((𝑥N𝑦N) ∧ (𝑧N𝑤N) ∧ (𝑣N𝑢N)) → ((((𝑣 ·N 𝑦) +N (𝑢 ·N 𝑥)) ·N (𝑢 ·N 𝑤)) <N ((𝑢 ·N 𝑦) ·N ((𝑣 ·N 𝑤) +N (𝑢 ·N 𝑧))) ↔ (((𝑣 ·N 𝑦) ·N (𝑢 ·N 𝑤)) +N ((𝑢 ·N 𝑥) ·N (𝑢 ·N 𝑤))) <N (((𝑣 ·N 𝑦) ·N (𝑢 ·N 𝑤)) +N ((𝑢 ·N 𝑦) ·N (𝑢 ·N 𝑧)))))
8064, 71, 793bitr4d 219 . . . 4 (((𝑥N𝑦N) ∧ (𝑧N𝑤N) ∧ (𝑣N𝑢N)) → (((𝑢 ·N 𝑢) ·N (𝑥 ·N 𝑤)) <N ((𝑢 ·N 𝑢) ·N (𝑦 ·N 𝑧)) ↔ (((𝑣 ·N 𝑦) +N (𝑢 ·N 𝑥)) ·N (𝑢 ·N 𝑤)) <N ((𝑢 ·N 𝑦) ·N ((𝑣 ·N 𝑤) +N (𝑢 ·N 𝑧)))))
8148, 56, 803bitrd 213 . . 3 (((𝑥N𝑦N) ∧ (𝑧N𝑤N) ∧ (𝑣N𝑢N)) → ([⟨𝑥, 𝑦⟩] ~Q <Q [⟨𝑧, 𝑤⟩] ~Q ↔ (((𝑣 ·N 𝑦) +N (𝑢 ·N 𝑥)) ·N (𝑢 ·N 𝑤)) <N ((𝑢 ·N 𝑦) ·N ((𝑣 ·N 𝑤) +N (𝑢 ·N 𝑧)))))
8238, 46, 813bitr4rd 220 . 2 (((𝑥N𝑦N) ∧ (𝑧N𝑤N) ∧ (𝑣N𝑢N)) → ([⟨𝑥, 𝑦⟩] ~Q <Q [⟨𝑧, 𝑤⟩] ~Q ↔ ([⟨𝑣, 𝑢⟩] ~Q +Q [⟨𝑥, 𝑦⟩] ~Q ) <Q ([⟨𝑣, 𝑢⟩] ~Q +Q [⟨𝑧, 𝑤⟩] ~Q )))
831, 5, 9, 13, 823ecoptocl 6590 1 ((𝐴Q𝐵Q𝐶Q) → (𝐴 <Q 𝐵 ↔ (𝐶 +Q 𝐴) <Q (𝐶 +Q 𝐵)))
Colors of variables: wff set class
Syntax hints:  wi 4  wa 103  wb 104  w3a 968   = wceq 1343  wcel 2136  cop 3579   class class class wbr 3982  (class class class)co 5842  [cec 6499  Ncnpi 7213   +N cpli 7214   ·N cmi 7215   <N clti 7216   ~Q ceq 7220  Qcnq 7221   +Q cplq 7223   <Q cltq 7226
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-ia1 105  ax-ia2 106  ax-ia3 107  ax-in1 604  ax-in2 605  ax-io 699  ax-5 1435  ax-7 1436  ax-gen 1437  ax-ie1 1481  ax-ie2 1482  ax-8 1492  ax-10 1493  ax-11 1494  ax-i12 1495  ax-bndl 1497  ax-4 1498  ax-17 1514  ax-i9 1518  ax-ial 1522  ax-i5r 1523  ax-13 2138  ax-14 2139  ax-ext 2147  ax-coll 4097  ax-sep 4100  ax-nul 4108  ax-pow 4153  ax-pr 4187  ax-un 4411  ax-setind 4514  ax-iinf 4565
This theorem depends on definitions:  df-bi 116  df-dc 825  df-3or 969  df-3an 970  df-tru 1346  df-fal 1349  df-nf 1449  df-sb 1751  df-eu 2017  df-mo 2018  df-clab 2152  df-cleq 2158  df-clel 2161  df-nfc 2297  df-ne 2337  df-ral 2449  df-rex 2450  df-reu 2451  df-rab 2453  df-v 2728  df-sbc 2952  df-csb 3046  df-dif 3118  df-un 3120  df-in 3122  df-ss 3129  df-nul 3410  df-pw 3561  df-sn 3582  df-pr 3583  df-op 3585  df-uni 3790  df-int 3825  df-iun 3868  df-br 3983  df-opab 4044  df-mpt 4045  df-tr 4081  df-eprel 4267  df-id 4271  df-iord 4344  df-on 4346  df-suc 4349  df-iom 4568  df-xp 4610  df-rel 4611  df-cnv 4612  df-co 4613  df-dm 4614  df-rn 4615  df-res 4616  df-ima 4617  df-iota 5153  df-fun 5190  df-fn 5191  df-f 5192  df-f1 5193  df-fo 5194  df-f1o 5195  df-fv 5196  df-ov 5845  df-oprab 5846  df-mpo 5847  df-1st 6108  df-2nd 6109  df-recs 6273  df-irdg 6338  df-oadd 6388  df-omul 6389  df-er 6501  df-ec 6503  df-qs 6507  df-ni 7245  df-pli 7246  df-mi 7247  df-lti 7248  df-plpq 7285  df-enq 7288  df-nqqs 7289  df-plqqs 7290  df-ltnqqs 7294
This theorem is referenced by:  ltanqi  7343  lt2addnq  7345  ltaddnq  7348  prarloclemlt  7434  prarloclemcalc  7443  addlocprlemgt  7475  addclpr  7478  prmuloclemcalc  7506  distrlem4prl  7525  distrlem4pru  7526  ltexprlemopl  7542  ltexprlemopu  7544  ltexprlemdisj  7547  ltexprlemloc  7548  ltexprlemfl  7550  ltexprlemfu  7552  aptiprleml  7580  aptiprlemu  7581  cauappcvgprlemopl  7587  cauappcvgprlemlol  7588  cauappcvgprlemdisj  7592  cauappcvgprlemloc  7593  cauappcvgprlemladdfu  7595  cauappcvgprlemladdru  7597  cauappcvgprlemladdrl  7598  cauappcvgprlem1  7600  caucvgprlemnkj  7607  caucvgprlemnbj  7608  caucvgprlemm  7609  caucvgprlemopl  7610  caucvgprlemlol  7611  caucvgprlemloc  7616  caucvgprlemladdfu  7618  caucvgprlemladdrl  7619  caucvgprprlemml  7635  caucvgprprlemopl  7638  caucvgprprlemlol  7639
  Copyright terms: Public domain W3C validator