Theorem ltsonq 7623

Description: 'Less than' is a strict ordering on positive fractions. (Contributed by NM, 19-Feb-1996.) (Revised by Mario Carneiro, 4-May-2013.)

Assertion

Ref	Expression
ltsonq	⊢ <Q Or Q

Proof of Theorem ltsonq

Dummy variables 𝑎 𝑏 𝑐 𝑑 𝑒 𝑓 𝑥 𝑦 𝑧 𝑤 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		df-nqqs 7573	. . . . . 6 ⊢ Q = ((N × N) / ~Q )
2		id 19	. . . . . . . 8 ⊢ ([⟨𝑧, 𝑤⟩] ~Q = 𝑥 → [⟨𝑧, 𝑤⟩] ~Q = 𝑥)
3	2, 2	breq12d 4102	. . . . . . 7 ⊢ ([⟨𝑧, 𝑤⟩] ~Q = 𝑥 → ([⟨𝑧, 𝑤⟩] ~Q <Q [⟨𝑧, 𝑤⟩] ~Q ↔ 𝑥 <Q 𝑥))
4	3	notbid 673	. . . . . 6 ⊢ ([⟨𝑧, 𝑤⟩] ~Q = 𝑥 → (¬ [⟨𝑧, 𝑤⟩] ~Q <Q [⟨𝑧, 𝑤⟩] ~Q ↔ ¬ 𝑥 <Q 𝑥))
5		ltsopi 7545	. . . . . . . 8 ⊢ <N Or N
6		ltrelpi 7549	. . . . . . . 8 ⊢ <N ⊆ (N × N)
7	5, 6	soirri 5133	. . . . . . 7 ⊢ ¬ (𝑤 ·N 𝑧) <N (𝑤 ·N 𝑧)
8		ordpipqqs 7599	. . . . . . . . 9 ⊢ (((𝑧 ∈ N ∧ 𝑤 ∈ N) ∧ (𝑧 ∈ N ∧ 𝑤 ∈ N)) → ([⟨𝑧, 𝑤⟩] ~Q <Q [⟨𝑧, 𝑤⟩] ~Q ↔ (𝑧 ·N 𝑤) <N (𝑤 ·N 𝑧)))
9	8	anidms 397	. . . . . . . 8 ⊢ ((𝑧 ∈ N ∧ 𝑤 ∈ N) → ([⟨𝑧, 𝑤⟩] ~Q <Q [⟨𝑧, 𝑤⟩] ~Q ↔ (𝑧 ·N 𝑤) <N (𝑤 ·N 𝑧)))
10		mulcompig 7556	. . . . . . . . 9 ⊢ ((𝑧 ∈ N ∧ 𝑤 ∈ N) → (𝑧 ·N 𝑤) = (𝑤 ·N 𝑧))
11	10	breq1d 4099	. . . . . . . 8 ⊢ ((𝑧 ∈ N ∧ 𝑤 ∈ N) → ((𝑧 ·N 𝑤) <N (𝑤 ·N 𝑧) ↔ (𝑤 ·N 𝑧) <N (𝑤 ·N 𝑧)))
12	9, 11	bitrd 188	. . . . . . 7 ⊢ ((𝑧 ∈ N ∧ 𝑤 ∈ N) → ([⟨𝑧, 𝑤⟩] ~Q <Q [⟨𝑧, 𝑤⟩] ~Q ↔ (𝑤 ·N 𝑧) <N (𝑤 ·N 𝑧)))
13	7, 12	mtbiri 681	. . . . . 6 ⊢ ((𝑧 ∈ N ∧ 𝑤 ∈ N) → ¬ [⟨𝑧, 𝑤⟩] ~Q <Q [⟨𝑧, 𝑤⟩] ~Q )
14	1, 4, 13	ecoptocl 6796	. . . . 5 ⊢ (𝑥 ∈ Q → ¬ 𝑥 <Q 𝑥)
15	14	adantl 277	. . . 4 ⊢ ((⊤ ∧ 𝑥 ∈ Q) → ¬ 𝑥 <Q 𝑥)
16		breq1 4092	. . . . . . . 8 ⊢ ([⟨𝑎, 𝑏⟩] ~Q = 𝑥 → ([⟨𝑎, 𝑏⟩] ~Q <Q [⟨𝑐, 𝑑⟩] ~Q ↔ 𝑥 <Q [⟨𝑐, 𝑑⟩] ~Q ))
17	16	anbi1d 465	. . . . . . 7 ⊢ ([⟨𝑎, 𝑏⟩] ~Q = 𝑥 → (([⟨𝑎, 𝑏⟩] ~Q <Q [⟨𝑐, 𝑑⟩] ~Q ∧ [⟨𝑐, 𝑑⟩] ~Q <Q [⟨𝑒, 𝑓⟩] ~Q ) ↔ (𝑥 <Q [⟨𝑐, 𝑑⟩] ~Q ∧ [⟨𝑐, 𝑑⟩] ~Q <Q [⟨𝑒, 𝑓⟩] ~Q )))
18		breq1 4092	. . . . . . 7 ⊢ ([⟨𝑎, 𝑏⟩] ~Q = 𝑥 → ([⟨𝑎, 𝑏⟩] ~Q <Q [⟨𝑒, 𝑓⟩] ~Q ↔ 𝑥 <Q [⟨𝑒, 𝑓⟩] ~Q ))
19	17, 18	imbi12d 234	. . . . . 6 ⊢ ([⟨𝑎, 𝑏⟩] ~Q = 𝑥 → ((([⟨𝑎, 𝑏⟩] ~Q <Q [⟨𝑐, 𝑑⟩] ~Q ∧ [⟨𝑐, 𝑑⟩] ~Q <Q [⟨𝑒, 𝑓⟩] ~Q ) → [⟨𝑎, 𝑏⟩] ~Q <Q [⟨𝑒, 𝑓⟩] ~Q ) ↔ ((𝑥 <Q [⟨𝑐, 𝑑⟩] ~Q ∧ [⟨𝑐, 𝑑⟩] ~Q <Q [⟨𝑒, 𝑓⟩] ~Q ) → 𝑥 <Q [⟨𝑒, 𝑓⟩] ~Q )))
20		breq2 4093	. . . . . . . 8 ⊢ ([⟨𝑐, 𝑑⟩] ~Q = 𝑦 → (𝑥 <Q [⟨𝑐, 𝑑⟩] ~Q ↔ 𝑥 <Q 𝑦))
21		breq1 4092	. . . . . . . 8 ⊢ ([⟨𝑐, 𝑑⟩] ~Q = 𝑦 → ([⟨𝑐, 𝑑⟩] ~Q <Q [⟨𝑒, 𝑓⟩] ~Q ↔ 𝑦 <Q [⟨𝑒, 𝑓⟩] ~Q ))
22	20, 21	anbi12d 473	. . . . . . 7 ⊢ ([⟨𝑐, 𝑑⟩] ~Q = 𝑦 → ((𝑥 <Q [⟨𝑐, 𝑑⟩] ~Q ∧ [⟨𝑐, 𝑑⟩] ~Q <Q [⟨𝑒, 𝑓⟩] ~Q ) ↔ (𝑥 <Q 𝑦 ∧ 𝑦 <Q [⟨𝑒, 𝑓⟩] ~Q )))
23	22	imbi1d 231	. . . . . 6 ⊢ ([⟨𝑐, 𝑑⟩] ~Q = 𝑦 → (((𝑥 <Q [⟨𝑐, 𝑑⟩] ~Q ∧ [⟨𝑐, 𝑑⟩] ~Q <Q [⟨𝑒, 𝑓⟩] ~Q ) → 𝑥 <Q [⟨𝑒, 𝑓⟩] ~Q ) ↔ ((𝑥 <Q 𝑦 ∧ 𝑦 <Q [⟨𝑒, 𝑓⟩] ~Q ) → 𝑥 <Q [⟨𝑒, 𝑓⟩] ~Q )))
24		breq2 4093	. . . . . . . 8 ⊢ ([⟨𝑒, 𝑓⟩] ~Q = 𝑧 → (𝑦 <Q [⟨𝑒, 𝑓⟩] ~Q ↔ 𝑦 <Q 𝑧))
25	24	anbi2d 464	. . . . . . 7 ⊢ ([⟨𝑒, 𝑓⟩] ~Q = 𝑧 → ((𝑥 <Q 𝑦 ∧ 𝑦 <Q [⟨𝑒, 𝑓⟩] ~Q ) ↔ (𝑥 <Q 𝑦 ∧ 𝑦 <Q 𝑧)))
26		breq2 4093	. . . . . . 7 ⊢ ([⟨𝑒, 𝑓⟩] ~Q = 𝑧 → (𝑥 <Q [⟨𝑒, 𝑓⟩] ~Q ↔ 𝑥 <Q 𝑧))
27	25, 26	imbi12d 234	. . . . . 6 ⊢ ([⟨𝑒, 𝑓⟩] ~Q = 𝑧 → (((𝑥 <Q 𝑦 ∧ 𝑦 <Q [⟨𝑒, 𝑓⟩] ~Q ) → 𝑥 <Q [⟨𝑒, 𝑓⟩] ~Q ) ↔ ((𝑥 <Q 𝑦 ∧ 𝑦 <Q 𝑧) → 𝑥 <Q 𝑧)))
28		ordpipqqs 7599	. . . . . . . . . . . . . . . 16 ⊢ (((𝑎 ∈ N ∧ 𝑏 ∈ N) ∧ (𝑐 ∈ N ∧ 𝑑 ∈ N)) → ([⟨𝑎, 𝑏⟩] ~Q <Q [⟨𝑐, 𝑑⟩] ~Q ↔ (𝑎 ·N 𝑑) <N (𝑏 ·N 𝑐)))
29	28	3adant3 1043	. . . . . . . . . . . . . . 15 ⊢ (((𝑎 ∈ N ∧ 𝑏 ∈ N) ∧ (𝑐 ∈ N ∧ 𝑑 ∈ N) ∧ (𝑒 ∈ N ∧ 𝑓 ∈ N)) → ([⟨𝑎, 𝑏⟩] ~Q <Q [⟨𝑐, 𝑑⟩] ~Q ↔ (𝑎 ·N 𝑑) <N (𝑏 ·N 𝑐)))
30		simp1l 1047	. . . . . . . . . . . . . . . . 17 ⊢ (((𝑎 ∈ N ∧ 𝑏 ∈ N) ∧ (𝑐 ∈ N ∧ 𝑑 ∈ N) ∧ (𝑒 ∈ N ∧ 𝑓 ∈ N)) → 𝑎 ∈ N)
31		simp2r 1050	. . . . . . . . . . . . . . . . 17 ⊢ (((𝑎 ∈ N ∧ 𝑏 ∈ N) ∧ (𝑐 ∈ N ∧ 𝑑 ∈ N) ∧ (𝑒 ∈ N ∧ 𝑓 ∈ N)) → 𝑑 ∈ N)
32		mulclpi 7553	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑎 ∈ N ∧ 𝑑 ∈ N) → (𝑎 ·N 𝑑) ∈ N)
33	30, 31, 32	syl2anc 411	. . . . . . . . . . . . . . . 16 ⊢ (((𝑎 ∈ N ∧ 𝑏 ∈ N) ∧ (𝑐 ∈ N ∧ 𝑑 ∈ N) ∧ (𝑒 ∈ N ∧ 𝑓 ∈ N)) → (𝑎 ·N 𝑑) ∈ N)
34		simp1r 1048	. . . . . . . . . . . . . . . . 17 ⊢ (((𝑎 ∈ N ∧ 𝑏 ∈ N) ∧ (𝑐 ∈ N ∧ 𝑑 ∈ N) ∧ (𝑒 ∈ N ∧ 𝑓 ∈ N)) → 𝑏 ∈ N)
35		simp2l 1049	. . . . . . . . . . . . . . . . 17 ⊢ (((𝑎 ∈ N ∧ 𝑏 ∈ N) ∧ (𝑐 ∈ N ∧ 𝑑 ∈ N) ∧ (𝑒 ∈ N ∧ 𝑓 ∈ N)) → 𝑐 ∈ N)
36		mulclpi 7553	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑏 ∈ N ∧ 𝑐 ∈ N) → (𝑏 ·N 𝑐) ∈ N)
37	34, 35, 36	syl2anc 411	. . . . . . . . . . . . . . . 16 ⊢ (((𝑎 ∈ N ∧ 𝑏 ∈ N) ∧ (𝑐 ∈ N ∧ 𝑑 ∈ N) ∧ (𝑒 ∈ N ∧ 𝑓 ∈ N)) → (𝑏 ·N 𝑐) ∈ N)
38		simp3r 1052	. . . . . . . . . . . . . . . . 17 ⊢ (((𝑎 ∈ N ∧ 𝑏 ∈ N) ∧ (𝑐 ∈ N ∧ 𝑑 ∈ N) ∧ (𝑒 ∈ N ∧ 𝑓 ∈ N)) → 𝑓 ∈ N)
39		mulclpi 7553	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑐 ∈ N ∧ 𝑓 ∈ N) → (𝑐 ·N 𝑓) ∈ N)
40	35, 38, 39	syl2anc 411	. . . . . . . . . . . . . . . 16 ⊢ (((𝑎 ∈ N ∧ 𝑏 ∈ N) ∧ (𝑐 ∈ N ∧ 𝑑 ∈ N) ∧ (𝑒 ∈ N ∧ 𝑓 ∈ N)) → (𝑐 ·N 𝑓) ∈ N)
41		ltmpig 7564	. . . . . . . . . . . . . . . 16 ⊢ (((𝑎 ·N 𝑑) ∈ N ∧ (𝑏 ·N 𝑐) ∈ N ∧ (𝑐 ·N 𝑓) ∈ N) → ((𝑎 ·N 𝑑) <N (𝑏 ·N 𝑐) ↔ ((𝑐 ·N 𝑓) ·N (𝑎 ·N 𝑑)) <N ((𝑐 ·N 𝑓) ·N (𝑏 ·N 𝑐))))
42	33, 37, 40, 41	syl3anc 1273	. . . . . . . . . . . . . . 15 ⊢ (((𝑎 ∈ N ∧ 𝑏 ∈ N) ∧ (𝑐 ∈ N ∧ 𝑑 ∈ N) ∧ (𝑒 ∈ N ∧ 𝑓 ∈ N)) → ((𝑎 ·N 𝑑) <N (𝑏 ·N 𝑐) ↔ ((𝑐 ·N 𝑓) ·N (𝑎 ·N 𝑑)) <N ((𝑐 ·N 𝑓) ·N (𝑏 ·N 𝑐))))
43	29, 42	bitrd 188	. . . . . . . . . . . . . 14 ⊢ (((𝑎 ∈ N ∧ 𝑏 ∈ N) ∧ (𝑐 ∈ N ∧ 𝑑 ∈ N) ∧ (𝑒 ∈ N ∧ 𝑓 ∈ N)) → ([⟨𝑎, 𝑏⟩] ~Q <Q [⟨𝑐, 𝑑⟩] ~Q ↔ ((𝑐 ·N 𝑓) ·N (𝑎 ·N 𝑑)) <N ((𝑐 ·N 𝑓) ·N (𝑏 ·N 𝑐))))
44	43	biimpa 296	. . . . . . . . . . . . 13 ⊢ ((((𝑎 ∈ N ∧ 𝑏 ∈ N) ∧ (𝑐 ∈ N ∧ 𝑑 ∈ N) ∧ (𝑒 ∈ N ∧ 𝑓 ∈ N)) ∧ [⟨𝑎, 𝑏⟩] ~Q <Q [⟨𝑐, 𝑑⟩] ~Q ) → ((𝑐 ·N 𝑓) ·N (𝑎 ·N 𝑑)) <N ((𝑐 ·N 𝑓) ·N (𝑏 ·N 𝑐)))
45	44	adantrr 479	. . . . . . . . . . . 12 ⊢ ((((𝑎 ∈ N ∧ 𝑏 ∈ N) ∧ (𝑐 ∈ N ∧ 𝑑 ∈ N) ∧ (𝑒 ∈ N ∧ 𝑓 ∈ N)) ∧ ([⟨𝑎, 𝑏⟩] ~Q <Q [⟨𝑐, 𝑑⟩] ~Q ∧ [⟨𝑐, 𝑑⟩] ~Q <Q [⟨𝑒, 𝑓⟩] ~Q )) → ((𝑐 ·N 𝑓) ·N (𝑎 ·N 𝑑)) <N ((𝑐 ·N 𝑓) ·N (𝑏 ·N 𝑐)))
46		mulcompig 7556	. . . . . . . . . . . . . 14 ⊢ (((𝑐 ·N 𝑓) ∈ N ∧ (𝑏 ·N 𝑐) ∈ N) → ((𝑐 ·N 𝑓) ·N (𝑏 ·N 𝑐)) = ((𝑏 ·N 𝑐) ·N (𝑐 ·N 𝑓)))
47	40, 37, 46	syl2anc 411	. . . . . . . . . . . . 13 ⊢ (((𝑎 ∈ N ∧ 𝑏 ∈ N) ∧ (𝑐 ∈ N ∧ 𝑑 ∈ N) ∧ (𝑒 ∈ N ∧ 𝑓 ∈ N)) → ((𝑐 ·N 𝑓) ·N (𝑏 ·N 𝑐)) = ((𝑏 ·N 𝑐) ·N (𝑐 ·N 𝑓)))
48	47	adantr 276	. . . . . . . . . . . 12 ⊢ ((((𝑎 ∈ N ∧ 𝑏 ∈ N) ∧ (𝑐 ∈ N ∧ 𝑑 ∈ N) ∧ (𝑒 ∈ N ∧ 𝑓 ∈ N)) ∧ ([⟨𝑎, 𝑏⟩] ~Q <Q [⟨𝑐, 𝑑⟩] ~Q ∧ [⟨𝑐, 𝑑⟩] ~Q <Q [⟨𝑒, 𝑓⟩] ~Q )) → ((𝑐 ·N 𝑓) ·N (𝑏 ·N 𝑐)) = ((𝑏 ·N 𝑐) ·N (𝑐 ·N 𝑓)))
49	45, 48	breqtrd 4115	. . . . . . . . . . 11 ⊢ ((((𝑎 ∈ N ∧ 𝑏 ∈ N) ∧ (𝑐 ∈ N ∧ 𝑑 ∈ N) ∧ (𝑒 ∈ N ∧ 𝑓 ∈ N)) ∧ ([⟨𝑎, 𝑏⟩] ~Q <Q [⟨𝑐, 𝑑⟩] ~Q ∧ [⟨𝑐, 𝑑⟩] ~Q <Q [⟨𝑒, 𝑓⟩] ~Q )) → ((𝑐 ·N 𝑓) ·N (𝑎 ·N 𝑑)) <N ((𝑏 ·N 𝑐) ·N (𝑐 ·N 𝑓)))
50		ordpipqqs 7599	. . . . . . . . . . . . . . 15 ⊢ (((𝑐 ∈ N ∧ 𝑑 ∈ N) ∧ (𝑒 ∈ N ∧ 𝑓 ∈ N)) → ([⟨𝑐, 𝑑⟩] ~Q <Q [⟨𝑒, 𝑓⟩] ~Q ↔ (𝑐 ·N 𝑓) <N (𝑑 ·N 𝑒)))
51	50	3adant1 1041	. . . . . . . . . . . . . 14 ⊢ (((𝑎 ∈ N ∧ 𝑏 ∈ N) ∧ (𝑐 ∈ N ∧ 𝑑 ∈ N) ∧ (𝑒 ∈ N ∧ 𝑓 ∈ N)) → ([⟨𝑐, 𝑑⟩] ~Q <Q [⟨𝑒, 𝑓⟩] ~Q ↔ (𝑐 ·N 𝑓) <N (𝑑 ·N 𝑒)))
52		simp3l 1051	. . . . . . . . . . . . . . . 16 ⊢ (((𝑎 ∈ N ∧ 𝑏 ∈ N) ∧ (𝑐 ∈ N ∧ 𝑑 ∈ N) ∧ (𝑒 ∈ N ∧ 𝑓 ∈ N)) → 𝑒 ∈ N)
53		mulclpi 7553	. . . . . . . . . . . . . . . 16 ⊢ ((𝑑 ∈ N ∧ 𝑒 ∈ N) → (𝑑 ·N 𝑒) ∈ N)
54	31, 52, 53	syl2anc 411	. . . . . . . . . . . . . . 15 ⊢ (((𝑎 ∈ N ∧ 𝑏 ∈ N) ∧ (𝑐 ∈ N ∧ 𝑑 ∈ N) ∧ (𝑒 ∈ N ∧ 𝑓 ∈ N)) → (𝑑 ·N 𝑒) ∈ N)
55		ltmpig 7564	. . . . . . . . . . . . . . 15 ⊢ (((𝑐 ·N 𝑓) ∈ N ∧ (𝑑 ·N 𝑒) ∈ N ∧ (𝑏 ·N 𝑐) ∈ N) → ((𝑐 ·N 𝑓) <N (𝑑 ·N 𝑒) ↔ ((𝑏 ·N 𝑐) ·N (𝑐 ·N 𝑓)) <N ((𝑏 ·N 𝑐) ·N (𝑑 ·N 𝑒))))
56	40, 54, 37, 55	syl3anc 1273	. . . . . . . . . . . . . 14 ⊢ (((𝑎 ∈ N ∧ 𝑏 ∈ N) ∧ (𝑐 ∈ N ∧ 𝑑 ∈ N) ∧ (𝑒 ∈ N ∧ 𝑓 ∈ N)) → ((𝑐 ·N 𝑓) <N (𝑑 ·N 𝑒) ↔ ((𝑏 ·N 𝑐) ·N (𝑐 ·N 𝑓)) <N ((𝑏 ·N 𝑐) ·N (𝑑 ·N 𝑒))))
57	51, 56	bitrd 188	. . . . . . . . . . . . 13 ⊢ (((𝑎 ∈ N ∧ 𝑏 ∈ N) ∧ (𝑐 ∈ N ∧ 𝑑 ∈ N) ∧ (𝑒 ∈ N ∧ 𝑓 ∈ N)) → ([⟨𝑐, 𝑑⟩] ~Q <Q [⟨𝑒, 𝑓⟩] ~Q ↔ ((𝑏 ·N 𝑐) ·N (𝑐 ·N 𝑓)) <N ((𝑏 ·N 𝑐) ·N (𝑑 ·N 𝑒))))
58	57	biimpa 296	. . . . . . . . . . . 12 ⊢ ((((𝑎 ∈ N ∧ 𝑏 ∈ N) ∧ (𝑐 ∈ N ∧ 𝑑 ∈ N) ∧ (𝑒 ∈ N ∧ 𝑓 ∈ N)) ∧ [⟨𝑐, 𝑑⟩] ~Q <Q [⟨𝑒, 𝑓⟩] ~Q ) → ((𝑏 ·N 𝑐) ·N (𝑐 ·N 𝑓)) <N ((𝑏 ·N 𝑐) ·N (𝑑 ·N 𝑒)))
59	58	adantrl 478	. . . . . . . . . . 11 ⊢ ((((𝑎 ∈ N ∧ 𝑏 ∈ N) ∧ (𝑐 ∈ N ∧ 𝑑 ∈ N) ∧ (𝑒 ∈ N ∧ 𝑓 ∈ N)) ∧ ([⟨𝑎, 𝑏⟩] ~Q <Q [⟨𝑐, 𝑑⟩] ~Q ∧ [⟨𝑐, 𝑑⟩] ~Q <Q [⟨𝑒, 𝑓⟩] ~Q )) → ((𝑏 ·N 𝑐) ·N (𝑐 ·N 𝑓)) <N ((𝑏 ·N 𝑐) ·N (𝑑 ·N 𝑒)))
60	5, 6	sotri 5134	. . . . . . . . . . 11 ⊢ ((((𝑐 ·N 𝑓) ·N (𝑎 ·N 𝑑)) <N ((𝑏 ·N 𝑐) ·N (𝑐 ·N 𝑓)) ∧ ((𝑏 ·N 𝑐) ·N (𝑐 ·N 𝑓)) <N ((𝑏 ·N 𝑐) ·N (𝑑 ·N 𝑒))) → ((𝑐 ·N 𝑓) ·N (𝑎 ·N 𝑑)) <N ((𝑏 ·N 𝑐) ·N (𝑑 ·N 𝑒)))
61	49, 59, 60	syl2anc 411	. . . . . . . . . 10 ⊢ ((((𝑎 ∈ N ∧ 𝑏 ∈ N) ∧ (𝑐 ∈ N ∧ 𝑑 ∈ N) ∧ (𝑒 ∈ N ∧ 𝑓 ∈ N)) ∧ ([⟨𝑎, 𝑏⟩] ~Q <Q [⟨𝑐, 𝑑⟩] ~Q ∧ [⟨𝑐, 𝑑⟩] ~Q <Q [⟨𝑒, 𝑓⟩] ~Q )) → ((𝑐 ·N 𝑓) ·N (𝑎 ·N 𝑑)) <N ((𝑏 ·N 𝑐) ·N (𝑑 ·N 𝑒)))
62		mulcompig 7556	. . . . . . . . . . . . . . 15 ⊢ ((𝑥 ∈ N ∧ 𝑦 ∈ N) → (𝑥 ·N 𝑦) = (𝑦 ·N 𝑥))
63	62	adantl 277	. . . . . . . . . . . . . 14 ⊢ ((((𝑎 ∈ N ∧ 𝑏 ∈ N) ∧ (𝑐 ∈ N ∧ 𝑑 ∈ N) ∧ (𝑒 ∈ N ∧ 𝑓 ∈ N)) ∧ (𝑥 ∈ N ∧ 𝑦 ∈ N)) → (𝑥 ·N 𝑦) = (𝑦 ·N 𝑥))
64		mulasspig 7557	. . . . . . . . . . . . . . 15 ⊢ ((𝑥 ∈ N ∧ 𝑦 ∈ N ∧ 𝑧 ∈ N) → ((𝑥 ·N 𝑦) ·N 𝑧) = (𝑥 ·N (𝑦 ·N 𝑧)))
65	64	adantl 277	. . . . . . . . . . . . . 14 ⊢ ((((𝑎 ∈ N ∧ 𝑏 ∈ N) ∧ (𝑐 ∈ N ∧ 𝑑 ∈ N) ∧ (𝑒 ∈ N ∧ 𝑓 ∈ N)) ∧ (𝑥 ∈ N ∧ 𝑦 ∈ N ∧ 𝑧 ∈ N)) → ((𝑥 ·N 𝑦) ·N 𝑧) = (𝑥 ·N (𝑦 ·N 𝑧)))
66		mulclpi 7553	. . . . . . . . . . . . . . 15 ⊢ ((𝑥 ∈ N ∧ 𝑦 ∈ N) → (𝑥 ·N 𝑦) ∈ N)
67	66	adantl 277	. . . . . . . . . . . . . 14 ⊢ ((((𝑎 ∈ N ∧ 𝑏 ∈ N) ∧ (𝑐 ∈ N ∧ 𝑑 ∈ N) ∧ (𝑒 ∈ N ∧ 𝑓 ∈ N)) ∧ (𝑥 ∈ N ∧ 𝑦 ∈ N)) → (𝑥 ·N 𝑦) ∈ N)
68	35, 31, 30, 63, 65, 38, 67	caov411d 6213	. . . . . . . . . . . . 13 ⊢ (((𝑎 ∈ N ∧ 𝑏 ∈ N) ∧ (𝑐 ∈ N ∧ 𝑑 ∈ N) ∧ (𝑒 ∈ N ∧ 𝑓 ∈ N)) → ((𝑐 ·N 𝑑) ·N (𝑎 ·N 𝑓)) = ((𝑎 ·N 𝑑) ·N (𝑐 ·N 𝑓)))
69	63, 33, 40	caovcomd 6184	. . . . . . . . . . . . 13 ⊢ (((𝑎 ∈ N ∧ 𝑏 ∈ N) ∧ (𝑐 ∈ N ∧ 𝑑 ∈ N) ∧ (𝑒 ∈ N ∧ 𝑓 ∈ N)) → ((𝑎 ·N 𝑑) ·N (𝑐 ·N 𝑓)) = ((𝑐 ·N 𝑓) ·N (𝑎 ·N 𝑑)))
70	68, 69	eqtrd 2263	. . . . . . . . . . . 12 ⊢ (((𝑎 ∈ N ∧ 𝑏 ∈ N) ∧ (𝑐 ∈ N ∧ 𝑑 ∈ N) ∧ (𝑒 ∈ N ∧ 𝑓 ∈ N)) → ((𝑐 ·N 𝑑) ·N (𝑎 ·N 𝑓)) = ((𝑐 ·N 𝑓) ·N (𝑎 ·N 𝑑)))
71	35, 31, 34, 63, 65, 52, 67	caov4d 6212	. . . . . . . . . . . . 13 ⊢ (((𝑎 ∈ N ∧ 𝑏 ∈ N) ∧ (𝑐 ∈ N ∧ 𝑑 ∈ N) ∧ (𝑒 ∈ N ∧ 𝑓 ∈ N)) → ((𝑐 ·N 𝑑) ·N (𝑏 ·N 𝑒)) = ((𝑐 ·N 𝑏) ·N (𝑑 ·N 𝑒)))
72	63, 35, 34	caovcomd 6184	. . . . . . . . . . . . . 14 ⊢ (((𝑎 ∈ N ∧ 𝑏 ∈ N) ∧ (𝑐 ∈ N ∧ 𝑑 ∈ N) ∧ (𝑒 ∈ N ∧ 𝑓 ∈ N)) → (𝑐 ·N 𝑏) = (𝑏 ·N 𝑐))
73	72	oveq1d 6038	. . . . . . . . . . . . 13 ⊢ (((𝑎 ∈ N ∧ 𝑏 ∈ N) ∧ (𝑐 ∈ N ∧ 𝑑 ∈ N) ∧ (𝑒 ∈ N ∧ 𝑓 ∈ N)) → ((𝑐 ·N 𝑏) ·N (𝑑 ·N 𝑒)) = ((𝑏 ·N 𝑐) ·N (𝑑 ·N 𝑒)))
74	71, 73	eqtrd 2263	. . . . . . . . . . . 12 ⊢ (((𝑎 ∈ N ∧ 𝑏 ∈ N) ∧ (𝑐 ∈ N ∧ 𝑑 ∈ N) ∧ (𝑒 ∈ N ∧ 𝑓 ∈ N)) → ((𝑐 ·N 𝑑) ·N (𝑏 ·N 𝑒)) = ((𝑏 ·N 𝑐) ·N (𝑑 ·N 𝑒)))
75	70, 74	breq12d 4102	. . . . . . . . . . 11 ⊢ (((𝑎 ∈ N ∧ 𝑏 ∈ N) ∧ (𝑐 ∈ N ∧ 𝑑 ∈ N) ∧ (𝑒 ∈ N ∧ 𝑓 ∈ N)) → (((𝑐 ·N 𝑑) ·N (𝑎 ·N 𝑓)) <N ((𝑐 ·N 𝑑) ·N (𝑏 ·N 𝑒)) ↔ ((𝑐 ·N 𝑓) ·N (𝑎 ·N 𝑑)) <N ((𝑏 ·N 𝑐) ·N (𝑑 ·N 𝑒))))
76	75	adantr 276	. . . . . . . . . 10 ⊢ ((((𝑎 ∈ N ∧ 𝑏 ∈ N) ∧ (𝑐 ∈ N ∧ 𝑑 ∈ N) ∧ (𝑒 ∈ N ∧ 𝑓 ∈ N)) ∧ ([⟨𝑎, 𝑏⟩] ~Q <Q [⟨𝑐, 𝑑⟩] ~Q ∧ [⟨𝑐, 𝑑⟩] ~Q <Q [⟨𝑒, 𝑓⟩] ~Q )) → (((𝑐 ·N 𝑑) ·N (𝑎 ·N 𝑓)) <N ((𝑐 ·N 𝑑) ·N (𝑏 ·N 𝑒)) ↔ ((𝑐 ·N 𝑓) ·N (𝑎 ·N 𝑑)) <N ((𝑏 ·N 𝑐) ·N (𝑑 ·N 𝑒))))
77	61, 76	mpbird 167	. . . . . . . . 9 ⊢ ((((𝑎 ∈ N ∧ 𝑏 ∈ N) ∧ (𝑐 ∈ N ∧ 𝑑 ∈ N) ∧ (𝑒 ∈ N ∧ 𝑓 ∈ N)) ∧ ([⟨𝑎, 𝑏⟩] ~Q <Q [⟨𝑐, 𝑑⟩] ~Q ∧ [⟨𝑐, 𝑑⟩] ~Q <Q [⟨𝑒, 𝑓⟩] ~Q )) → ((𝑐 ·N 𝑑) ·N (𝑎 ·N 𝑓)) <N ((𝑐 ·N 𝑑) ·N (𝑏 ·N 𝑒)))
78		mulclpi 7553	. . . . . . . . . . . 12 ⊢ ((𝑎 ∈ N ∧ 𝑓 ∈ N) → (𝑎 ·N 𝑓) ∈ N)
79	30, 38, 78	syl2anc 411	. . . . . . . . . . 11 ⊢ (((𝑎 ∈ N ∧ 𝑏 ∈ N) ∧ (𝑐 ∈ N ∧ 𝑑 ∈ N) ∧ (𝑒 ∈ N ∧ 𝑓 ∈ N)) → (𝑎 ·N 𝑓) ∈ N)
80		mulclpi 7553	. . . . . . . . . . . 12 ⊢ ((𝑏 ∈ N ∧ 𝑒 ∈ N) → (𝑏 ·N 𝑒) ∈ N)
81	34, 52, 80	syl2anc 411	. . . . . . . . . . 11 ⊢ (((𝑎 ∈ N ∧ 𝑏 ∈ N) ∧ (𝑐 ∈ N ∧ 𝑑 ∈ N) ∧ (𝑒 ∈ N ∧ 𝑓 ∈ N)) → (𝑏 ·N 𝑒) ∈ N)
82		mulclpi 7553	. . . . . . . . . . . 12 ⊢ ((𝑐 ∈ N ∧ 𝑑 ∈ N) → (𝑐 ·N 𝑑) ∈ N)
83	35, 31, 82	syl2anc 411	. . . . . . . . . . 11 ⊢ (((𝑎 ∈ N ∧ 𝑏 ∈ N) ∧ (𝑐 ∈ N ∧ 𝑑 ∈ N) ∧ (𝑒 ∈ N ∧ 𝑓 ∈ N)) → (𝑐 ·N 𝑑) ∈ N)
84		ltmpig 7564	. . . . . . . . . . 11 ⊢ (((𝑎 ·N 𝑓) ∈ N ∧ (𝑏 ·N 𝑒) ∈ N ∧ (𝑐 ·N 𝑑) ∈ N) → ((𝑎 ·N 𝑓) <N (𝑏 ·N 𝑒) ↔ ((𝑐 ·N 𝑑) ·N (𝑎 ·N 𝑓)) <N ((𝑐 ·N 𝑑) ·N (𝑏 ·N 𝑒))))
85	79, 81, 83, 84	syl3anc 1273	. . . . . . . . . 10 ⊢ (((𝑎 ∈ N ∧ 𝑏 ∈ N) ∧ (𝑐 ∈ N ∧ 𝑑 ∈ N) ∧ (𝑒 ∈ N ∧ 𝑓 ∈ N)) → ((𝑎 ·N 𝑓) <N (𝑏 ·N 𝑒) ↔ ((𝑐 ·N 𝑑) ·N (𝑎 ·N 𝑓)) <N ((𝑐 ·N 𝑑) ·N (𝑏 ·N 𝑒))))
86	85	adantr 276	. . . . . . . . 9 ⊢ ((((𝑎 ∈ N ∧ 𝑏 ∈ N) ∧ (𝑐 ∈ N ∧ 𝑑 ∈ N) ∧ (𝑒 ∈ N ∧ 𝑓 ∈ N)) ∧ ([⟨𝑎, 𝑏⟩] ~Q <Q [⟨𝑐, 𝑑⟩] ~Q ∧ [⟨𝑐, 𝑑⟩] ~Q <Q [⟨𝑒, 𝑓⟩] ~Q )) → ((𝑎 ·N 𝑓) <N (𝑏 ·N 𝑒) ↔ ((𝑐 ·N 𝑑) ·N (𝑎 ·N 𝑓)) <N ((𝑐 ·N 𝑑) ·N (𝑏 ·N 𝑒))))
87	77, 86	mpbird 167	. . . . . . . 8 ⊢ ((((𝑎 ∈ N ∧ 𝑏 ∈ N) ∧ (𝑐 ∈ N ∧ 𝑑 ∈ N) ∧ (𝑒 ∈ N ∧ 𝑓 ∈ N)) ∧ ([⟨𝑎, 𝑏⟩] ~Q <Q [⟨𝑐, 𝑑⟩] ~Q ∧ [⟨𝑐, 𝑑⟩] ~Q <Q [⟨𝑒, 𝑓⟩] ~Q )) → (𝑎 ·N 𝑓) <N (𝑏 ·N 𝑒))
88		ordpipqqs 7599	. . . . . . . . . 10 ⊢ (((𝑎 ∈ N ∧ 𝑏 ∈ N) ∧ (𝑒 ∈ N ∧ 𝑓 ∈ N)) → ([⟨𝑎, 𝑏⟩] ~Q <Q [⟨𝑒, 𝑓⟩] ~Q ↔ (𝑎 ·N 𝑓) <N (𝑏 ·N 𝑒)))
89	88	3adant2 1042	. . . . . . . . 9 ⊢ (((𝑎 ∈ N ∧ 𝑏 ∈ N) ∧ (𝑐 ∈ N ∧ 𝑑 ∈ N) ∧ (𝑒 ∈ N ∧ 𝑓 ∈ N)) → ([⟨𝑎, 𝑏⟩] ~Q <Q [⟨𝑒, 𝑓⟩] ~Q ↔ (𝑎 ·N 𝑓) <N (𝑏 ·N 𝑒)))
90	89	adantr 276	. . . . . . . 8 ⊢ ((((𝑎 ∈ N ∧ 𝑏 ∈ N) ∧ (𝑐 ∈ N ∧ 𝑑 ∈ N) ∧ (𝑒 ∈ N ∧ 𝑓 ∈ N)) ∧ ([⟨𝑎, 𝑏⟩] ~Q <Q [⟨𝑐, 𝑑⟩] ~Q ∧ [⟨𝑐, 𝑑⟩] ~Q <Q [⟨𝑒, 𝑓⟩] ~Q )) → ([⟨𝑎, 𝑏⟩] ~Q <Q [⟨𝑒, 𝑓⟩] ~Q ↔ (𝑎 ·N 𝑓) <N (𝑏 ·N 𝑒)))
91	87, 90	mpbird 167	. . . . . . 7 ⊢ ((((𝑎 ∈ N ∧ 𝑏 ∈ N) ∧ (𝑐 ∈ N ∧ 𝑑 ∈ N) ∧ (𝑒 ∈ N ∧ 𝑓 ∈ N)) ∧ ([⟨𝑎, 𝑏⟩] ~Q <Q [⟨𝑐, 𝑑⟩] ~Q ∧ [⟨𝑐, 𝑑⟩] ~Q <Q [⟨𝑒, 𝑓⟩] ~Q )) → [⟨𝑎, 𝑏⟩] ~Q <Q [⟨𝑒, 𝑓⟩] ~Q )
92	91	ex 115	. . . . . 6 ⊢ (((𝑎 ∈ N ∧ 𝑏 ∈ N) ∧ (𝑐 ∈ N ∧ 𝑑 ∈ N) ∧ (𝑒 ∈ N ∧ 𝑓 ∈ N)) → (([⟨𝑎, 𝑏⟩] ~Q <Q [⟨𝑐, 𝑑⟩] ~Q ∧ [⟨𝑐, 𝑑⟩] ~Q <Q [⟨𝑒, 𝑓⟩] ~Q ) → [⟨𝑎, 𝑏⟩] ~Q <Q [⟨𝑒, 𝑓⟩] ~Q ))
93	1, 19, 23, 27, 92	3ecoptocl 6798	. . . . 5 ⊢ ((𝑥 ∈ Q ∧ 𝑦 ∈ Q ∧ 𝑧 ∈ Q) → ((𝑥 <Q 𝑦 ∧ 𝑦 <Q 𝑧) → 𝑥 <Q 𝑧))
94	93	adantl 277	. . . 4 ⊢ ((⊤ ∧ (𝑥 ∈ Q ∧ 𝑦 ∈ Q ∧ 𝑧 ∈ Q)) → ((𝑥 <Q 𝑦 ∧ 𝑦 <Q 𝑧) → 𝑥 <Q 𝑧))
95	15, 94	ispod 4403	. . 3 ⊢ (⊤ → <Q Po Q)
96		nqtri3or 7621	. . . 4 ⊢ ((𝑥 ∈ Q ∧ 𝑦 ∈ Q) → (𝑥 <Q 𝑦 ∨ 𝑥 = 𝑦 ∨ 𝑦 <Q 𝑥))
97	96	adantl 277	. . 3 ⊢ ((⊤ ∧ (𝑥 ∈ Q ∧ 𝑦 ∈ Q)) → (𝑥 <Q 𝑦 ∨ 𝑥 = 𝑦 ∨ 𝑦 <Q 𝑥))
98	95, 97	issod 4418	. 2 ⊢ (⊤ → <Q Or Q)
99	98	mptru 1406	1 ⊢ <Q Or Q

Syntax hints:  ¬ wn 3   → wi 4   ∧ wa 104   ↔ wb 105   ∨ w3o 1003   ∧ w3a 1004   = wceq 1397  ⊤wtru 1398   ∈ wcel 2201  ⟨cop 3673   class class class wbr 4089   Or wor 4394  (class class class)co 6023  [cec 6705  Ncnpi 7497   ·_N cmi 7499   <_N clti 7500   ~_Q ceq 7504  Qcnq 7505   <_Q cltq 7510

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 716  ax-5 1495  ax-7 1496  ax-gen 1497  ax-ie1 1541  ax-ie2 1542  ax-8 1552  ax-10 1553  ax-11 1554  ax-i12 1555  ax-bndl 1557  ax-4 1558  ax-17 1574  ax-i9 1578  ax-ial 1582  ax-i5r 1583  ax-13 2203  ax-14 2204  ax-ext 2212  ax-coll 4205  ax-sep 4208  ax-nul 4216  ax-pow 4266  ax-pr 4301  ax-un 4532  ax-setind 4637  ax-iinf 4688

This theorem depends on definitions:  df-bi 117  df-dc 842  df-3or 1005  df-3an 1006  df-tru 1400  df-fal 1403  df-nf 1509  df-sb 1810  df-eu 2081  df-mo 2082  df-clab 2217  df-cleq 2223  df-clel 2226  df-nfc 2362  df-ne 2402  df-ral 2514  df-rex 2515  df-reu 2516  df-rab 2518  df-v 2803  df-sbc 3031  df-csb 3127  df-dif 3201  df-un 3203  df-in 3205  df-ss 3212  df-nul 3494  df-pw 3655  df-sn 3676  df-pr 3677  df-op 3679  df-uni 3895  df-int 3930  df-iun 3973  df-br 4090  df-opab 4152  df-mpt 4153  df-tr 4189  df-eprel 4388  df-id 4392  df-po 4395  df-iso 4396  df-iord 4465  df-on 4467  df-suc 4470  df-iom 4691  df-xp 4733  df-rel 4734  df-cnv 4735  df-co 4736  df-dm 4737  df-rn 4738  df-res 4739  df-ima 4740  df-iota 5288  df-fun 5330  df-fn 5331  df-f 5332  df-f1 5333  df-fo 5334  df-f1o 5335  df-fv 5336  df-ov 6026  df-oprab 6027  df-mpo 6028  df-1st 6308  df-2nd 6309  df-recs 6476  df-irdg 6541  df-oadd 6591  df-omul 6592  df-er 6707  df-ec 6709  df-qs 6713  df-ni 7529  df-mi 7531  df-lti 7532  df-enq 7572  df-nqqs 7573  df-ltnqqs 7578

This theorem is referenced by:  nqtric  7624  lt2addnq  7629  lt2mulnq  7630  ltbtwnnqq  7640  prarloclemarch2  7644  genplt2i  7735  genpdisj  7748  addlocprlemgt  7759  nqprdisj  7769  nqprloc  7770  addnqprlemfl  7784  addnqprlemfu  7785  prmuloclemcalc  7790  mulnqprlemfl  7800  mulnqprlemfu  7801  distrlem4prl  7809  distrlem4pru  7810  ltsopr  7821  ltexprlemopl  7826  ltexprlemopu  7828  ltexprlemdisj  7831  ltexprlemru  7837  recexprlemlol  7851  recexprlemupu  7853  recexprlemdisj  7855  recexprlemss1l  7860  recexprlemss1u  7861  cauappcvgprlemopl  7871  cauappcvgprlemlol  7872  cauappcvgprlemupu  7874  cauappcvgprlemdisj  7876  cauappcvgprlemloc  7877  cauappcvgprlemladdfu  7879  cauappcvgprlemladdru  7881  cauappcvgprlemladdrl  7882  caucvgprlemk  7890  caucvgprlemnkj  7891  caucvgprlemnbj  7892  caucvgprlemm  7893  caucvgprlemopl  7894  caucvgprlemlol  7895  caucvgprlemupu  7897  caucvgprlemloc  7900  caucvgprlemladdfu  7902  caucvgprprlemloccalc  7909  caucvgprprlemml  7919  caucvgprprlemopl  7922  suplocexprlemru  7944