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

Theorem expp1 8876
Description: Value of a complex number raised to a nonnegative integer power plus one. Part of Definition 10-4.1 of [Gleason] p. 134. (Contributed by NM, 20-May-2005.) (Revised by Mario Carneiro, 2-Jul-2013.)
Assertion
Ref Expression
expp1 ((A 𝑁 0) → (A↑(𝑁 + 1)) = ((A𝑁) · A))

Proof of Theorem expp1
Dummy variables x y are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 elnn0 7919 . 2 (𝑁 0 ↔ (𝑁 𝑁 = 0))
2 simpr 103 . . . . . . 7 ((A 𝑁 ℕ) → 𝑁 ℕ)
3 elnnuz 8245 . . . . . . 7 (𝑁 ℕ ↔ 𝑁 (ℤ‘1))
42, 3sylib 127 . . . . . 6 ((A 𝑁 ℕ) → 𝑁 (ℤ‘1))
5 cnex 6763 . . . . . . 7 V
65a1i 9 . . . . . 6 ((A 𝑁 ℕ) → ℂ V)
7 simpll 481 . . . . . . 7 (((A 𝑁 ℕ) x (ℤ‘1)) → A ℂ)
8 elnnuz 8245 . . . . . . . . 9 (x ℕ ↔ x (ℤ‘1))
9 fvconst2g 5318 . . . . . . . . . 10 ((A x ℕ) → ((ℕ × {A})‘x) = A)
109eleq1d 2103 . . . . . . . . 9 ((A x ℕ) → (((ℕ × {A})‘x) ℂ ↔ A ℂ))
118, 10sylan2br 272 . . . . . . . 8 ((A x (ℤ‘1)) → (((ℕ × {A})‘x) ℂ ↔ A ℂ))
1211adantlr 446 . . . . . . 7 (((A 𝑁 ℕ) x (ℤ‘1)) → (((ℕ × {A})‘x) ℂ ↔ A ℂ))
137, 12mpbird 156 . . . . . 6 (((A 𝑁 ℕ) x (ℤ‘1)) → ((ℕ × {A})‘x) ℂ)
14 mulcl 6766 . . . . . . 7 ((x y ℂ) → (x · y) ℂ)
1514adantl 262 . . . . . 6 (((A 𝑁 ℕ) (x y ℂ)) → (x · y) ℂ)
164, 6, 13, 15iseqp1 8864 . . . . 5 ((A 𝑁 ℕ) → (seq1( · , (ℕ × {A}), ℂ)‘(𝑁 + 1)) = ((seq1( · , (ℕ × {A}), ℂ)‘𝑁) · ((ℕ × {A})‘(𝑁 + 1))))
17 peano2nn 7667 . . . . . . 7 (𝑁 ℕ → (𝑁 + 1) ℕ)
18 fvconst2g 5318 . . . . . . 7 ((A (𝑁 + 1) ℕ) → ((ℕ × {A})‘(𝑁 + 1)) = A)
1917, 18sylan2 270 . . . . . 6 ((A 𝑁 ℕ) → ((ℕ × {A})‘(𝑁 + 1)) = A)
2019oveq2d 5471 . . . . 5 ((A 𝑁 ℕ) → ((seq1( · , (ℕ × {A}), ℂ)‘𝑁) · ((ℕ × {A})‘(𝑁 + 1))) = ((seq1( · , (ℕ × {A}), ℂ)‘𝑁) · A))
2116, 20eqtrd 2069 . . . 4 ((A 𝑁 ℕ) → (seq1( · , (ℕ × {A}), ℂ)‘(𝑁 + 1)) = ((seq1( · , (ℕ × {A}), ℂ)‘𝑁) · A))
22 expinnval 8872 . . . . 5 ((A (𝑁 + 1) ℕ) → (A↑(𝑁 + 1)) = (seq1( · , (ℕ × {A}), ℂ)‘(𝑁 + 1)))
2317, 22sylan2 270 . . . 4 ((A 𝑁 ℕ) → (A↑(𝑁 + 1)) = (seq1( · , (ℕ × {A}), ℂ)‘(𝑁 + 1)))
24 expinnval 8872 . . . . 5 ((A 𝑁 ℕ) → (A𝑁) = (seq1( · , (ℕ × {A}), ℂ)‘𝑁))
2524oveq1d 5470 . . . 4 ((A 𝑁 ℕ) → ((A𝑁) · A) = ((seq1( · , (ℕ × {A}), ℂ)‘𝑁) · A))
2621, 23, 253eqtr4d 2079 . . 3 ((A 𝑁 ℕ) → (A↑(𝑁 + 1)) = ((A𝑁) · A))
27 exp1 8875 . . . . . 6 (A ℂ → (A↑1) = A)
28 mulid2 6783 . . . . . 6 (A ℂ → (1 · A) = A)
2927, 28eqtr4d 2072 . . . . 5 (A ℂ → (A↑1) = (1 · A))
3029adantr 261 . . . 4 ((A 𝑁 = 0) → (A↑1) = (1 · A))
31 simpr 103 . . . . . . 7 ((A 𝑁 = 0) → 𝑁 = 0)
3231oveq1d 5470 . . . . . 6 ((A 𝑁 = 0) → (𝑁 + 1) = (0 + 1))
33 0p1e1 7769 . . . . . 6 (0 + 1) = 1
3432, 33syl6eq 2085 . . . . 5 ((A 𝑁 = 0) → (𝑁 + 1) = 1)
3534oveq2d 5471 . . . 4 ((A 𝑁 = 0) → (A↑(𝑁 + 1)) = (A↑1))
36 oveq2 5463 . . . . . 6 (𝑁 = 0 → (A𝑁) = (A↑0))
37 exp0 8873 . . . . . 6 (A ℂ → (A↑0) = 1)
3836, 37sylan9eqr 2091 . . . . 5 ((A 𝑁 = 0) → (A𝑁) = 1)
3938oveq1d 5470 . . . 4 ((A 𝑁 = 0) → ((A𝑁) · A) = (1 · A))
4030, 35, 393eqtr4d 2079 . . 3 ((A 𝑁 = 0) → (A↑(𝑁 + 1)) = ((A𝑁) · A))
4126, 40jaodan 709 . 2 ((A (𝑁 𝑁 = 0)) → (A↑(𝑁 + 1)) = ((A𝑁) · A))
421, 41sylan2b 271 1 ((A 𝑁 0) → (A↑(𝑁 + 1)) = ((A𝑁) · A))
Colors of variables: wff set class
Syntax hints:  wi 4   wa 97  wb 98   wo 628   = wceq 1242   wcel 1390  Vcvv 2551  {csn 3367   × cxp 4286  cfv 4845  (class class class)co 5455  cc 6669  0cc0 6671  1c1 6672   + caddc 6674   · cmul 6676  cn 7655  0cn0 7917  cuz 8209  seqcseq 8852  cexp 8868
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 544  ax-in2 545  ax-io 629  ax-5 1333  ax-7 1334  ax-gen 1335  ax-ie1 1379  ax-ie2 1380  ax-8 1392  ax-10 1393  ax-11 1394  ax-i12 1395  ax-bnd 1396  ax-4 1397  ax-13 1401  ax-14 1402  ax-17 1416  ax-i9 1420  ax-ial 1424  ax-i5r 1425  ax-ext 2019  ax-coll 3863  ax-sep 3866  ax-nul 3874  ax-pow 3918  ax-pr 3935  ax-un 4136  ax-setind 4220  ax-iinf 4254  ax-cnex 6734  ax-resscn 6735  ax-1cn 6736  ax-1re 6737  ax-icn 6738  ax-addcl 6739  ax-addrcl 6740  ax-mulcl 6741  ax-mulrcl 6742  ax-addcom 6743  ax-mulcom 6744  ax-addass 6745  ax-mulass 6746  ax-distr 6747  ax-i2m1 6748  ax-1rid 6750  ax-0id 6751  ax-rnegex 6752  ax-precex 6753  ax-cnre 6754  ax-pre-ltirr 6755  ax-pre-ltwlin 6756  ax-pre-lttrn 6757  ax-pre-apti 6758  ax-pre-ltadd 6759  ax-pre-mulgt0 6760  ax-pre-mulext 6761
This theorem depends on definitions:  df-bi 110  df-dc 742  df-3or 885  df-3an 886  df-tru 1245  df-fal 1248  df-nf 1347  df-sb 1643  df-eu 1900  df-mo 1901  df-clab 2024  df-cleq 2030  df-clel 2033  df-nfc 2164  df-ne 2203  df-nel 2204  df-ral 2305  df-rex 2306  df-reu 2307  df-rmo 2308  df-rab 2309  df-v 2553  df-sbc 2759  df-csb 2847  df-dif 2914  df-un 2916  df-in 2918  df-ss 2925  df-nul 3219  df-if 3326  df-pw 3353  df-sn 3373  df-pr 3374  df-op 3376  df-uni 3572  df-int 3607  df-iun 3650  df-br 3756  df-opab 3810  df-mpt 3811  df-tr 3846  df-eprel 4017  df-id 4021  df-po 4024  df-iso 4025  df-iord 4069  df-on 4071  df-suc 4074  df-iom 4257  df-xp 4294  df-rel 4295  df-cnv 4296  df-co 4297  df-dm 4298  df-rn 4299  df-res 4300  df-ima 4301  df-iota 4810  df-fun 4847  df-fn 4848  df-f 4849  df-f1 4850  df-fo 4851  df-f1o 4852  df-fv 4853  df-riota 5411  df-ov 5458  df-oprab 5459  df-mpt2 5460  df-1st 5709  df-2nd 5710  df-recs 5861  df-irdg 5897  df-frec 5918  df-1o 5940  df-2o 5941  df-oadd 5944  df-omul 5945  df-er 6042  df-ec 6044  df-qs 6048  df-ni 6288  df-pli 6289  df-mi 6290  df-lti 6291  df-plpq 6328  df-mpq 6329  df-enq 6331  df-nqqs 6332  df-plqqs 6333  df-mqqs 6334  df-1nqqs 6335  df-rq 6336  df-ltnqqs 6337  df-enq0 6406  df-nq0 6407  df-0nq0 6408  df-plq0 6409  df-mq0 6410  df-inp 6448  df-i1p 6449  df-iplp 6450  df-iltp 6452  df-enr 6614  df-nr 6615  df-ltr 6618  df-0r 6619  df-1r 6620  df-0 6678  df-1 6679  df-r 6681  df-lt 6684  df-pnf 6819  df-mnf 6820  df-xr 6821  df-ltxr 6822  df-le 6823  df-sub 6941  df-neg 6942  df-reap 7319  df-ap 7326  df-div 7394  df-inn 7656  df-n0 7918  df-z 7982  df-uz 8210  df-iseq 8853  df-iexp 8869
This theorem is referenced by:  expcllem  8880  expm1t  8897  expap0  8899  mulexp  8908  expadd  8911  expmul  8914  leexp2r  8922  leexp1a  8923  sqval  8926  cu2  8964  i3  8967  binom3  8979  bernneq  8982  expp1d  8995  cjexp  9081
  Copyright terms: Public domain W3C validator