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

Theorem ltanqg 7349
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 7297 . 2 Q = ((N × N) / ~Q )
2 breq1 3990 . . 3 ([⟨𝑥, 𝑦⟩] ~Q = 𝐴 → ([⟨𝑥, 𝑦⟩] ~Q <Q [⟨𝑧, 𝑤⟩] ~Q𝐴 <Q [⟨𝑧, 𝑤⟩] ~Q ))
3 oveq2 5858 . . . 4 ([⟨𝑥, 𝑦⟩] ~Q = 𝐴 → ([⟨𝑣, 𝑢⟩] ~Q +Q [⟨𝑥, 𝑦⟩] ~Q ) = ([⟨𝑣, 𝑢⟩] ~Q +Q 𝐴))
43breq1d 3997 . . 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 3991 . . 3 ([⟨𝑧, 𝑤⟩] ~Q = 𝐵 → (𝐴 <Q [⟨𝑧, 𝑤⟩] ~Q𝐴 <Q 𝐵))
7 oveq2 5858 . . . 4 ([⟨𝑧, 𝑤⟩] ~Q = 𝐵 → ([⟨𝑣, 𝑢⟩] ~Q +Q [⟨𝑧, 𝑤⟩] ~Q ) = ([⟨𝑣, 𝑢⟩] ~Q +Q 𝐵))
87breq2d 3999 . . 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 5857 . . . 4 ([⟨𝑣, 𝑢⟩] ~Q = 𝐶 → ([⟨𝑣, 𝑢⟩] ~Q +Q 𝐴) = (𝐶 +Q 𝐴))
11 oveq1 5857 . . . 4 ([⟨𝑣, 𝑢⟩] ~Q = 𝐶 → ([⟨𝑣, 𝑢⟩] ~Q +Q 𝐵) = (𝐶 +Q 𝐵))
1210, 11breq12d 4000 . . 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 7276 . . . . . 6 ((𝑓N𝑔N) → (𝑓 +N 𝑔) ∈ N)
1514adantl 275 . . . . 5 ((((𝑥N𝑦N) ∧ (𝑧N𝑤N) ∧ (𝑣N𝑢N)) ∧ (𝑓N𝑔N)) → (𝑓 +N 𝑔) ∈ N)
16 simp3l 1020 . . . . . 6 (((𝑥N𝑦N) ∧ (𝑧N𝑤N) ∧ (𝑣N𝑢N)) → 𝑣N)
17 simp1r 1017 . . . . . 6 (((𝑥N𝑦N) ∧ (𝑧N𝑤N) ∧ (𝑣N𝑢N)) → 𝑦N)
18 mulclpi 7277 . . . . . 6 ((𝑣N𝑦N) → (𝑣 ·N 𝑦) ∈ N)
1916, 17, 18syl2anc 409 . . . . 5 (((𝑥N𝑦N) ∧ (𝑧N𝑤N) ∧ (𝑣N𝑢N)) → (𝑣 ·N 𝑦) ∈ N)
20 simp3r 1021 . . . . . 6 (((𝑥N𝑦N) ∧ (𝑧N𝑤N) ∧ (𝑣N𝑢N)) → 𝑢N)
21 simp1l 1016 . . . . . 6 (((𝑥N𝑦N) ∧ (𝑧N𝑤N) ∧ (𝑣N𝑢N)) → 𝑥N)
22 mulclpi 7277 . . . . . 6 ((𝑢N𝑥N) → (𝑢 ·N 𝑥) ∈ N)
2320, 21, 22syl2anc 409 . . . . 5 (((𝑥N𝑦N) ∧ (𝑧N𝑤N) ∧ (𝑣N𝑢N)) → (𝑢 ·N 𝑥) ∈ N)
2415, 19, 23caovcld 6003 . . . 4 (((𝑥N𝑦N) ∧ (𝑧N𝑤N) ∧ (𝑣N𝑢N)) → ((𝑣 ·N 𝑦) +N (𝑢 ·N 𝑥)) ∈ N)
25 mulclpi 7277 . . . . 5 ((𝑢N𝑦N) → (𝑢 ·N 𝑦) ∈ N)
2620, 17, 25syl2anc 409 . . . 4 (((𝑥N𝑦N) ∧ (𝑧N𝑤N) ∧ (𝑣N𝑢N)) → (𝑢 ·N 𝑦) ∈ N)
27 mulclpi 7277 . . . . . . 7 ((𝑓N𝑔N) → (𝑓 ·N 𝑔) ∈ N)
2827adantl 275 . . . . . 6 ((((𝑥N𝑦N) ∧ (𝑧N𝑤N) ∧ (𝑣N𝑢N)) ∧ (𝑓N𝑔N)) → (𝑓 ·N 𝑔) ∈ N)
29 simp2r 1019 . . . . . 6 (((𝑥N𝑦N) ∧ (𝑧N𝑤N) ∧ (𝑣N𝑢N)) → 𝑤N)
3028, 16, 29caovcld 6003 . . . . 5 (((𝑥N𝑦N) ∧ (𝑧N𝑤N) ∧ (𝑣N𝑢N)) → (𝑣 ·N 𝑤) ∈ N)
31 simp2l 1018 . . . . . 6 (((𝑥N𝑦N) ∧ (𝑧N𝑤N) ∧ (𝑣N𝑢N)) → 𝑧N)
32 mulclpi 7277 . . . . . 6 ((𝑢N𝑧N) → (𝑢 ·N 𝑧) ∈ N)
3320, 31, 32syl2anc 409 . . . . 5 (((𝑥N𝑦N) ∧ (𝑧N𝑤N) ∧ (𝑣N𝑢N)) → (𝑢 ·N 𝑧) ∈ N)
3415, 30, 33caovcld 6003 . . . 4 (((𝑥N𝑦N) ∧ (𝑧N𝑤N) ∧ (𝑣N𝑢N)) → ((𝑣 ·N 𝑤) +N (𝑢 ·N 𝑧)) ∈ N)
35 mulclpi 7277 . . . . 5 ((𝑢N𝑤N) → (𝑢 ·N 𝑤) ∈ N)
3620, 29, 35syl2anc 409 . . . 4 (((𝑥N𝑦N) ∧ (𝑧N𝑤N) ∧ (𝑣N𝑢N)) → (𝑢 ·N 𝑤) ∈ N)
37 ordpipqqs 7323 . . . 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 1234 . . 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 994 . . . . 5 (((𝑥N𝑦N) ∧ (𝑧N𝑤N) ∧ (𝑣N𝑢N)) → (𝑣N𝑢N))
40 simp1 992 . . . . 5 (((𝑥N𝑦N) ∧ (𝑧N𝑤N) ∧ (𝑣N𝑢N)) → (𝑥N𝑦N))
41 addpipqqs 7319 . . . . 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 993 . . . . 5 (((𝑥N𝑦N) ∧ (𝑧N𝑤N) ∧ (𝑣N𝑢N)) → (𝑧N𝑤N))
44 addpipqqs 7319 . . . . 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 4000 . . 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 7323 . . . . 5 (((𝑥N𝑦N) ∧ (𝑧N𝑤N)) → ([⟨𝑥, 𝑦⟩] ~Q <Q [⟨𝑧, 𝑤⟩] ~Q ↔ (𝑥 ·N 𝑤) <N (𝑦 ·N 𝑧)))
48473adant3 1012 . . . 4 (((𝑥N𝑦N) ∧ (𝑧N𝑤N) ∧ (𝑣N𝑢N)) → ([⟨𝑥, 𝑦⟩] ~Q <Q [⟨𝑧, 𝑤⟩] ~Q ↔ (𝑥 ·N 𝑤) <N (𝑦 ·N 𝑧)))
49 mulclpi 7277 . . . . . 6 ((𝑥N𝑤N) → (𝑥 ·N 𝑤) ∈ N)
5021, 29, 49syl2anc 409 . . . . 5 (((𝑥N𝑦N) ∧ (𝑧N𝑤N) ∧ (𝑣N𝑢N)) → (𝑥 ·N 𝑤) ∈ N)
51 mulclpi 7277 . . . . . 6 ((𝑦N𝑧N) → (𝑦 ·N 𝑧) ∈ N)
5217, 31, 51syl2anc 409 . . . . 5 (((𝑥N𝑦N) ∧ (𝑧N𝑤N) ∧ (𝑣N𝑢N)) → (𝑦 ·N 𝑧) ∈ N)
53 mulclpi 7277 . . . . . 6 ((𝑢N𝑢N) → (𝑢 ·N 𝑢) ∈ N)
5420, 20, 53syl2anc 409 . . . . 5 (((𝑥N𝑦N) ∧ (𝑧N𝑤N) ∧ (𝑣N𝑢N)) → (𝑢 ·N 𝑢) ∈ N)
55 ltmpig 7288 . . . . 5 (((𝑥 ·N 𝑤) ∈ N ∧ (𝑦 ·N 𝑧) ∈ N ∧ (𝑢 ·N 𝑢) ∈ N) → ((𝑥 ·N 𝑤) <N (𝑦 ·N 𝑧) ↔ ((𝑢 ·N 𝑢) ·N (𝑥 ·N 𝑤)) <N ((𝑢 ·N 𝑢) ·N (𝑦 ·N 𝑧))))
5650, 52, 54, 55syl3anc 1233 . . . 4 (((𝑥N𝑦N) ∧ (𝑧N𝑤N) ∧ (𝑣N𝑢N)) → ((𝑥 ·N 𝑤) <N (𝑦 ·N 𝑧) ↔ ((𝑢 ·N 𝑢) ·N (𝑥 ·N 𝑤)) <N ((𝑢 ·N 𝑢) ·N (𝑦 ·N 𝑧))))
57 mulclpi 7277 . . . . . . 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 7277 . . . . . . 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 7277 . . . . . . 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 7287 . . . . . 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 1233 . . . . 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 7280 . . . . . . . 8 ((𝑓N𝑔N) → (𝑓 ·N 𝑔) = (𝑔 ·N 𝑓))
6665adantl 275 . . . . . . 7 ((((𝑥N𝑦N) ∧ (𝑧N𝑤N) ∧ (𝑣N𝑢N)) ∧ (𝑓N𝑔N)) → (𝑓 ·N 𝑔) = (𝑔 ·N 𝑓))
67 mulasspig 7281 . . . . . . . 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 6034 . . . . . 6 (((𝑥N𝑦N) ∧ (𝑧N𝑤N) ∧ (𝑣N𝑢N)) → ((𝑢 ·N 𝑢) ·N (𝑥 ·N 𝑤)) = ((𝑢 ·N 𝑥) ·N (𝑢 ·N 𝑤)))
7020, 20, 17, 66, 68, 31, 28caov4d 6034 . . . . . 6 (((𝑥N𝑦N) ∧ (𝑧N𝑤N) ∧ (𝑣N𝑢N)) → ((𝑢 ·N 𝑢) ·N (𝑦 ·N 𝑧)) = ((𝑢 ·N 𝑦) ·N (𝑢 ·N 𝑧)))
7169, 70breq12d 4000 . . . . 5 (((𝑥N𝑦N) ∧ (𝑧N𝑤N) ∧ (𝑣N𝑢N)) → (((𝑢 ·N 𝑢) ·N (𝑥 ·N 𝑤)) <N ((𝑢 ·N 𝑢) ·N (𝑦 ·N 𝑧)) ↔ ((𝑢 ·N 𝑥) ·N (𝑢 ·N 𝑤)) <N ((𝑢 ·N 𝑦) ·N (𝑢 ·N 𝑧))))
72 distrpig 7282 . . . . . . . 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 6026 . . . . . 6 (((𝑥N𝑦N) ∧ (𝑧N𝑤N) ∧ (𝑣N𝑢N)) → (((𝑣 ·N 𝑦) +N (𝑢 ·N 𝑥)) ·N (𝑢 ·N 𝑤)) = (((𝑣 ·N 𝑦) ·N (𝑢 ·N 𝑤)) +N ((𝑢 ·N 𝑥) ·N (𝑢 ·N 𝑤))))
7573, 26, 30, 33caovdid 6025 . . . . . . 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 6035 . . . . . . . 8 (((𝑥N𝑦N) ∧ (𝑧N𝑤N) ∧ (𝑣N𝑢N)) → ((𝑢 ·N 𝑦) ·N (𝑣 ·N 𝑤)) = ((𝑣 ·N 𝑦) ·N (𝑢 ·N 𝑤)))
7776oveq1d 5865 . . . . . . 7 (((𝑥N𝑦N) ∧ (𝑧N𝑤N) ∧ (𝑣N𝑢N)) → (((𝑢 ·N 𝑦) ·N (𝑣 ·N 𝑤)) +N ((𝑢 ·N 𝑦) ·N (𝑢 ·N 𝑧))) = (((𝑣 ·N 𝑦) ·N (𝑢 ·N 𝑤)) +N ((𝑢 ·N 𝑦) ·N (𝑢 ·N 𝑧))))
7875, 77eqtrd 2203 . . . . . 6 (((𝑥N𝑦N) ∧ (𝑧N𝑤N) ∧ (𝑣N𝑢N)) → ((𝑢 ·N 𝑦) ·N ((𝑣 ·N 𝑤) +N (𝑢 ·N 𝑧))) = (((𝑣 ·N 𝑦) ·N (𝑢 ·N 𝑤)) +N ((𝑢 ·N 𝑦) ·N (𝑢 ·N 𝑧))))
7974, 78breq12d 4000 . . . . 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 6598 1 ((𝐴Q𝐵Q𝐶Q) → (𝐴 <Q 𝐵 ↔ (𝐶 +Q 𝐴) <Q (𝐶 +Q 𝐵)))
Colors of variables: wff set class
Syntax hints:  wi 4  wa 103  wb 104  w3a 973   = wceq 1348  wcel 2141  cop 3584   class class class wbr 3987  (class class class)co 5850  [cec 6507  Ncnpi 7221   +N cpli 7222   ·N cmi 7223   <N clti 7224   ~Q ceq 7228  Qcnq 7229   +Q cplq 7231   <Q cltq 7234
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 609  ax-in2 610  ax-io 704  ax-5 1440  ax-7 1441  ax-gen 1442  ax-ie1 1486  ax-ie2 1487  ax-8 1497  ax-10 1498  ax-11 1499  ax-i12 1500  ax-bndl 1502  ax-4 1503  ax-17 1519  ax-i9 1523  ax-ial 1527  ax-i5r 1528  ax-13 2143  ax-14 2144  ax-ext 2152  ax-coll 4102  ax-sep 4105  ax-nul 4113  ax-pow 4158  ax-pr 4192  ax-un 4416  ax-setind 4519  ax-iinf 4570
This theorem depends on definitions:  df-bi 116  df-dc 830  df-3or 974  df-3an 975  df-tru 1351  df-fal 1354  df-nf 1454  df-sb 1756  df-eu 2022  df-mo 2023  df-clab 2157  df-cleq 2163  df-clel 2166  df-nfc 2301  df-ne 2341  df-ral 2453  df-rex 2454  df-reu 2455  df-rab 2457  df-v 2732  df-sbc 2956  df-csb 3050  df-dif 3123  df-un 3125  df-in 3127  df-ss 3134  df-nul 3415  df-pw 3566  df-sn 3587  df-pr 3588  df-op 3590  df-uni 3795  df-int 3830  df-iun 3873  df-br 3988  df-opab 4049  df-mpt 4050  df-tr 4086  df-eprel 4272  df-id 4276  df-iord 4349  df-on 4351  df-suc 4354  df-iom 4573  df-xp 4615  df-rel 4616  df-cnv 4617  df-co 4618  df-dm 4619  df-rn 4620  df-res 4621  df-ima 4622  df-iota 5158  df-fun 5198  df-fn 5199  df-f 5200  df-f1 5201  df-fo 5202  df-f1o 5203  df-fv 5204  df-ov 5853  df-oprab 5854  df-mpo 5855  df-1st 6116  df-2nd 6117  df-recs 6281  df-irdg 6346  df-oadd 6396  df-omul 6397  df-er 6509  df-ec 6511  df-qs 6515  df-ni 7253  df-pli 7254  df-mi 7255  df-lti 7256  df-plpq 7293  df-enq 7296  df-nqqs 7297  df-plqqs 7298  df-ltnqqs 7302
This theorem is referenced by:  ltanqi  7351  lt2addnq  7353  ltaddnq  7356  prarloclemlt  7442  prarloclemcalc  7451  addlocprlemgt  7483  addclpr  7486  prmuloclemcalc  7514  distrlem4prl  7533  distrlem4pru  7534  ltexprlemopl  7550  ltexprlemopu  7552  ltexprlemdisj  7555  ltexprlemloc  7556  ltexprlemfl  7558  ltexprlemfu  7560  aptiprleml  7588  aptiprlemu  7589  cauappcvgprlemopl  7595  cauappcvgprlemlol  7596  cauappcvgprlemdisj  7600  cauappcvgprlemloc  7601  cauappcvgprlemladdfu  7603  cauappcvgprlemladdru  7605  cauappcvgprlemladdrl  7606  cauappcvgprlem1  7608  caucvgprlemnkj  7615  caucvgprlemnbj  7616  caucvgprlemm  7617  caucvgprlemopl  7618  caucvgprlemlol  7619  caucvgprlemloc  7624  caucvgprlemladdfu  7626  caucvgprlemladdrl  7627  caucvgprprlemml  7643  caucvgprprlemopl  7646  caucvgprprlemlol  7647
  Copyright terms: Public domain W3C validator