HomeHome Metamath Proof Explorer < Previous   Next >
Related theorems
GIF version

Theorem ip1cnilem6 8386
Description: Lemma for ip1cni 8387.
Hypotheses
Ref Expression
ip1cni.1 X = (Base ‘U)
ip1cni.2 G = ( +vU)
ip1cni.7 P = ( ·iU)
ip1cni.8 C = (IndMet ‘U)
ip1cni.d D = (abs − )
ip1cni.j J = (Open ‘C)
ip1cni.k K = (Open ‘D)
ip1cni.f F = {w, v(w X v = (wPA))}
ip1cni.9 U NrmCVec
ip1cni.a A X
ip1cnilem.4 S = ( ·sU)
ip1cnilem.6 N = (norm ‘U)
ip1cnilem.16 H = {u, t(u X t = (((ik) · ((N ‘(uG((ik)SA)))↑2)) · (1 / 4)))}
Assertion
Ref Expression
ip1cnilem6 F (J Cn K)
Distinct variable groups:   t,k,u,v,w,A   u,C,w   u,D,w   k,G,t,u,v,w   v,H,w   k,J,u,w   k,K,u,w   k,N,t,u,v,w   S,k,t,u,v,w   U,k,t,u,v,w   k,X,t,u,v,w

Proof of Theorem ip1cnilem6
StepHypRef Expression
1 4nn 6008 . 2 4
2 ip1cni.9 . . . 4 U NrmCVec
3 ip1cni.8 . . . . 5 C = (IndMet ‘U)
43imsmet 8332 . . . 4 (U NrmCVec → C Met)
52, 4ax-mp 7 . . 3 C Met
6 ip1cni.1 . . . 4 X = (Base ‘U)
76, 3, 2imsbai 8330 . . 3 X = dom dom C
8 ip1cni.d . . 3 D = (abs − )
9 ip1cni.j . . 3 J = (Open ‘C)
10 ip1cni.k . . 3 K = (Open ‘D)
11 ip1cni.2 . . . 4 G = ( +vU)
12 ip1cni.7 . . . 4 P = ( ·iU)
13 ip1cni.f . . . 4 F = {w, v(w X v = (wPA))}
14 ip1cni.a . . . 4 A X
15 ip1cnilem.4 . . . 4 S = ( ·sU)
16 ip1cnilem.6 . . . 4 N = (norm ‘U)
17 ip1cnilem.16 . . . 4 H = {u, t(u X t = (((ik) · ((N ‘(uG((ik)SA)))↑2)) · (1 / 4)))}
186, 11, 12, 3, 8, 9, 10, 13, 2, 14, 15, 16, 17ip1cnilem5 8385 . . 3 (k H (J Cn K))
19 axmulcl 5286 . . . . . . . . . . . . 13 (((ik) ((N ‘(wG((ik)SA)))↑2) ) → ((ik) · ((N ‘(wG((ik)SA)))↑2)) )
20 nnnn0t 6112 . . . . . . . . . . . . . . 15 (k k 0)
21 axicn 5283 . . . . . . . . . . . . . . . 16 i
22 expclt 6594 . . . . . . . . . . . . . . . 16 ((i k 0) → (ik) )
2321, 22mpan 699 . . . . . . . . . . . . . . 15 (k 0 → (ik) )
2420, 23syl 10 . . . . . . . . . . . . . 14 (k → (ik) )
2524adantl 390 . . . . . . . . . . . . 13 ((w X k ) → (ik) )
266, 11nvgcl 8247 . . . . . . . . . . . . . . . . . 18 ((U NrmCVec w X ((ik)SA) X) → (wG((ik)SA)) X)
272, 26mp3an1 907 . . . . . . . . . . . . . . . . 17 ((w X ((ik)SA) X) → (wG((ik)SA)) X)
286, 15nvscl 8255 . . . . . . . . . . . . . . . . . . 19 ((U NrmCVec (ik) A X) → ((ik)SA) X)
292, 14, 28mp3an13 911 . . . . . . . . . . . . . . . . . 18 ((ik) → ((ik)SA) X)
3024, 29syl 10 . . . . . . . . . . . . . . . . 17 (k → ((ik)SA) X)
3127, 30sylan2 454 . . . . . . . . . . . . . . . 16 ((w X k ) → (wG((ik)SA)) X)
326, 16nvcl 8295 . . . . . . . . . . . . . . . . 17 ((U NrmCVec (wG((ik)SA)) X) → (N ‘(wG((ik)SA))) )
332, 32mpan 699 . . . . . . . . . . . . . . . 16 ((wG((ik)SA)) X → (N ‘(wG((ik)SA))) )
3431, 33syl 10 . . . . . . . . . . . . . . 15 ((w X k ) → (N ‘(wG((ik)SA))) )
3534recnd 5328 . . . . . . . . . . . . . 14 ((w X k ) → (N ‘(wG((ik)SA))) )
36 sqclt 6624 . . . . . . . . . . . . . 14 ((N ‘(wG((ik)SA))) → ((N ‘(wG((ik)SA)))↑2) )
3735, 36syl 10 . . . . . . . . . . . . 13 ((w X k ) → ((N ‘(wG((ik)SA)))↑2) )
3819, 25, 37sylanc 474 . . . . . . . . . . . 12 ((w X k ) → ((ik) · ((N ‘(wG((ik)SA)))↑2)) )
39 elfznnt 6444 . . . . . . . . . . . 12 (k (1...4) → k )
4038, 39sylan2 454 . . . . . . . . . . 11 ((w X k (1...4)) → ((ik) · ((N ‘(wG((ik)SA)))↑2)) )
4140r19.21aiva 1721 . . . . . . . . . 10 (w Xk (1...4)((ik) · ((N ‘(wG((ik)SA)))↑2)) )
42 elnnuz 6390 . . . . . . . . . . . 12 (4 ↔ 4 ( ‘1))
431, 42mpbi 189 . . . . . . . . . . 11 4 ( ‘1)
44 fsumclt 7029 . . . . . . . . . . 11 ((4 ( ‘1) k (1...4)((ik) · ((N ‘(wG((ik)SA)))↑2)) ) → Σk (1...4)((ik) · ((N ‘(wG((ik)SA)))↑2)) )
4543, 44mpan 699 . . . . . . . . . 10 (k (1...4)((ik) · ((N ‘(wG((ik)SA)))↑2)) → Σk (1...4)((ik) · ((N ‘(wG((ik)SA)))↑2)) )
4641, 45syl 10 . . . . . . . . 9 (w X → Σk (1...4)((ik) · ((N ‘(wG((ik)SA)))↑2)) )
47 4re 5988 . . . . . . . . . . 11 4
4847recn 5327 . . . . . . . . . 10 4
49 4pos 5998 . . . . . . . . . . 11 0 < 4
5047, 49gt0ne0i 5630 . . . . . . . . . 10 4 ≠ 0
51 divrect 5747 . . . . . . . . . 10 ((Σk (1...4)((ik) · ((N ‘(wG((ik)SA)))↑2)) 4 4 ≠ 0) → (Σk (1...4)((ik) · ((N ‘(wG((ik)SA)))↑2)) / 4) = (Σk (1...4)((ik) · ((N ‘(wG((ik)SA)))↑2)) · (1 / 4)))
5248, 50, 51mp3an23 912 . . . . . . . . 9 k (1...4)((ik) · ((N ‘(wG((ik)SA)))↑2)) → (Σk (1...4)((ik) · ((N ‘(wG((ik)SA)))↑2)) / 4) = (Σk (1...4)((ik) · ((N ‘(wG((ik)SA)))↑2)) · (1 / 4)))
5346, 52syl 10 . . . . . . . 8 (w X → (Σk (1...4)((ik) · ((N ‘(wG((ik)SA)))↑2)) / 4) = (Σk (1...4)((ik) · ((N ‘(wG((ik)SA)))↑2)) · (1 / 4)))
546, 11, 15, 16, 12ipval 8361 . . . . . . . . 9 ((U NrmCVec w X A X) → (wPA) = (Σk (1...4)((ik) · ((N ‘(wG((ik)SA)))↑2)) / 4))
552, 14, 54mp3an13 911 . . . . . . . 8 (w X → (wPA) = (Σk (1...4)((ik) · ((N ‘(wG((ik)SA)))↑2)) / 4))
56 opreq1 3982 . . . . . . . . . . . . . . 15 (u = w → (uG((ik)SA)) = (wG((ik)SA)))
5756fveq2d 3742 . . . . . . . . . . . . . 14 (u = w → (N ‘(uG((ik)SA))) = (N ‘(wG((ik)SA))))
5857opreq1d 3989 . . . . . . . . . . . . 13 (u = w → ((N ‘(uG((ik)SA)))↑2) = ((N ‘(wG((ik)SA)))↑2))
5958opreq2d 3990 . . . . . . . . . . . 12 (u = w → ((ik) · ((N ‘(uG((ik)SA)))↑2)) = ((ik) · ((N ‘(wG((ik)SA)))↑2)))
6059opreq1d 3989 . . . . . . . . . . 11 (u = w → (((ik) · ((N ‘(uG((ik)SA)))↑2)) · (1 / 4)) = (((ik) · ((N ‘(wG((ik)SA)))↑2)) · (1 / 4)))
61 oprex 3997 . . . . . . . . . . 11 (((ik) · ((N ‘(wG((ik)SA)))↑2)) · (1 / 4)) V
6260, 17, 61fvopab4 3794 . . . . . . . . . 10 (w X → (Hw) = (((ik) · ((N ‘(wG((ik)SA)))↑2)) · (1 / 4)))
6362sumeq2sdv 7007 . . . . . . . . 9 (w X → Σk (1...4)(Hw) = Σk (1...4)(((ik) · ((N ‘(wG((ik)SA)))↑2)) · (1 / 4)))
6448, 50reccl 5726 . . . . . . . . . . 11 (1 / 4)
65 fsummulc2 7048 . . . . . . . . . . 11 ((4 ( ‘1) (1 / 4) k (1...4)((ik) · ((N ‘(wG((ik)SA)))↑2)) ) → (Σk (1...4)((ik) · ((N ‘(wG((ik)SA)))↑2)) · (1 / 4)) = Σk (1...4)(((ik) · ((N ‘(wG((ik)SA)))↑2)) · (1 / 4)))
6643, 64, 65mp3an12 910 . . . . . . . . . 10 (k (1...4)((ik) · ((N ‘(wG((ik)SA)))↑2)) → (Σk (1...4)((ik) · ((N ‘(wG((ik)SA)))↑2)) · (1 / 4)) = Σk (1...4)(((ik) · ((N ‘(wG((ik)SA)))↑2)) · (1 / 4)))
6741, 66syl 10 . . . . . . . . 9 (w X → (Σk (1...4)((ik) · ((N ‘(wG((ik)SA)))↑2)) · (1 / 4)) = Σk (1...4)(((ik) · ((N ‘(wG((ik)SA)))↑2)) · (1 / 4)))
6863, 67eqtr4d 1517 . . . . . . . 8 (w X → Σk (1...4)(Hw) = (Σk (1...4)((ik) · ((N ‘(wG((ik)SA)))↑2)) · (1 / 4)))
6953, 55, 683eqtr4rd 1525 . . . . . . 7 (w X → Σk (1...4)(Hw) = (wPA))
7069eqeq2d 1493 . . . . . 6 (w X → (v = Σk (1...4)(Hw) ↔ v = (wPA)))
7170pm5.32i 648 . . . . 5 ((w X v = Σk (1...4)(Hw)) ↔ (w X v = (wPA)))
7271opabbii 2684 . . . 4 {w, v(w X v = Σk (1...4)(Hw))} = {w, v(w X v = (wPA))}
7313, 72eqtr4 1505 . . 3 F = {w, v(w X v = Σk (1...4)(Hw))}
745, 7, 8, 9, 10, 18, 73fsumcn 7999 . 2 (4 F (J Cn K))
751, 74ax-mp 7 1 F (J Cn K)
Colors of variables: wff set class
Syntax hints:   wa 223   = wceq 960   wcel 962   ≠ wne 1592  wral 1652  {copab 2679   ccom 3188   ‘cfv 3196  (class class class)co 3977  cc 5245  cr 5246  0cc0 5247  1c1 5248  ici 5249   · cmul 5252   − cmin 5305   / cdiv 5307  cn 5309  0cn0 5310  2c2 5967  4c4 5969  cuz 6367  ...cfz 6417  ↑cexp 6581  abscabs 6764  Σcsu 6993   Cn ccn 7761  Metcme 7798  Opencopn 7801  NrmCVeccnv 8211   +v cpv 8212  Basecba 8213   ·s cns 8214  normcnm 8217  IndMetcims 8218   ·i cip 8357
This theorem is referenced by:  ip1cni 8387
This theorem was proved from axioms:  ax-1 4  ax-2 5  ax-3 6  ax-mp 7  ax-7 966  ax-gen 967  ax-8 968  ax-9 969  ax-10 970  ax-11 971  ax-12 972  ax-13 973  ax-14 974  ax-17 975  ax-4 977  ax-5o 979  ax-6o 982  ax-9o 1129  ax-10o 1146  ax-16 1216  ax-11o 1224  ax-ext 1466  ax-rep 2706  ax-sep 2716  ax-nul 2723  ax-pow 2756  ax-pr 2793  ax-un 2880  ax-reg 4603  ax-inf2 4637  ax-ac 4756
This theorem depends on definitions:  df-bi 147  df-or 224  df-an 225  df-3or 780  df-3an 781  df-ex 985  df-sb 1178  df-eu 1388  df-mo 1389  df-clab 1471  df-cleq 1476  df-clel 1479  df-ne 1594  df-nel 1595  df-ral 1656  df-rex 1657  df-reu 1658  df-rab 1659  df-v 1819  df-sbc 1949  df-csb 2010  df-dif 2058  df-un 2059  df-in 2060  df-ss 2062  df-pss 2064  df-nul 2290  df-if 2372  df-pw 2412  df-sn 2422  df-pr 2423  df-tp 2425  df-op 2426  df-uni 2516  df-int 2546  df-iun 2580  df-iin 2581  df-br 2633  df-opab 2680  df-tr 2694  df-eprel 2846  df-id 2849  df-po 2854  df-so 2864  df-fr 2931  df-we 2948  df-ord 2965  df-on 2966  df-lim 2967  df-suc 2968  df-om 3146  df-xp 3198  df-rel 3199  df-cnv 3200  df-co 3201  df-dm 3202  df-rn 3203  df-res 3204  df-ima 3205  df-fun 3206  df-fn 3207  df-f 3208  df-f1 3209  df-fo 3210  df-f1o 3211  df-fv 3212  df-rdg 3946  df-opr 3979  df-oprab 3980  df-1st 4093  df-2nd 4094  df-1o 4147  df-oadd 4149  df-omul 4150  df-er 4275  df-ec 4277  df-qs 4280  df-map 4338  df-en 4382  df-dom 4383  df-sdom 4384  df-sup 4584  df-r1 4655  df-rank 4656  df-ni 5013  df-pli 5014  df-mi 5015  df-lti 5016  df-plpq 5048  df-mpq 5049  df-enq 5050  df-nq 5051  df-plq 5052  df-mq 5053  df-rq 5054  df-ltq 5055  df-1q 5056  df-np 5099  df-1p 5100  df-plp 5101  df-mp 5102  df-ltp 5103  df-plpr 5177  df-mpr 5178  df-enr 5179  df-nr 5180  df-plr 5181  df-mr 5182  df-ltr 5183  df-0r 5184  df-1r 5185  df-m1r 5186  df-c 5253  df-0 5254  df-1 5255  df-i 5256  df-r 5257  df-plus 5258  df-mul 5259  df-lt 5260  df-sub 5369  df-neg 5371  df-pnf 5500  df-mnf 5501  df-xr 5502  df-ltxr 5503  df-le 5504  df-div 5716  df-n 5931  df-2 5976  df-3 5977  df-4 5978  df-n0 6106  df-z 6142  df-fl 6233  df-uz 6368  df-fz 6418  df-seq1 6491  df-shft 6524  df-seqz 6546  df-exp 6582  df-sqr 6684  df-re 6765  df-im 6766  df-cj 6767  df-abs 6768  df-clim 6989  df-sum 6994  df-top 7607  df-cn 7763  df-cnp 7764  df-met 7802  df-bl 7804  df-opn 7805  df-lm 7931  df-grp 8046  df-gid 8047  df-ginv 8048  df-gdiv 8049  df-abl 8108  df-vc 8173  df-nv 8219  df-va 8222  df-ba 8223  df-sm 8224  df-0v 8225  df-vs 8226  df-nm 8227  df-ims 8228  df-ip 8358
Copyright terms: Public domain