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

Theorem ltmpig 7147
 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 7117 . . . . 5 (𝐴N𝐴 ∈ ω)
2 pinn 7117 . . . . 5 (𝐵N𝐵 ∈ ω)
3 elni2 7122 . . . . . 6 (𝐶N ↔ (𝐶 ∈ ω ∧ ∅ ∈ 𝐶))
4 iba 298 . . . . . . . . 9 (∅ ∈ 𝐶 → (𝐴𝐵 ↔ (𝐴𝐵 ∧ ∅ ∈ 𝐶)))
5 nnmord 6413 . . . . . . . . 9 ((𝐴 ∈ ω ∧ 𝐵 ∈ ω ∧ 𝐶 ∈ ω) → ((𝐴𝐵 ∧ ∅ ∈ 𝐶) ↔ (𝐶 ·o 𝐴) ∈ (𝐶 ·o 𝐵)))
64, 5sylan9bbr 458 . . . . . . . 8 (((𝐴 ∈ ω ∧ 𝐵 ∈ ω ∧ 𝐶 ∈ ω) ∧ ∅ ∈ 𝐶) → (𝐴𝐵 ↔ (𝐶 ·o 𝐴) ∈ (𝐶 ·o 𝐵)))
763exp1 1201 . . . . . . 7 (𝐴 ∈ ω → (𝐵 ∈ ω → (𝐶 ∈ ω → (∅ ∈ 𝐶 → (𝐴𝐵 ↔ (𝐶 ·o 𝐴) ∈ (𝐶 ·o 𝐵))))))
87imp4b 347 . . . . . 6 ((𝐴 ∈ ω ∧ 𝐵 ∈ ω) → ((𝐶 ∈ ω ∧ ∅ ∈ 𝐶) → (𝐴𝐵 ↔ (𝐶 ·o 𝐴) ∈ (𝐶 ·o 𝐵))))
93, 8syl5bi 151 . . . . 5 ((𝐴 ∈ ω ∧ 𝐵 ∈ ω) → (𝐶N → (𝐴𝐵 ↔ (𝐶 ·o 𝐴) ∈ (𝐶 ·o 𝐵))))
101, 2, 9syl2an 287 . . . 4 ((𝐴N𝐵N) → (𝐶N → (𝐴𝐵 ↔ (𝐶 ·o 𝐴) ∈ (𝐶 ·o 𝐵))))
1110imp 123 . . 3 (((𝐴N𝐵N) ∧ 𝐶N) → (𝐴𝐵 ↔ (𝐶 ·o 𝐴) ∈ (𝐶 ·o 𝐵)))
12 ltpiord 7127 . . . 4 ((𝐴N𝐵N) → (𝐴 <N 𝐵𝐴𝐵))
1312adantr 274 . . 3 (((𝐴N𝐵N) ∧ 𝐶N) → (𝐴 <N 𝐵𝐴𝐵))
14 mulclpi 7136 . . . . . . 7 ((𝐶N𝐴N) → (𝐶 ·N 𝐴) ∈ N)
15 mulclpi 7136 . . . . . . 7 ((𝐶N𝐵N) → (𝐶 ·N 𝐵) ∈ N)
16 ltpiord 7127 . . . . . . 7 (((𝐶 ·N 𝐴) ∈ N ∧ (𝐶 ·N 𝐵) ∈ N) → ((𝐶 ·N 𝐴) <N (𝐶 ·N 𝐵) ↔ (𝐶 ·N 𝐴) ∈ (𝐶 ·N 𝐵)))
1714, 15, 16syl2an 287 . . . . . 6 (((𝐶N𝐴N) ∧ (𝐶N𝐵N)) → ((𝐶 ·N 𝐴) <N (𝐶 ·N 𝐵) ↔ (𝐶 ·N 𝐴) ∈ (𝐶 ·N 𝐵)))
18 mulpiord 7125 . . . . . . . 8 ((𝐶N𝐴N) → (𝐶 ·N 𝐴) = (𝐶 ·o 𝐴))
1918adantr 274 . . . . . . 7 (((𝐶N𝐴N) ∧ (𝐶N𝐵N)) → (𝐶 ·N 𝐴) = (𝐶 ·o 𝐴))
20 mulpiord 7125 . . . . . . . 8 ((𝐶N𝐵N) → (𝐶 ·N 𝐵) = (𝐶 ·o 𝐵))
2120adantl 275 . . . . . . 7 (((𝐶N𝐴N) ∧ (𝐶N𝐵N)) → (𝐶 ·N 𝐵) = (𝐶 ·o 𝐵))
2219, 21eleq12d 2210 . . . . . 6 (((𝐶N𝐴N) ∧ (𝐶N𝐵N)) → ((𝐶 ·N 𝐴) ∈ (𝐶 ·N 𝐵) ↔ (𝐶 ·o 𝐴) ∈ (𝐶 ·o 𝐵)))
2317, 22bitrd 187 . . . . 5 (((𝐶N𝐴N) ∧ (𝐶N𝐵N)) → ((𝐶 ·N 𝐴) <N (𝐶 ·N 𝐵) ↔ (𝐶 ·o 𝐴) ∈ (𝐶 ·o 𝐵)))
2423anandis 581 . . . 4 ((𝐶N ∧ (𝐴N𝐵N)) → ((𝐶 ·N 𝐴) <N (𝐶 ·N 𝐵) ↔ (𝐶 ·o 𝐴) ∈ (𝐶 ·o 𝐵)))
2524ancoms 266 . . 3 (((𝐴N𝐵N) ∧ 𝐶N) → ((𝐶 ·N 𝐴) <N (𝐶 ·N 𝐵) ↔ (𝐶 ·o 𝐴) ∈ (𝐶 ·o 𝐵)))
2611, 13, 253bitr4d 219 . 2 (((𝐴N𝐵N) ∧ 𝐶N) → (𝐴 <N 𝐵 ↔ (𝐶 ·N 𝐴) <N (𝐶 ·N 𝐵)))
27263impa 1176 1 ((𝐴N𝐵N𝐶N) → (𝐴 <N 𝐵 ↔ (𝐶 ·N 𝐴) <N (𝐶 ·N 𝐵)))
 Colors of variables: wff set class Syntax hints:   → wi 4   ∧ wa 103   ↔ wb 104   ∧ w3a 962   = wceq 1331   ∈ wcel 1480  ∅c0 3363   class class class wbr 3929  ωcom 4504  (class class class)co 5774   ·o comu 6311  Ncnpi 7080   ·N cmi 7082
 Copyright terms: Public domain W3C validator