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

Theorem mulclpi 6188
Description: Closure of multiplication of positive integers. (Contributed by NM, 18-Oct-1995.)
Assertion
Ref Expression
mulclpi ((A N B N) → (A ·N B) N)

Proof of Theorem mulclpi
StepHypRef Expression
1 mulpiord 6177 . 2 ((A N B N) → (A ·N B) = (A ·𝑜 B))
2 pinn 6169 . . . 4 (A NA 𝜔)
3 pinn 6169 . . . 4 (B NB 𝜔)
4 nnmcl 5975 . . . 4 ((A 𝜔 B 𝜔) → (A ·𝑜 B) 𝜔)
52, 3, 4syl2an 273 . . 3 ((A N B N) → (A ·𝑜 B) 𝜔)
6 elni2 6174 . . . . . . 7 (B N ↔ (B 𝜔 B))
76simprbi 260 . . . . . 6 (B N → ∅ B)
87adantl 262 . . . . 5 ((A N B N) → ∅ B)
93adantl 262 . . . . . 6 ((A N B N) → B 𝜔)
102adantr 261 . . . . . 6 ((A N B N) → A 𝜔)
11 elni2 6174 . . . . . . . 8 (A N ↔ (A 𝜔 A))
1211simprbi 260 . . . . . . 7 (A N → ∅ A)
1312adantr 261 . . . . . 6 ((A N B N) → ∅ A)
14 nnmordi 6000 . . . . . 6 (((B 𝜔 A 𝜔) A) → (∅ B → (A ·𝑜 ∅) (A ·𝑜 B)))
159, 10, 13, 14syl21anc 1120 . . . . 5 ((A N B N) → (∅ B → (A ·𝑜 ∅) (A ·𝑜 B)))
168, 15mpd 13 . . . 4 ((A N B N) → (A ·𝑜 ∅) (A ·𝑜 B))
17 ne0i 3207 . . . 4 ((A ·𝑜 ∅) (A ·𝑜 B) → (A ·𝑜 B) ≠ ∅)
1816, 17syl 14 . . 3 ((A N B N) → (A ·𝑜 B) ≠ ∅)
19 elni 6168 . . 3 ((A ·𝑜 B) N ↔ ((A ·𝑜 B) 𝜔 (A ·𝑜 B) ≠ ∅))
205, 18, 19sylanbrc 396 . 2 ((A N B N) → (A ·𝑜 B) N)
211, 20eqeltrd 2096 1 ((A N B N) → (A ·N B) N)
Colors of variables: wff set class
Syntax hints:  wi 4   wa 97   wcel 1374  wne 2186  c0 3201  𝜔com 4240  (class class class)co 5436   ·𝑜 comu 5914  Ncnpi 6130   ·N cmi 6132
This theorem was proved from axioms:  ax-1 5  ax-2 6  ax-mp 7  ax-ia1 99  ax-ia2 100  ax-ia3 101  ax-in1 532  ax-in2 533  ax-io 617  ax-5 1316  ax-7 1317  ax-gen 1318  ax-ie1 1363  ax-ie2 1364  ax-8 1376  ax-10 1377  ax-11 1378  ax-i12 1379  ax-bnd 1380  ax-4 1381  ax-13 1385  ax-14 1386  ax-17 1400  ax-i9 1404  ax-ial 1409  ax-i5r 1410  ax-ext 2004  ax-coll 3846  ax-sep 3849  ax-nul 3857  ax-pow 3901  ax-pr 3918  ax-un 4120  ax-setind 4204  ax-iinf 4238
This theorem depends on definitions:  df-bi 110  df-dc 734  df-3an 875  df-tru 1231  df-fal 1234  df-nf 1330  df-sb 1628  df-eu 1885  df-mo 1886  df-clab 2009  df-cleq 2015  df-clel 2018  df-nfc 2149  df-ne 2188  df-ral 2289  df-rex 2290  df-reu 2291  df-rab 2293  df-v 2537  df-sbc 2742  df-csb 2830  df-dif 2897  df-un 2899  df-in 2901  df-ss 2908  df-nul 3202  df-pw 3336  df-sn 3356  df-pr 3357  df-op 3359  df-uni 3555  df-int 3590  df-iun 3633  df-br 3739  df-opab 3793  df-mpt 3794  df-tr 3829  df-id 4004  df-iord 4052  df-on 4054  df-suc 4057  df-iom 4241  df-xp 4278  df-rel 4279  df-cnv 4280  df-co 4281  df-dm 4282  df-rn 4283  df-res 4284  df-ima 4285  df-iota 4794  df-fun 4831  df-fn 4832  df-f 4833  df-f1 4834  df-fo 4835  df-f1o 4836  df-fv 4837  df-ov 5439  df-oprab 5440  df-mpt2 5441  df-1st 5690  df-2nd 5691  df-recs 5842  df-irdg 5878  df-oadd 5920  df-omul 5921  df-ni 6164  df-mi 6166
This theorem is referenced by:  mulasspig  6192  distrpig  6193  ltmpig  6199  enqer  6217  enqdc  6220  addcmpblnq  6226  mulcmpblnq  6227  addpipqqslem  6228  mulpipq2  6230  mulpipqqs  6232  ordpipqqs  6233  addclnq  6234  mulclnq  6235  addcomnqg  6240  addassnqg  6241  mulassnqg  6243  mulcanenq  6244  distrnqg  6246  recex  6249  nqtri3or  6255  ltdcnq  6256  ltsonq  6257  ltanqg  6259  ltmnqg  6260  1lt2nq  6264  ltexnqq  6266  archnqq  6274  addcmpblnq0  6298  mulcmpblnq0  6299  mulcanenq0ec  6300  addclnq0  6306  mulclnq0  6307  nqpnq0nq  6308  nqnq0a  6309  nqnq0m  6310  nq0m0r  6311  distrnq0  6314  addassnq0lemcl  6316
  Copyright terms: Public domain W3C validator