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

Theorem ltmpig 6591
 Description: Ordering property of multiplication for positive integers. (Contributed by Jim Kingdon, 31-Aug-2019.)
Assertion
Ref Expression
ltmpig ((𝐴N𝐵N𝐶N) → (𝐴 <N 𝐵 ↔ (𝐶 ·N 𝐴) <N (𝐶 ·N 𝐵)))

Proof of Theorem ltmpig
StepHypRef Expression
1 pinn 6561 . . . . 5 (𝐴N𝐴 ∈ ω)
2 pinn 6561 . . . . 5 (𝐵N𝐵 ∈ ω)
3 elni2 6566 . . . . . 6 (𝐶N ↔ (𝐶 ∈ ω ∧ ∅ ∈ 𝐶))
4 iba 294 . . . . . . . . 9 (∅ ∈ 𝐶 → (𝐴𝐵 ↔ (𝐴𝐵 ∧ ∅ ∈ 𝐶)))
5 nnmord 6156 . . . . . . . . 9 ((𝐴 ∈ ω ∧ 𝐵 ∈ ω ∧ 𝐶 ∈ ω) → ((𝐴𝐵 ∧ ∅ ∈ 𝐶) ↔ (𝐶 ·𝑜 𝐴) ∈ (𝐶 ·𝑜 𝐵)))
64, 5sylan9bbr 451 . . . . . . . 8 (((𝐴 ∈ ω ∧ 𝐵 ∈ ω ∧ 𝐶 ∈ ω) ∧ ∅ ∈ 𝐶) → (𝐴𝐵 ↔ (𝐶 ·𝑜 𝐴) ∈ (𝐶 ·𝑜 𝐵)))
763exp1 1155 . . . . . . 7 (𝐴 ∈ ω → (𝐵 ∈ ω → (𝐶 ∈ ω → (∅ ∈ 𝐶 → (𝐴𝐵 ↔ (𝐶 ·𝑜 𝐴) ∈ (𝐶 ·𝑜 𝐵))))))
87imp4b 342 . . . . . 6 ((𝐴 ∈ ω ∧ 𝐵 ∈ ω) → ((𝐶 ∈ ω ∧ ∅ ∈ 𝐶) → (𝐴𝐵 ↔ (𝐶 ·𝑜 𝐴) ∈ (𝐶 ·𝑜 𝐵))))
93, 8syl5bi 150 . . . . 5 ((𝐴 ∈ ω ∧ 𝐵 ∈ ω) → (𝐶N → (𝐴𝐵 ↔ (𝐶 ·𝑜 𝐴) ∈ (𝐶 ·𝑜 𝐵))))
101, 2, 9syl2an 283 . . . 4 ((𝐴N𝐵N) → (𝐶N → (𝐴𝐵 ↔ (𝐶 ·𝑜 𝐴) ∈ (𝐶 ·𝑜 𝐵))))
1110imp 122 . . 3 (((𝐴N𝐵N) ∧ 𝐶N) → (𝐴𝐵 ↔ (𝐶 ·𝑜 𝐴) ∈ (𝐶 ·𝑜 𝐵)))
12 ltpiord 6571 . . . 4 ((𝐴N𝐵N) → (𝐴 <N 𝐵𝐴𝐵))
1312adantr 270 . . 3 (((𝐴N𝐵N) ∧ 𝐶N) → (𝐴 <N 𝐵𝐴𝐵))
14 mulclpi 6580 . . . . . . 7 ((𝐶N𝐴N) → (𝐶 ·N 𝐴) ∈ N)
15 mulclpi 6580 . . . . . . 7 ((𝐶N𝐵N) → (𝐶 ·N 𝐵) ∈ N)
16 ltpiord 6571 . . . . . . 7 (((𝐶 ·N 𝐴) ∈ N ∧ (𝐶 ·N 𝐵) ∈ N) → ((𝐶 ·N 𝐴) <N (𝐶 ·N 𝐵) ↔ (𝐶 ·N 𝐴) ∈ (𝐶 ·N 𝐵)))
1714, 15, 16syl2an 283 . . . . . 6 (((𝐶N𝐴N) ∧ (𝐶N𝐵N)) → ((𝐶 ·N 𝐴) <N (𝐶 ·N 𝐵) ↔ (𝐶 ·N 𝐴) ∈ (𝐶 ·N 𝐵)))
18 mulpiord 6569 . . . . . . . 8 ((𝐶N𝐴N) → (𝐶 ·N 𝐴) = (𝐶 ·𝑜 𝐴))
1918adantr 270 . . . . . . 7 (((𝐶N𝐴N) ∧ (𝐶N𝐵N)) → (𝐶 ·N 𝐴) = (𝐶 ·𝑜 𝐴))
20 mulpiord 6569 . . . . . . . 8 ((𝐶N𝐵N) → (𝐶 ·N 𝐵) = (𝐶 ·𝑜 𝐵))
2120adantl 271 . . . . . . 7 (((𝐶N𝐴N) ∧ (𝐶N𝐵N)) → (𝐶 ·N 𝐵) = (𝐶 ·𝑜 𝐵))
2219, 21eleq12d 2150 . . . . . 6 (((𝐶N𝐴N) ∧ (𝐶N𝐵N)) → ((𝐶 ·N 𝐴) ∈ (𝐶 ·N 𝐵) ↔ (𝐶 ·𝑜 𝐴) ∈ (𝐶 ·𝑜 𝐵)))
2317, 22bitrd 186 . . . . 5 (((𝐶N𝐴N) ∧ (𝐶N𝐵N)) → ((𝐶 ·N 𝐴) <N (𝐶 ·N 𝐵) ↔ (𝐶 ·𝑜 𝐴) ∈ (𝐶 ·𝑜 𝐵)))
2423anandis 557 . . . 4 ((𝐶N ∧ (𝐴N𝐵N)) → ((𝐶 ·N 𝐴) <N (𝐶 ·N 𝐵) ↔ (𝐶 ·𝑜 𝐴) ∈ (𝐶 ·𝑜 𝐵)))
2524ancoms 264 . . 3 (((𝐴N𝐵N) ∧ 𝐶N) → ((𝐶 ·N 𝐴) <N (𝐶 ·N 𝐵) ↔ (𝐶 ·𝑜 𝐴) ∈ (𝐶 ·𝑜 𝐵)))
2611, 13, 253bitr4d 218 . 2 (((𝐴N𝐵N) ∧ 𝐶N) → (𝐴 <N 𝐵 ↔ (𝐶 ·N 𝐴) <N (𝐶 ·N 𝐵)))
27263impa 1134 1 ((𝐴N𝐵N𝐶N) → (𝐴 <N 𝐵 ↔ (𝐶 ·N 𝐴) <N (𝐶 ·N 𝐵)))
 Colors of variables: wff set class Syntax hints:   → wi 4   ∧ wa 102   ↔ wb 103   ∧ w3a 920   = wceq 1285   ∈ wcel 1434  ∅c0 3258   class class class wbr 3793  ωcom 4339  (class class class)co 5543   ·𝑜 comu 6063  Ncnpi 6524   ·N cmi 6526
 Copyright terms: Public domain W3C validator