Theorem ltsonq 7620

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 7570	. . . . . 6 ⊢ Q = ((N × N) / ~Q )
2		id 19	. . . . . . . 8 ⊢ ([⟨𝑧, 𝑤⟩] ~Q = 𝑥 → [⟨𝑧, 𝑤⟩] ~Q = 𝑥)
3	2, 2	breq12d 4100	. . . . . . 7 ⊢ ([⟨𝑧, 𝑤⟩] ~Q = 𝑥 → ([⟨𝑧, 𝑤⟩] ~Q <Q [⟨𝑧, 𝑤⟩] ~Q ↔ 𝑥 <Q 𝑥))
4	3	notbid 673	. . . . . 6 ⊢ ([⟨𝑧, 𝑤⟩] ~Q = 𝑥 → (¬ [⟨𝑧, 𝑤⟩] ~Q <Q [⟨𝑧, 𝑤⟩] ~Q ↔ ¬ 𝑥 <Q 𝑥))
5		ltsopi 7542	. . . . . . . 8 ⊢ <N Or N
6		ltrelpi 7546	. . . . . . . 8 ⊢ <N ⊆ (N × N)
7	5, 6	soirri 5130	. . . . . . 7 ⊢ ¬ (𝑤 ·N 𝑧) <N (𝑤 ·N 𝑧)
8		ordpipqqs 7596	. . . . . . . . 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 7553	. . . . . . . . 9 ⊢ ((𝑧 ∈ N ∧ 𝑤 ∈ N) → (𝑧 ·N 𝑤) = (𝑤 ·N 𝑧))
11	10	breq1d 4097	. . . . . . . 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 6793	. . . . 5 ⊢ (𝑥 ∈ Q → ¬ 𝑥 <Q 𝑥)
15	14	adantl 277	. . . 4 ⊢ ((⊤ ∧ 𝑥 ∈ Q) → ¬ 𝑥 <Q 𝑥)
16		breq1 4090	. . . . . . . 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 4090	. . . . . . 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 4091	. . . . . . . 8 ⊢ ([⟨𝑐, 𝑑⟩] ~Q = 𝑦 → (𝑥 <Q [⟨𝑐, 𝑑⟩] ~Q ↔ 𝑥 <Q 𝑦))
21		breq1 4090	. . . . . . . 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 4091	. . . . . . . 8 ⊢ ([⟨𝑒, 𝑓⟩] ~Q = 𝑧 → (𝑦 <Q [⟨𝑒, 𝑓⟩] ~Q ↔ 𝑦 <Q 𝑧))
25	24	anbi2d 464	. . . . . . 7 ⊢ ([⟨𝑒, 𝑓⟩] ~Q = 𝑧 → ((𝑥 <Q 𝑦 ∧ 𝑦 <Q [⟨𝑒, 𝑓⟩] ~Q ) ↔ (𝑥 <Q 𝑦 ∧ 𝑦 <Q 𝑧)))
26		breq2 4091	. . . . . . 7 ⊢ ([⟨𝑒, 𝑓⟩] ~Q = 𝑧 → (𝑥 <Q [⟨𝑒, 𝑓⟩] ~Q ↔ 𝑥 <Q 𝑧))
27	25, 26	imbi12d 234	. . . . . 6 ⊢ ([⟨𝑒, 𝑓⟩] ~Q = 𝑧 → (((𝑥 <Q 𝑦 ∧ 𝑦 <Q [⟨𝑒, 𝑓⟩] ~Q ) → 𝑥 <Q [⟨𝑒, 𝑓⟩] ~Q ) ↔ ((𝑥 <Q 𝑦 ∧ 𝑦 <Q 𝑧) → 𝑥 <Q 𝑧)))
28		ordpipqqs 7596	. . . . . . . . . . . . . . . 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 7550	. . . . . . . . . . . . . . . . 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 7550	. . . . . . . . . . . . . . . . 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 7550	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑐 ∈ N ∧ 𝑓 ∈ N) → (𝑐 ·N 𝑓) ∈ N)
40	35, 38, 39	syl2anc 411	. . . . . . . . . . . . . . . 16 ⊢ (((𝑎 ∈ N ∧ 𝑏 ∈ N) ∧ (𝑐 ∈ N ∧ 𝑑 ∈ N) ∧ (𝑒 ∈ N ∧ 𝑓 ∈ N)) → (𝑐 ·N 𝑓) ∈ N)
41		ltmpig 7561	. . . . . . . . . . . . . . . 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 7553	. . . . . . . . . . . . . 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 4113	. . . . . . . . . . 11 ⊢ ((((𝑎 ∈ N ∧ 𝑏 ∈ N) ∧ (𝑐 ∈ N ∧ 𝑑 ∈ N) ∧ (𝑒 ∈ N ∧ 𝑓 ∈ N)) ∧ ([⟨𝑎, 𝑏⟩] ~Q <Q [⟨𝑐, 𝑑⟩] ~Q ∧ [⟨𝑐, 𝑑⟩] ~Q <Q [⟨𝑒, 𝑓⟩] ~Q )) → ((𝑐 ·N 𝑓) ·N (𝑎 ·N 𝑑)) <N ((𝑏 ·N 𝑐) ·N (𝑐 ·N 𝑓)))
50		ordpipqqs 7596	. . . . . . . . . . . . . . 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 7550	. . . . . . . . . . . . . . . 16 ⊢ ((𝑑 ∈ N ∧ 𝑒 ∈ N) → (𝑑 ·N 𝑒) ∈ N)
54	31, 52, 53	syl2anc 411	. . . . . . . . . . . . . . 15 ⊢ (((𝑎 ∈ N ∧ 𝑏 ∈ N) ∧ (𝑐 ∈ N ∧ 𝑑 ∈ N) ∧ (𝑒 ∈ N ∧ 𝑓 ∈ N)) → (𝑑 ·N 𝑒) ∈ N)
55		ltmpig 7561	. . . . . . . . . . . . . . 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 5131	. . . . . . . . . . 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 7553	. . . . . . . . . . . . . . 15 ⊢ ((𝑥 ∈ N ∧ 𝑦 ∈ N) → (𝑥 ·N 𝑦) = (𝑦 ·N 𝑥))
63	62	adantl 277	. . . . . . . . . . . . . 14 ⊢ ((((𝑎 ∈ N ∧ 𝑏 ∈ N) ∧ (𝑐 ∈ N ∧ 𝑑 ∈ N) ∧ (𝑒 ∈ N ∧ 𝑓 ∈ N)) ∧ (𝑥 ∈ N ∧ 𝑦 ∈ N)) → (𝑥 ·N 𝑦) = (𝑦 ·N 𝑥))
64		mulasspig 7554	. . . . . . . . . . . . . . 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 7550	. . . . . . . . . . . . . . 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 6210	. . . . . . . . . . . . 13 ⊢ (((𝑎 ∈ N ∧ 𝑏 ∈ N) ∧ (𝑐 ∈ N ∧ 𝑑 ∈ N) ∧ (𝑒 ∈ N ∧ 𝑓 ∈ N)) → ((𝑐 ·N 𝑑) ·N (𝑎 ·N 𝑓)) = ((𝑎 ·N 𝑑) ·N (𝑐 ·N 𝑓)))
69	63, 33, 40	caovcomd 6181	. . . . . . . . . . . . 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 6209	. . . . . . . . . . . . 13 ⊢ (((𝑎 ∈ N ∧ 𝑏 ∈ N) ∧ (𝑐 ∈ N ∧ 𝑑 ∈ N) ∧ (𝑒 ∈ N ∧ 𝑓 ∈ N)) → ((𝑐 ·N 𝑑) ·N (𝑏 ·N 𝑒)) = ((𝑐 ·N 𝑏) ·N (𝑑 ·N 𝑒)))
72	63, 35, 34	caovcomd 6181	. . . . . . . . . . . . . 14 ⊢ (((𝑎 ∈ N ∧ 𝑏 ∈ N) ∧ (𝑐 ∈ N ∧ 𝑑 ∈ N) ∧ (𝑒 ∈ N ∧ 𝑓 ∈ N)) → (𝑐 ·N 𝑏) = (𝑏 ·N 𝑐))
73	72	oveq1d 6035	. . . . . . . . . . . . 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 4100	. . . . . . . . . . 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 7550	. . . . . . . . . . . 12 ⊢ ((𝑎 ∈ N ∧ 𝑓 ∈ N) → (𝑎 ·N 𝑓) ∈ N)
79	30, 38, 78	syl2anc 411	. . . . . . . . . . 11 ⊢ (((𝑎 ∈ N ∧ 𝑏 ∈ N) ∧ (𝑐 ∈ N ∧ 𝑑 ∈ N) ∧ (𝑒 ∈ N ∧ 𝑓 ∈ N)) → (𝑎 ·N 𝑓) ∈ N)
80		mulclpi 7550	. . . . . . . . . . . 12 ⊢ ((𝑏 ∈ N ∧ 𝑒 ∈ N) → (𝑏 ·N 𝑒) ∈ N)
81	34, 52, 80	syl2anc 411	. . . . . . . . . . 11 ⊢ (((𝑎 ∈ N ∧ 𝑏 ∈ N) ∧ (𝑐 ∈ N ∧ 𝑑 ∈ N) ∧ (𝑒 ∈ N ∧ 𝑓 ∈ N)) → (𝑏 ·N 𝑒) ∈ N)
82		mulclpi 7550	. . . . . . . . . . . 12 ⊢ ((𝑐 ∈ N ∧ 𝑑 ∈ N) → (𝑐 ·N 𝑑) ∈ N)
83	35, 31, 82	syl2anc 411	. . . . . . . . . . 11 ⊢ (((𝑎 ∈ N ∧ 𝑏 ∈ N) ∧ (𝑐 ∈ N ∧ 𝑑 ∈ N) ∧ (𝑒 ∈ N ∧ 𝑓 ∈ N)) → (𝑐 ·N 𝑑) ∈ N)
84		ltmpig 7561	. . . . . . . . . . 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 7596	. . . . . . . . . 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 6795	. . . . 5 ⊢ ((𝑥 ∈ Q ∧ 𝑦 ∈ Q ∧ 𝑧 ∈ Q) → ((𝑥 <Q 𝑦 ∧ 𝑦 <Q 𝑧) → 𝑥 <Q 𝑧))
94	93	adantl 277	. . . 4 ⊢ ((⊤ ∧ (𝑥 ∈ Q ∧ 𝑦 ∈ Q ∧ 𝑧 ∈ Q)) → ((𝑥 <Q 𝑦 ∧ 𝑦 <Q 𝑧) → 𝑥 <Q 𝑧))
95	15, 94	ispod 4400	. . 3 ⊢ (⊤ → <Q Po Q)
96		nqtri3or 7618	. . . 4 ⊢ ((𝑥 ∈ Q ∧ 𝑦 ∈ Q) → (𝑥 <Q 𝑦 ∨ 𝑥 = 𝑦 ∨ 𝑦 <Q 𝑥))
97	96	adantl 277	. . 3 ⊢ ((⊤ ∧ (𝑥 ∈ Q ∧ 𝑦 ∈ Q)) → (𝑥 <Q 𝑦 ∨ 𝑥 = 𝑦 ∨ 𝑦 <Q 𝑥))
98	95, 97	issod 4415	. 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 3671   class class class wbr 4087   Or wor 4391  (class class class)co 6020  [cec 6702  Ncnpi 7494   ·_N cmi 7496   <_N clti 7497   ~_Q ceq 7501  Qcnq 7502   <_Q cltq 7507

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 4203  ax-sep 4206  ax-nul 4214  ax-pow 4263  ax-pr 4298  ax-un 4529  ax-setind 4634  ax-iinf 4685

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 3653  df-sn 3674  df-pr 3675  df-op 3677  df-uni 3893  df-int 3928  df-iun 3971  df-br 4088  df-opab 4150  df-mpt 4151  df-tr 4187  df-eprel 4385  df-id 4389  df-po 4392  df-iso 4393  df-iord 4462  df-on 4464  df-suc 4467  df-iom 4688  df-xp 4730  df-rel 4731  df-cnv 4732  df-co 4733  df-dm 4734  df-rn 4735  df-res 4736  df-ima 4737  df-iota 5285  df-fun 5327  df-fn 5328  df-f 5329  df-f1 5330  df-fo 5331  df-f1o 5332  df-fv 5333  df-ov 6023  df-oprab 6024  df-mpo 6025  df-1st 6305  df-2nd 6306  df-recs 6473  df-irdg 6538  df-oadd 6588  df-omul 6589  df-er 6704  df-ec 6706  df-qs 6710  df-ni 7526  df-mi 7528  df-lti 7529  df-enq 7569  df-nqqs 7570  df-ltnqqs 7575

This theorem is referenced by:  nqtric  7621  lt2addnq  7626  lt2mulnq  7627  ltbtwnnqq  7637  prarloclemarch2  7641  genplt2i  7732  genpdisj  7745  addlocprlemgt  7756  nqprdisj  7766  nqprloc  7767  addnqprlemfl  7781  addnqprlemfu  7782  prmuloclemcalc  7787  mulnqprlemfl  7797  mulnqprlemfu  7798  distrlem4prl  7806  distrlem4pru  7807  ltsopr  7818  ltexprlemopl  7823  ltexprlemopu  7825  ltexprlemdisj  7828  ltexprlemru  7834  recexprlemlol  7848  recexprlemupu  7850  recexprlemdisj  7852  recexprlemss1l  7857  recexprlemss1u  7858  cauappcvgprlemopl  7868  cauappcvgprlemlol  7869  cauappcvgprlemupu  7871  cauappcvgprlemdisj  7873  cauappcvgprlemloc  7874  cauappcvgprlemladdfu  7876  cauappcvgprlemladdru  7878  cauappcvgprlemladdrl  7879  caucvgprlemk  7887  caucvgprlemnkj  7888  caucvgprlemnbj  7889  caucvgprlemm  7890  caucvgprlemopl  7891  caucvgprlemlol  7892  caucvgprlemupu  7894  caucvgprlemloc  7897  caucvgprlemladdfu  7899  caucvgprprlemloccalc  7906  caucvgprprlemml  7916  caucvgprprlemopl  7919  suplocexprlemru  7941