Theorem ltsonq 7518

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 7468	. . . . . 6 ⊢ Q = ((N × N) / ~Q )
2		id 19	. . . . . . . 8 ⊢ ([⟨𝑧, 𝑤⟩] ~Q = 𝑥 → [⟨𝑧, 𝑤⟩] ~Q = 𝑥)
3	2, 2	breq12d 4060	. . . . . . 7 ⊢ ([⟨𝑧, 𝑤⟩] ~Q = 𝑥 → ([⟨𝑧, 𝑤⟩] ~Q <Q [⟨𝑧, 𝑤⟩] ~Q ↔ 𝑥 <Q 𝑥))
4	3	notbid 669	. . . . . 6 ⊢ ([⟨𝑧, 𝑤⟩] ~Q = 𝑥 → (¬ [⟨𝑧, 𝑤⟩] ~Q <Q [⟨𝑧, 𝑤⟩] ~Q ↔ ¬ 𝑥 <Q 𝑥))
5		ltsopi 7440	. . . . . . . 8 ⊢ <N Or N
6		ltrelpi 7444	. . . . . . . 8 ⊢ <N ⊆ (N × N)
7	5, 6	soirri 5082	. . . . . . 7 ⊢ ¬ (𝑤 ·N 𝑧) <N (𝑤 ·N 𝑧)
8		ordpipqqs 7494	. . . . . . . . 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 7451	. . . . . . . . 9 ⊢ ((𝑧 ∈ N ∧ 𝑤 ∈ N) → (𝑧 ·N 𝑤) = (𝑤 ·N 𝑧))
11	10	breq1d 4057	. . . . . . . 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 677	. . . . . 6 ⊢ ((𝑧 ∈ N ∧ 𝑤 ∈ N) → ¬ [⟨𝑧, 𝑤⟩] ~Q <Q [⟨𝑧, 𝑤⟩] ~Q )
14	1, 4, 13	ecoptocl 6716	. . . . 5 ⊢ (𝑥 ∈ Q → ¬ 𝑥 <Q 𝑥)
15	14	adantl 277	. . . 4 ⊢ ((⊤ ∧ 𝑥 ∈ Q) → ¬ 𝑥 <Q 𝑥)
16		breq1 4050	. . . . . . . 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 4050	. . . . . . 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 4051	. . . . . . . 8 ⊢ ([⟨𝑐, 𝑑⟩] ~Q = 𝑦 → (𝑥 <Q [⟨𝑐, 𝑑⟩] ~Q ↔ 𝑥 <Q 𝑦))
21		breq1 4050	. . . . . . . 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 4051	. . . . . . . 8 ⊢ ([⟨𝑒, 𝑓⟩] ~Q = 𝑧 → (𝑦 <Q [⟨𝑒, 𝑓⟩] ~Q ↔ 𝑦 <Q 𝑧))
25	24	anbi2d 464	. . . . . . 7 ⊢ ([⟨𝑒, 𝑓⟩] ~Q = 𝑧 → ((𝑥 <Q 𝑦 ∧ 𝑦 <Q [⟨𝑒, 𝑓⟩] ~Q ) ↔ (𝑥 <Q 𝑦 ∧ 𝑦 <Q 𝑧)))
26		breq2 4051	. . . . . . 7 ⊢ ([⟨𝑒, 𝑓⟩] ~Q = 𝑧 → (𝑥 <Q [⟨𝑒, 𝑓⟩] ~Q ↔ 𝑥 <Q 𝑧))
27	25, 26	imbi12d 234	. . . . . 6 ⊢ ([⟨𝑒, 𝑓⟩] ~Q = 𝑧 → (((𝑥 <Q 𝑦 ∧ 𝑦 <Q [⟨𝑒, 𝑓⟩] ~Q ) → 𝑥 <Q [⟨𝑒, 𝑓⟩] ~Q ) ↔ ((𝑥 <Q 𝑦 ∧ 𝑦 <Q 𝑧) → 𝑥 <Q 𝑧)))
28		ordpipqqs 7494	. . . . . . . . . . . . . . . 16 ⊢ (((𝑎 ∈ N ∧ 𝑏 ∈ N) ∧ (𝑐 ∈ N ∧ 𝑑 ∈ N)) → ([⟨𝑎, 𝑏⟩] ~Q <Q [⟨𝑐, 𝑑⟩] ~Q ↔ (𝑎 ·N 𝑑) <N (𝑏 ·N 𝑐)))
29	28	3adant3 1020	. . . . . . . . . . . . . . 15 ⊢ (((𝑎 ∈ N ∧ 𝑏 ∈ N) ∧ (𝑐 ∈ N ∧ 𝑑 ∈ N) ∧ (𝑒 ∈ N ∧ 𝑓 ∈ N)) → ([⟨𝑎, 𝑏⟩] ~Q <Q [⟨𝑐, 𝑑⟩] ~Q ↔ (𝑎 ·N 𝑑) <N (𝑏 ·N 𝑐)))
30		simp1l 1024	. . . . . . . . . . . . . . . . 17 ⊢ (((𝑎 ∈ N ∧ 𝑏 ∈ N) ∧ (𝑐 ∈ N ∧ 𝑑 ∈ N) ∧ (𝑒 ∈ N ∧ 𝑓 ∈ N)) → 𝑎 ∈ N)
31		simp2r 1027	. . . . . . . . . . . . . . . . 17 ⊢ (((𝑎 ∈ N ∧ 𝑏 ∈ N) ∧ (𝑐 ∈ N ∧ 𝑑 ∈ N) ∧ (𝑒 ∈ N ∧ 𝑓 ∈ N)) → 𝑑 ∈ N)
32		mulclpi 7448	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑎 ∈ N ∧ 𝑑 ∈ N) → (𝑎 ·N 𝑑) ∈ N)
33	30, 31, 32	syl2anc 411	. . . . . . . . . . . . . . . 16 ⊢ (((𝑎 ∈ N ∧ 𝑏 ∈ N) ∧ (𝑐 ∈ N ∧ 𝑑 ∈ N) ∧ (𝑒 ∈ N ∧ 𝑓 ∈ N)) → (𝑎 ·N 𝑑) ∈ N)
34		simp1r 1025	. . . . . . . . . . . . . . . . 17 ⊢ (((𝑎 ∈ N ∧ 𝑏 ∈ N) ∧ (𝑐 ∈ N ∧ 𝑑 ∈ N) ∧ (𝑒 ∈ N ∧ 𝑓 ∈ N)) → 𝑏 ∈ N)
35		simp2l 1026	. . . . . . . . . . . . . . . . 17 ⊢ (((𝑎 ∈ N ∧ 𝑏 ∈ N) ∧ (𝑐 ∈ N ∧ 𝑑 ∈ N) ∧ (𝑒 ∈ N ∧ 𝑓 ∈ N)) → 𝑐 ∈ N)
36		mulclpi 7448	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑏 ∈ N ∧ 𝑐 ∈ N) → (𝑏 ·N 𝑐) ∈ N)
37	34, 35, 36	syl2anc 411	. . . . . . . . . . . . . . . 16 ⊢ (((𝑎 ∈ N ∧ 𝑏 ∈ N) ∧ (𝑐 ∈ N ∧ 𝑑 ∈ N) ∧ (𝑒 ∈ N ∧ 𝑓 ∈ N)) → (𝑏 ·N 𝑐) ∈ N)
38		simp3r 1029	. . . . . . . . . . . . . . . . 17 ⊢ (((𝑎 ∈ N ∧ 𝑏 ∈ N) ∧ (𝑐 ∈ N ∧ 𝑑 ∈ N) ∧ (𝑒 ∈ N ∧ 𝑓 ∈ N)) → 𝑓 ∈ N)
39		mulclpi 7448	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑐 ∈ N ∧ 𝑓 ∈ N) → (𝑐 ·N 𝑓) ∈ N)
40	35, 38, 39	syl2anc 411	. . . . . . . . . . . . . . . 16 ⊢ (((𝑎 ∈ N ∧ 𝑏 ∈ N) ∧ (𝑐 ∈ N ∧ 𝑑 ∈ N) ∧ (𝑒 ∈ N ∧ 𝑓 ∈ N)) → (𝑐 ·N 𝑓) ∈ N)
41		ltmpig 7459	. . . . . . . . . . . . . . . 16 ⊢ (((𝑎 ·N 𝑑) ∈ N ∧ (𝑏 ·N 𝑐) ∈ N ∧ (𝑐 ·N 𝑓) ∈ N) → ((𝑎 ·N 𝑑) <N (𝑏 ·N 𝑐) ↔ ((𝑐 ·N 𝑓) ·N (𝑎 ·N 𝑑)) <N ((𝑐 ·N 𝑓) ·N (𝑏 ·N 𝑐))))
42	33, 37, 40, 41	syl3anc 1250	. . . . . . . . . . . . . . 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 7451	. . . . . . . . . . . . . 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 4073	. . . . . . . . . . 11 ⊢ ((((𝑎 ∈ N ∧ 𝑏 ∈ N) ∧ (𝑐 ∈ N ∧ 𝑑 ∈ N) ∧ (𝑒 ∈ N ∧ 𝑓 ∈ N)) ∧ ([⟨𝑎, 𝑏⟩] ~Q <Q [⟨𝑐, 𝑑⟩] ~Q ∧ [⟨𝑐, 𝑑⟩] ~Q <Q [⟨𝑒, 𝑓⟩] ~Q )) → ((𝑐 ·N 𝑓) ·N (𝑎 ·N 𝑑)) <N ((𝑏 ·N 𝑐) ·N (𝑐 ·N 𝑓)))
50		ordpipqqs 7494	. . . . . . . . . . . . . . 15 ⊢ (((𝑐 ∈ N ∧ 𝑑 ∈ N) ∧ (𝑒 ∈ N ∧ 𝑓 ∈ N)) → ([⟨𝑐, 𝑑⟩] ~Q <Q [⟨𝑒, 𝑓⟩] ~Q ↔ (𝑐 ·N 𝑓) <N (𝑑 ·N 𝑒)))
51	50	3adant1 1018	. . . . . . . . . . . . . 14 ⊢ (((𝑎 ∈ N ∧ 𝑏 ∈ N) ∧ (𝑐 ∈ N ∧ 𝑑 ∈ N) ∧ (𝑒 ∈ N ∧ 𝑓 ∈ N)) → ([⟨𝑐, 𝑑⟩] ~Q <Q [⟨𝑒, 𝑓⟩] ~Q ↔ (𝑐 ·N 𝑓) <N (𝑑 ·N 𝑒)))
52		simp3l 1028	. . . . . . . . . . . . . . . 16 ⊢ (((𝑎 ∈ N ∧ 𝑏 ∈ N) ∧ (𝑐 ∈ N ∧ 𝑑 ∈ N) ∧ (𝑒 ∈ N ∧ 𝑓 ∈ N)) → 𝑒 ∈ N)
53		mulclpi 7448	. . . . . . . . . . . . . . . 16 ⊢ ((𝑑 ∈ N ∧ 𝑒 ∈ N) → (𝑑 ·N 𝑒) ∈ N)
54	31, 52, 53	syl2anc 411	. . . . . . . . . . . . . . 15 ⊢ (((𝑎 ∈ N ∧ 𝑏 ∈ N) ∧ (𝑐 ∈ N ∧ 𝑑 ∈ N) ∧ (𝑒 ∈ N ∧ 𝑓 ∈ N)) → (𝑑 ·N 𝑒) ∈ N)
55		ltmpig 7459	. . . . . . . . . . . . . . 15 ⊢ (((𝑐 ·N 𝑓) ∈ N ∧ (𝑑 ·N 𝑒) ∈ N ∧ (𝑏 ·N 𝑐) ∈ N) → ((𝑐 ·N 𝑓) <N (𝑑 ·N 𝑒) ↔ ((𝑏 ·N 𝑐) ·N (𝑐 ·N 𝑓)) <N ((𝑏 ·N 𝑐) ·N (𝑑 ·N 𝑒))))
56	40, 54, 37, 55	syl3anc 1250	. . . . . . . . . . . . . 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 5083	. . . . . . . . . . 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 7451	. . . . . . . . . . . . . . 15 ⊢ ((𝑥 ∈ N ∧ 𝑦 ∈ N) → (𝑥 ·N 𝑦) = (𝑦 ·N 𝑥))
63	62	adantl 277	. . . . . . . . . . . . . 14 ⊢ ((((𝑎 ∈ N ∧ 𝑏 ∈ N) ∧ (𝑐 ∈ N ∧ 𝑑 ∈ N) ∧ (𝑒 ∈ N ∧ 𝑓 ∈ N)) ∧ (𝑥 ∈ N ∧ 𝑦 ∈ N)) → (𝑥 ·N 𝑦) = (𝑦 ·N 𝑥))
64		mulasspig 7452	. . . . . . . . . . . . . . 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 7448	. . . . . . . . . . . . . . 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 6139	. . . . . . . . . . . . 13 ⊢ (((𝑎 ∈ N ∧ 𝑏 ∈ N) ∧ (𝑐 ∈ N ∧ 𝑑 ∈ N) ∧ (𝑒 ∈ N ∧ 𝑓 ∈ N)) → ((𝑐 ·N 𝑑) ·N (𝑎 ·N 𝑓)) = ((𝑎 ·N 𝑑) ·N (𝑐 ·N 𝑓)))
69	63, 33, 40	caovcomd 6110	. . . . . . . . . . . . 13 ⊢ (((𝑎 ∈ N ∧ 𝑏 ∈ N) ∧ (𝑐 ∈ N ∧ 𝑑 ∈ N) ∧ (𝑒 ∈ N ∧ 𝑓 ∈ N)) → ((𝑎 ·N 𝑑) ·N (𝑐 ·N 𝑓)) = ((𝑐 ·N 𝑓) ·N (𝑎 ·N 𝑑)))
70	68, 69	eqtrd 2239	. . . . . . . . . . . 12 ⊢ (((𝑎 ∈ N ∧ 𝑏 ∈ N) ∧ (𝑐 ∈ N ∧ 𝑑 ∈ N) ∧ (𝑒 ∈ N ∧ 𝑓 ∈ N)) → ((𝑐 ·N 𝑑) ·N (𝑎 ·N 𝑓)) = ((𝑐 ·N 𝑓) ·N (𝑎 ·N 𝑑)))
71	35, 31, 34, 63, 65, 52, 67	caov4d 6138	. . . . . . . . . . . . 13 ⊢ (((𝑎 ∈ N ∧ 𝑏 ∈ N) ∧ (𝑐 ∈ N ∧ 𝑑 ∈ N) ∧ (𝑒 ∈ N ∧ 𝑓 ∈ N)) → ((𝑐 ·N 𝑑) ·N (𝑏 ·N 𝑒)) = ((𝑐 ·N 𝑏) ·N (𝑑 ·N 𝑒)))
72	63, 35, 34	caovcomd 6110	. . . . . . . . . . . . . 14 ⊢ (((𝑎 ∈ N ∧ 𝑏 ∈ N) ∧ (𝑐 ∈ N ∧ 𝑑 ∈ N) ∧ (𝑒 ∈ N ∧ 𝑓 ∈ N)) → (𝑐 ·N 𝑏) = (𝑏 ·N 𝑐))
73	72	oveq1d 5966	. . . . . . . . . . . . 13 ⊢ (((𝑎 ∈ N ∧ 𝑏 ∈ N) ∧ (𝑐 ∈ N ∧ 𝑑 ∈ N) ∧ (𝑒 ∈ N ∧ 𝑓 ∈ N)) → ((𝑐 ·N 𝑏) ·N (𝑑 ·N 𝑒)) = ((𝑏 ·N 𝑐) ·N (𝑑 ·N 𝑒)))
74	71, 73	eqtrd 2239	. . . . . . . . . . . 12 ⊢ (((𝑎 ∈ N ∧ 𝑏 ∈ N) ∧ (𝑐 ∈ N ∧ 𝑑 ∈ N) ∧ (𝑒 ∈ N ∧ 𝑓 ∈ N)) → ((𝑐 ·N 𝑑) ·N (𝑏 ·N 𝑒)) = ((𝑏 ·N 𝑐) ·N (𝑑 ·N 𝑒)))
75	70, 74	breq12d 4060	. . . . . . . . . . 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 7448	. . . . . . . . . . . 12 ⊢ ((𝑎 ∈ N ∧ 𝑓 ∈ N) → (𝑎 ·N 𝑓) ∈ N)
79	30, 38, 78	syl2anc 411	. . . . . . . . . . 11 ⊢ (((𝑎 ∈ N ∧ 𝑏 ∈ N) ∧ (𝑐 ∈ N ∧ 𝑑 ∈ N) ∧ (𝑒 ∈ N ∧ 𝑓 ∈ N)) → (𝑎 ·N 𝑓) ∈ N)
80		mulclpi 7448	. . . . . . . . . . . 12 ⊢ ((𝑏 ∈ N ∧ 𝑒 ∈ N) → (𝑏 ·N 𝑒) ∈ N)
81	34, 52, 80	syl2anc 411	. . . . . . . . . . 11 ⊢ (((𝑎 ∈ N ∧ 𝑏 ∈ N) ∧ (𝑐 ∈ N ∧ 𝑑 ∈ N) ∧ (𝑒 ∈ N ∧ 𝑓 ∈ N)) → (𝑏 ·N 𝑒) ∈ N)
82		mulclpi 7448	. . . . . . . . . . . 12 ⊢ ((𝑐 ∈ N ∧ 𝑑 ∈ N) → (𝑐 ·N 𝑑) ∈ N)
83	35, 31, 82	syl2anc 411	. . . . . . . . . . 11 ⊢ (((𝑎 ∈ N ∧ 𝑏 ∈ N) ∧ (𝑐 ∈ N ∧ 𝑑 ∈ N) ∧ (𝑒 ∈ N ∧ 𝑓 ∈ N)) → (𝑐 ·N 𝑑) ∈ N)
84		ltmpig 7459	. . . . . . . . . . 11 ⊢ (((𝑎 ·N 𝑓) ∈ N ∧ (𝑏 ·N 𝑒) ∈ N ∧ (𝑐 ·N 𝑑) ∈ N) → ((𝑎 ·N 𝑓) <N (𝑏 ·N 𝑒) ↔ ((𝑐 ·N 𝑑) ·N (𝑎 ·N 𝑓)) <N ((𝑐 ·N 𝑑) ·N (𝑏 ·N 𝑒))))
85	79, 81, 83, 84	syl3anc 1250	. . . . . . . . . 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 7494	. . . . . . . . . 10 ⊢ (((𝑎 ∈ N ∧ 𝑏 ∈ N) ∧ (𝑒 ∈ N ∧ 𝑓 ∈ N)) → ([⟨𝑎, 𝑏⟩] ~Q <Q [⟨𝑒, 𝑓⟩] ~Q ↔ (𝑎 ·N 𝑓) <N (𝑏 ·N 𝑒)))
89	88	3adant2 1019	. . . . . . . . 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 6718	. . . . 5 ⊢ ((𝑥 ∈ Q ∧ 𝑦 ∈ Q ∧ 𝑧 ∈ Q) → ((𝑥 <Q 𝑦 ∧ 𝑦 <Q 𝑧) → 𝑥 <Q 𝑧))
94	93	adantl 277	. . . 4 ⊢ ((⊤ ∧ (𝑥 ∈ Q ∧ 𝑦 ∈ Q ∧ 𝑧 ∈ Q)) → ((𝑥 <Q 𝑦 ∧ 𝑦 <Q 𝑧) → 𝑥 <Q 𝑧))
95	15, 94	ispod 4355	. . 3 ⊢ (⊤ → <Q Po Q)
96		nqtri3or 7516	. . . 4 ⊢ ((𝑥 ∈ Q ∧ 𝑦 ∈ Q) → (𝑥 <Q 𝑦 ∨ 𝑥 = 𝑦 ∨ 𝑦 <Q 𝑥))
97	96	adantl 277	. . 3 ⊢ ((⊤ ∧ (𝑥 ∈ Q ∧ 𝑦 ∈ Q)) → (𝑥 <Q 𝑦 ∨ 𝑥 = 𝑦 ∨ 𝑦 <Q 𝑥))
98	95, 97	issod 4370	. 2 ⊢ (⊤ → <Q Or Q)
99	98	mptru 1382	1 ⊢ <Q Or Q

Syntax hints:  ¬ wn 3   → wi 4   ∧ wa 104   ↔ wb 105   ∨ w3o 980   ∧ w3a 981   = wceq 1373  ⊤wtru 1374   ∈ wcel 2177  ⟨cop 3637   class class class wbr 4047   Or wor 4346  (class class class)co 5951  [cec 6625  Ncnpi 7392   ·_N cmi 7394   <_N clti 7395   ~_Q ceq 7399  Qcnq 7400   <_Q cltq 7405

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 615  ax-in2 616  ax-io 711  ax-5 1471  ax-7 1472  ax-gen 1473  ax-ie1 1517  ax-ie2 1518  ax-8 1528  ax-10 1529  ax-11 1530  ax-i12 1531  ax-bndl 1533  ax-4 1534  ax-17 1550  ax-i9 1554  ax-ial 1558  ax-i5r 1559  ax-13 2179  ax-14 2180  ax-ext 2188  ax-coll 4163  ax-sep 4166  ax-nul 4174  ax-pow 4222  ax-pr 4257  ax-un 4484  ax-setind 4589  ax-iinf 4640

This theorem depends on definitions:  df-bi 117  df-dc 837  df-3or 982  df-3an 983  df-tru 1376  df-fal 1379  df-nf 1485  df-sb 1787  df-eu 2058  df-mo 2059  df-clab 2193  df-cleq 2199  df-clel 2202  df-nfc 2338  df-ne 2378  df-ral 2490  df-rex 2491  df-reu 2492  df-rab 2494  df-v 2775  df-sbc 3000  df-csb 3095  df-dif 3169  df-un 3171  df-in 3173  df-ss 3180  df-nul 3462  df-pw 3619  df-sn 3640  df-pr 3641  df-op 3643  df-uni 3853  df-int 3888  df-iun 3931  df-br 4048  df-opab 4110  df-mpt 4111  df-tr 4147  df-eprel 4340  df-id 4344  df-po 4347  df-iso 4348  df-iord 4417  df-on 4419  df-suc 4422  df-iom 4643  df-xp 4685  df-rel 4686  df-cnv 4687  df-co 4688  df-dm 4689  df-rn 4690  df-res 4691  df-ima 4692  df-iota 5237  df-fun 5278  df-fn 5279  df-f 5280  df-f1 5281  df-fo 5282  df-f1o 5283  df-fv 5284  df-ov 5954  df-oprab 5955  df-mpo 5956  df-1st 6233  df-2nd 6234  df-recs 6398  df-irdg 6463  df-oadd 6513  df-omul 6514  df-er 6627  df-ec 6629  df-qs 6633  df-ni 7424  df-mi 7426  df-lti 7427  df-enq 7467  df-nqqs 7468  df-ltnqqs 7473

This theorem is referenced by:  nqtric  7519  lt2addnq  7524  lt2mulnq  7525  ltbtwnnqq  7535  prarloclemarch2  7539  genplt2i  7630  genpdisj  7643  addlocprlemgt  7654  nqprdisj  7664  nqprloc  7665  addnqprlemfl  7679  addnqprlemfu  7680  prmuloclemcalc  7685  mulnqprlemfl  7695  mulnqprlemfu  7696  distrlem4prl  7704  distrlem4pru  7705  ltsopr  7716  ltexprlemopl  7721  ltexprlemopu  7723  ltexprlemdisj  7726  ltexprlemru  7732  recexprlemlol  7746  recexprlemupu  7748  recexprlemdisj  7750  recexprlemss1l  7755  recexprlemss1u  7756  cauappcvgprlemopl  7766  cauappcvgprlemlol  7767  cauappcvgprlemupu  7769  cauappcvgprlemdisj  7771  cauappcvgprlemloc  7772  cauappcvgprlemladdfu  7774  cauappcvgprlemladdru  7776  cauappcvgprlemladdrl  7777  caucvgprlemk  7785  caucvgprlemnkj  7786  caucvgprlemnbj  7787  caucvgprlemm  7788  caucvgprlemopl  7789  caucvgprlemlol  7790  caucvgprlemupu  7792  caucvgprlemloc  7795  caucvgprlemladdfu  7797  caucvgprprlemloccalc  7804  caucvgprprlemml  7814  caucvgprprlemopl  7817  suplocexprlemru  7839