Theorem ipasslem2 28242

Description: Lemma for ipassi 28251. Show the inner product associative law for nonpositive integers. (Contributed by NM, 27-Apr-2007.) (New usage is discouraged.)

Hypotheses

Ref	Expression
ip1i.1	⊢ 𝑋 = (BaseSet‘𝑈)
ip1i.2	⊢ 𝐺 = ( +𝑣 ‘𝑈)
ip1i.4	⊢ 𝑆 = ( ·𝑠OLD ‘𝑈)
ip1i.7	⊢ 𝑃 = (·𝑖OLD‘𝑈)
ip1i.9	⊢ 𝑈 ∈ CPreHilOLD
ipasslem1.b	⊢ 𝐵 ∈ 𝑋

Assertion

Ref	Expression
ipasslem2	⊢ ((𝑁 ∈ ℕ0 ∧ 𝐴 ∈ 𝑋) → ((-𝑁𝑆𝐴)𝑃𝐵) = (-𝑁 · (𝐴𝑃𝐵)))

Proof of Theorem ipasslem2

Step	Hyp	Ref	Expression
1		nn0cn 11629	. . . . 5 ⊢ (𝑁 ∈ ℕ0 → 𝑁 ∈ ℂ)
2	1	negcld 10700	. . . 4 ⊢ (𝑁 ∈ ℕ0 → -𝑁 ∈ ℂ)
3		ip1i.9	. . . . . 6 ⊢ 𝑈 ∈ CPreHilOLD
4	3	phnvi 28226	. . . . 5 ⊢ 𝑈 ∈ NrmCVec
5		ipasslem1.b	. . . . 5 ⊢ 𝐵 ∈ 𝑋
6		ip1i.1	. . . . . 6 ⊢ 𝑋 = (BaseSet‘𝑈)
7		ip1i.7	. . . . . 6 ⊢ 𝑃 = (·𝑖OLD‘𝑈)
8	6, 7	dipcl 28122	. . . . 5 ⊢ ((𝑈 ∈ NrmCVec ∧ 𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋) → (𝐴𝑃𝐵) ∈ ℂ)
9	4, 5, 8	mp3an13 1582	. . . 4 ⊢ (𝐴 ∈ 𝑋 → (𝐴𝑃𝐵) ∈ ℂ)
10		mulcl 10336	. . . 4 ⊢ ((-𝑁 ∈ ℂ ∧ (𝐴𝑃𝐵) ∈ ℂ) → (-𝑁 · (𝐴𝑃𝐵)) ∈ ℂ)
11	2, 9, 10	syl2an 591	. . 3 ⊢ ((𝑁 ∈ ℕ0 ∧ 𝐴 ∈ 𝑋) → (-𝑁 · (𝐴𝑃𝐵)) ∈ ℂ)
12		ip1i.4	. . . . . . 7 ⊢ 𝑆 = ( ·𝑠OLD ‘𝑈)
13	6, 12	nvscl 28036	. . . . . 6 ⊢ ((𝑈 ∈ NrmCVec ∧ -𝑁 ∈ ℂ ∧ 𝐴 ∈ 𝑋) → (-𝑁𝑆𝐴) ∈ 𝑋)
14	4, 13	mp3an1 1578	. . . . 5 ⊢ ((-𝑁 ∈ ℂ ∧ 𝐴 ∈ 𝑋) → (-𝑁𝑆𝐴) ∈ 𝑋)
15	2, 14	sylan 577	. . . 4 ⊢ ((𝑁 ∈ ℕ0 ∧ 𝐴 ∈ 𝑋) → (-𝑁𝑆𝐴) ∈ 𝑋)
16	6, 7	dipcl 28122	. . . . 5 ⊢ ((𝑈 ∈ NrmCVec ∧ (-𝑁𝑆𝐴) ∈ 𝑋 ∧ 𝐵 ∈ 𝑋) → ((-𝑁𝑆𝐴)𝑃𝐵) ∈ ℂ)
17	4, 5, 16	mp3an13 1582	. . . 4 ⊢ ((-𝑁𝑆𝐴) ∈ 𝑋 → ((-𝑁𝑆𝐴)𝑃𝐵) ∈ ℂ)
18	15, 17	syl 17	. . 3 ⊢ ((𝑁 ∈ ℕ0 ∧ 𝐴 ∈ 𝑋) → ((-𝑁𝑆𝐴)𝑃𝐵) ∈ ℂ)
19		ax-1cn 10310	. . . . . . . . . . . . 13 ⊢ 1 ∈ ℂ
20		mulneg2 10791	. . . . . . . . . . . . 13 ⊢ ((𝑁 ∈ ℂ ∧ 1 ∈ ℂ) → (𝑁 · -1) = -(𝑁 · 1))
21	19, 20	mpan2 684	. . . . . . . . . . . 12 ⊢ (𝑁 ∈ ℂ → (𝑁 · -1) = -(𝑁 · 1))
22		mulid1 10354	. . . . . . . . . . . . 13 ⊢ (𝑁 ∈ ℂ → (𝑁 · 1) = 𝑁)
23	22	negeqd 10595	. . . . . . . . . . . 12 ⊢ (𝑁 ∈ ℂ → -(𝑁 · 1) = -𝑁)
24	21, 23	eqtr2d 2862	. . . . . . . . . . 11 ⊢ (𝑁 ∈ ℂ → -𝑁 = (𝑁 · -1))
25	24	adantr 474	. . . . . . . . . 10 ⊢ ((𝑁 ∈ ℂ ∧ 𝐴 ∈ 𝑋) → -𝑁 = (𝑁 · -1))
26	25	oveq1d 6920	. . . . . . . . 9 ⊢ ((𝑁 ∈ ℂ ∧ 𝐴 ∈ 𝑋) → (-𝑁𝑆𝐴) = ((𝑁 · -1)𝑆𝐴))
27		neg1cn 11472	. . . . . . . . . 10 ⊢ -1 ∈ ℂ
28	6, 12	nvsass 28038	. . . . . . . . . . 11 ⊢ ((𝑈 ∈ NrmCVec ∧ (𝑁 ∈ ℂ ∧ -1 ∈ ℂ ∧ 𝐴 ∈ 𝑋)) → ((𝑁 · -1)𝑆𝐴) = (𝑁𝑆(-1𝑆𝐴)))
29	4, 28	mpan 683	. . . . . . . . . 10 ⊢ ((𝑁 ∈ ℂ ∧ -1 ∈ ℂ ∧ 𝐴 ∈ 𝑋) → ((𝑁 · -1)𝑆𝐴) = (𝑁𝑆(-1𝑆𝐴)))
30	27, 29	mp3an2 1579	. . . . . . . . 9 ⊢ ((𝑁 ∈ ℂ ∧ 𝐴 ∈ 𝑋) → ((𝑁 · -1)𝑆𝐴) = (𝑁𝑆(-1𝑆𝐴)))
31	26, 30	eqtrd 2861	. . . . . . . 8 ⊢ ((𝑁 ∈ ℂ ∧ 𝐴 ∈ 𝑋) → (-𝑁𝑆𝐴) = (𝑁𝑆(-1𝑆𝐴)))
32	1, 31	sylan 577	. . . . . . 7 ⊢ ((𝑁 ∈ ℕ0 ∧ 𝐴 ∈ 𝑋) → (-𝑁𝑆𝐴) = (𝑁𝑆(-1𝑆𝐴)))
33	32	oveq1d 6920	. . . . . 6 ⊢ ((𝑁 ∈ ℕ0 ∧ 𝐴 ∈ 𝑋) → ((-𝑁𝑆𝐴)𝑃𝐵) = ((𝑁𝑆(-1𝑆𝐴))𝑃𝐵))
34	6, 12	nvscl 28036	. . . . . . . 8 ⊢ ((𝑈 ∈ NrmCVec ∧ -1 ∈ ℂ ∧ 𝐴 ∈ 𝑋) → (-1𝑆𝐴) ∈ 𝑋)
35	4, 27, 34	mp3an12 1581	. . . . . . 7 ⊢ (𝐴 ∈ 𝑋 → (-1𝑆𝐴) ∈ 𝑋)
36		ip1i.2	. . . . . . . 8 ⊢ 𝐺 = ( +𝑣 ‘𝑈)
37	6, 36, 12, 7, 3, 5	ipasslem1 28241	. . . . . . 7 ⊢ ((𝑁 ∈ ℕ0 ∧ (-1𝑆𝐴) ∈ 𝑋) → ((𝑁𝑆(-1𝑆𝐴))𝑃𝐵) = (𝑁 · ((-1𝑆𝐴)𝑃𝐵)))
38	35, 37	sylan2 588	. . . . . 6 ⊢ ((𝑁 ∈ ℕ0 ∧ 𝐴 ∈ 𝑋) → ((𝑁𝑆(-1𝑆𝐴))𝑃𝐵) = (𝑁 · ((-1𝑆𝐴)𝑃𝐵)))
39	33, 38	eqtrd 2861	. . . . 5 ⊢ ((𝑁 ∈ ℕ0 ∧ 𝐴 ∈ 𝑋) → ((-𝑁𝑆𝐴)𝑃𝐵) = (𝑁 · ((-1𝑆𝐴)𝑃𝐵)))
40	39	oveq2d 6921	. . . 4 ⊢ ((𝑁 ∈ ℕ0 ∧ 𝐴 ∈ 𝑋) → ((-𝑁 · (𝐴𝑃𝐵)) − ((-𝑁𝑆𝐴)𝑃𝐵)) = ((-𝑁 · (𝐴𝑃𝐵)) − (𝑁 · ((-1𝑆𝐴)𝑃𝐵))))
41	6, 7	dipcl 28122	. . . . . . . 8 ⊢ ((𝑈 ∈ NrmCVec ∧ (-1𝑆𝐴) ∈ 𝑋 ∧ 𝐵 ∈ 𝑋) → ((-1𝑆𝐴)𝑃𝐵) ∈ ℂ)
42	4, 5, 41	mp3an13 1582	. . . . . . 7 ⊢ ((-1𝑆𝐴) ∈ 𝑋 → ((-1𝑆𝐴)𝑃𝐵) ∈ ℂ)
43	35, 42	syl 17	. . . . . 6 ⊢ (𝐴 ∈ 𝑋 → ((-1𝑆𝐴)𝑃𝐵) ∈ ℂ)
44		mulcl 10336	. . . . . 6 ⊢ ((𝑁 ∈ ℂ ∧ ((-1𝑆𝐴)𝑃𝐵) ∈ ℂ) → (𝑁 · ((-1𝑆𝐴)𝑃𝐵)) ∈ ℂ)
45	1, 43, 44	syl2an 591	. . . . 5 ⊢ ((𝑁 ∈ ℕ0 ∧ 𝐴 ∈ 𝑋) → (𝑁 · ((-1𝑆𝐴)𝑃𝐵)) ∈ ℂ)
46	11, 45	negsubd 10719	. . . 4 ⊢ ((𝑁 ∈ ℕ0 ∧ 𝐴 ∈ 𝑋) → ((-𝑁 · (𝐴𝑃𝐵)) + -(𝑁 · ((-1𝑆𝐴)𝑃𝐵))) = ((-𝑁 · (𝐴𝑃𝐵)) − (𝑁 · ((-1𝑆𝐴)𝑃𝐵))))
47		mulneg1 10790	. . . . . . 7 ⊢ ((𝑁 ∈ ℂ ∧ ((-1𝑆𝐴)𝑃𝐵) ∈ ℂ) → (-𝑁 · ((-1𝑆𝐴)𝑃𝐵)) = -(𝑁 · ((-1𝑆𝐴)𝑃𝐵)))
48	1, 43, 47	syl2an 591	. . . . . 6 ⊢ ((𝑁 ∈ ℕ0 ∧ 𝐴 ∈ 𝑋) → (-𝑁 · ((-1𝑆𝐴)𝑃𝐵)) = -(𝑁 · ((-1𝑆𝐴)𝑃𝐵)))
49	48	oveq2d 6921	. . . . 5 ⊢ ((𝑁 ∈ ℕ0 ∧ 𝐴 ∈ 𝑋) → ((-𝑁 · (𝐴𝑃𝐵)) + (-𝑁 · ((-1𝑆𝐴)𝑃𝐵))) = ((-𝑁 · (𝐴𝑃𝐵)) + -(𝑁 · ((-1𝑆𝐴)𝑃𝐵))))
50	2	adantr 474	. . . . . . 7 ⊢ ((𝑁 ∈ ℕ0 ∧ 𝐴 ∈ 𝑋) → -𝑁 ∈ ℂ)
51	9	adantl 475	. . . . . . 7 ⊢ ((𝑁 ∈ ℕ0 ∧ 𝐴 ∈ 𝑋) → (𝐴𝑃𝐵) ∈ ℂ)
52	43	adantl 475	. . . . . . 7 ⊢ ((𝑁 ∈ ℕ0 ∧ 𝐴 ∈ 𝑋) → ((-1𝑆𝐴)𝑃𝐵) ∈ ℂ)
53	50, 51, 52	adddid 10381	. . . . . 6 ⊢ ((𝑁 ∈ ℕ0 ∧ 𝐴 ∈ 𝑋) → (-𝑁 · ((𝐴𝑃𝐵) + ((-1𝑆𝐴)𝑃𝐵))) = ((-𝑁 · (𝐴𝑃𝐵)) + (-𝑁 · ((-1𝑆𝐴)𝑃𝐵))))
54	6, 36, 12, 7, 3	ipdiri 28240	. . . . . . . . . . 11 ⊢ ((𝐴 ∈ 𝑋 ∧ (-1𝑆𝐴) ∈ 𝑋 ∧ 𝐵 ∈ 𝑋) → ((𝐴𝐺(-1𝑆𝐴))𝑃𝐵) = ((𝐴𝑃𝐵) + ((-1𝑆𝐴)𝑃𝐵)))
55	5, 54	mp3an3 1580	. . . . . . . . . 10 ⊢ ((𝐴 ∈ 𝑋 ∧ (-1𝑆𝐴) ∈ 𝑋) → ((𝐴𝐺(-1𝑆𝐴))𝑃𝐵) = ((𝐴𝑃𝐵) + ((-1𝑆𝐴)𝑃𝐵)))
56	35, 55	mpdan 680	. . . . . . . . 9 ⊢ (𝐴 ∈ 𝑋 → ((𝐴𝐺(-1𝑆𝐴))𝑃𝐵) = ((𝐴𝑃𝐵) + ((-1𝑆𝐴)𝑃𝐵)))
57		eqid 2825	. . . . . . . . . . . . 13 ⊢ (0vec‘𝑈) = (0vec‘𝑈)
58	6, 36, 12, 57	nvrinv 28061	. . . . . . . . . . . 12 ⊢ ((𝑈 ∈ NrmCVec ∧ 𝐴 ∈ 𝑋) → (𝐴𝐺(-1𝑆𝐴)) = (0vec‘𝑈))
59	4, 58	mpan 683	. . . . . . . . . . 11 ⊢ (𝐴 ∈ 𝑋 → (𝐴𝐺(-1𝑆𝐴)) = (0vec‘𝑈))
60	59	oveq1d 6920	. . . . . . . . . 10 ⊢ (𝐴 ∈ 𝑋 → ((𝐴𝐺(-1𝑆𝐴))𝑃𝐵) = ((0vec‘𝑈)𝑃𝐵))
61	6, 57, 7	dip0l 28128	. . . . . . . . . . 11 ⊢ ((𝑈 ∈ NrmCVec ∧ 𝐵 ∈ 𝑋) → ((0vec‘𝑈)𝑃𝐵) = 0)
62	4, 5, 61	mp2an 685	. . . . . . . . . 10 ⊢ ((0vec‘𝑈)𝑃𝐵) = 0
63	60, 62	syl6eq 2877	. . . . . . . . 9 ⊢ (𝐴 ∈ 𝑋 → ((𝐴𝐺(-1𝑆𝐴))𝑃𝐵) = 0)
64	56, 63	eqtr3d 2863	. . . . . . . 8 ⊢ (𝐴 ∈ 𝑋 → ((𝐴𝑃𝐵) + ((-1𝑆𝐴)𝑃𝐵)) = 0)
65	64	oveq2d 6921	. . . . . . 7 ⊢ (𝐴 ∈ 𝑋 → (-𝑁 · ((𝐴𝑃𝐵) + ((-1𝑆𝐴)𝑃𝐵))) = (-𝑁 · 0))
66	2	mul01d 10554	. . . . . . 7 ⊢ (𝑁 ∈ ℕ0 → (-𝑁 · 0) = 0)
67	65, 66	sylan9eqr 2883	. . . . . 6 ⊢ ((𝑁 ∈ ℕ0 ∧ 𝐴 ∈ 𝑋) → (-𝑁 · ((𝐴𝑃𝐵) + ((-1𝑆𝐴)𝑃𝐵))) = 0)
68	53, 67	eqtr3d 2863	. . . . 5 ⊢ ((𝑁 ∈ ℕ0 ∧ 𝐴 ∈ 𝑋) → ((-𝑁 · (𝐴𝑃𝐵)) + (-𝑁 · ((-1𝑆𝐴)𝑃𝐵))) = 0)
69	49, 68	eqtr3d 2863	. . . 4 ⊢ ((𝑁 ∈ ℕ0 ∧ 𝐴 ∈ 𝑋) → ((-𝑁 · (𝐴𝑃𝐵)) + -(𝑁 · ((-1𝑆𝐴)𝑃𝐵))) = 0)
70	40, 46, 69	3eqtr2d 2867	. . 3 ⊢ ((𝑁 ∈ ℕ0 ∧ 𝐴 ∈ 𝑋) → ((-𝑁 · (𝐴𝑃𝐵)) − ((-𝑁𝑆𝐴)𝑃𝐵)) = 0)
71	11, 18, 70	subeq0d 10721	. 2 ⊢ ((𝑁 ∈ ℕ0 ∧ 𝐴 ∈ 𝑋) → (-𝑁 · (𝐴𝑃𝐵)) = ((-𝑁𝑆𝐴)𝑃𝐵))
72	71	eqcomd 2831	1 ⊢ ((𝑁 ∈ ℕ0 ∧ 𝐴 ∈ 𝑋) → ((-𝑁𝑆𝐴)𝑃𝐵) = (-𝑁 · (𝐴𝑃𝐵)))

Syntax hints:   → wi 4   ∧ wa 386   ∧ w3a 1113   = wceq 1658   ∈ wcel 2166  ‘cfv 6123  (class class class)co 6905  ℂcc 10250  0cc0 10252  1c1 10253   + caddc 10255   · cmul 10257   − cmin 10585  -cneg 10586  ℕ₀cn0 11618  NrmCVeccnv 27994   +_𝑣 cpv 27995  BaseSetcba 27996   ·_𝑠OLD cns 27997  0_veccn0v 27998  ·_𝑖OLDcdip 28110  CPreHil_OLDccphlo 28222

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1896  ax-4 1910  ax-5 2011  ax-6 2077  ax-7 2114  ax-8 2168  ax-9 2175  ax-10 2194  ax-11 2209  ax-12 2222  ax-13 2391  ax-ext 2803  ax-rep 4994  ax-sep 5005  ax-nul 5013  ax-pow 5065  ax-pr 5127  ax-un 7209  ax-inf2 8815  ax-cnex 10308  ax-resscn 10309  ax-1cn 10310  ax-icn 10311  ax-addcl 10312  ax-addrcl 10313  ax-mulcl 10314  ax-mulrcl 10315  ax-mulcom 10316  ax-addass 10317  ax-mulass 10318  ax-distr 10319  ax-i2m1 10320  ax-1ne0 10321  ax-1rid 10322  ax-rnegex 10323  ax-rrecex 10324  ax-cnre 10325  ax-pre-lttri 10326  ax-pre-lttrn 10327  ax-pre-ltadd 10328  ax-pre-mulgt0 10329  ax-pre-sup 10330

This theorem depends on definitions:  df-bi 199  df-an 387  df-or 881  df-3or 1114  df-3an 1115  df-tru 1662  df-fal 1672  df-ex 1881  df-nf 1885  df-sb 2070  df-mo 2605  df-eu 2640  df-clab 2812  df-cleq 2818  df-clel 2821  df-nfc 2958  df-ne 3000  df-nel 3103  df-ral 3122  df-rex 3123  df-reu 3124  df-rmo 3125  df-rab 3126  df-v 3416  df-sbc 3663  df-csb 3758  df-dif 3801  df-un 3803  df-in 3805  df-ss 3812  df-pss 3814  df-nul 4145  df-if 4307  df-pw 4380  df-sn 4398  df-pr 4400  df-tp 4402  df-op 4404  df-uni 4659  df-int 4698  df-iun 4742  df-br 4874  df-opab 4936  df-mpt 4953  df-tr 4976  df-id 5250  df-eprel 5255  df-po 5263  df-so 5264  df-fr 5301  df-se 5302  df-we 5303  df-xp 5348  df-rel 5349  df-cnv 5350  df-co 5351  df-dm 5352  df-rn 5353  df-res 5354  df-ima 5355  df-pred 5920  df-ord 5966  df-on 5967  df-lim 5968  df-suc 5969  df-iota 6086  df-fun 6125  df-fn 6126  df-f 6127  df-f1 6128  df-fo 6129  df-f1o 6130  df-fv 6131  df-isom 6132  df-riota 6866  df-ov 6908  df-oprab 6909  df-mpt2 6910  df-om 7327  df-1st 7428  df-2nd 7429  df-wrecs 7672  df-recs 7734  df-rdg 7772  df-1o 7826  df-oadd 7830  df-er 8009  df-en 8223  df-dom 8224  df-sdom 8225  df-fin 8226  df-sup 8617  df-oi 8684  df-card 9078  df-pnf 10393  df-mnf 10394  df-xr 10395  df-ltxr 10396  df-le 10397  df-sub 10587  df-neg 10588  df-div 11010  df-nn 11351  df-2 11414  df-3 11415  df-4 11416  df-n0 11619  df-z 11705  df-uz 11969  df-rp 12113  df-fz 12620  df-fzo 12761  df-seq 13096  df-exp 13155  df-hash 13411  df-cj 14216  df-re 14217  df-im 14218  df-sqrt 14352  df-abs 14353  df-clim 14596  df-sum 14794  df-grpo 27903  df-gid 27904  df-ginv 27905  df-ablo 27955  df-vc 27969  df-nv 28002  df-va 28005  df-ba 28006  df-sm 28007  df-0v 28008  df-nmcv 28010  df-dip 28111  df-ph 28223

This theorem is referenced by:  ipasslem3  28243