Theorem ipdir 8486

Description: Distributive law for inner product. Equation I3 of [Ponnusamy] p. 362.

Hypotheses

Ref	Expression
ipdir.1	|- X = (Base` U)
ipdir.2	|- G = (+v` U)
ipdir.7	|- P = (.i` U)

Assertion

Ref	Expression
ipdir	|- ((U e. CPreHil /\ (A e. X /\ B e. X /\ C e. X)) -> ((AGB)PC) = ((APC) + (BPC)))

Proof of Theorem ipdir

Step	Hyp	Ref	Expression
1		fveq2 3721	. . . . . . 7 |- (U = if(U e. CPreHil, U, <.<. + , x. >., abs>.) -> (Base` U) = (Base` if(U e. CPreHil, U, <.<. + , x. >., abs>.)))
2		ipdir.1	. . . . . . 7 |- X = (Base` U)
3	1, 2	syl5eq 1518	. . . . . 6 |- (U = if(U e. CPreHil, U, <.<. + , x. >., abs>.) -> X = (Base` if(U e. CPreHil, U, <.<. + , x. >., abs>.)))
4	3	eleq2d 1540	. . . . 5 |- (U = if(U e. CPreHil, U, <.<. + , x. >., abs>.) -> (A e. X <-> A e. (Base` if(U e. CPreHil, U, <.<. + , x. >., abs>.))))
5	3	eleq2d 1540	. . . . 5 |- (U = if(U e. CPreHil, U, <.<. + , x. >., abs>.) -> (B e. X <-> B e. (Base` if(U e. CPreHil, U, <.<. + , x. >., abs>.))))
6	3	eleq2d 1540	. . . . 5 |- (U = if(U e. CPreHil, U, <.<. + , x. >., abs>.) -> (C e. X <-> C e. (Base` if(U e. CPreHil, U, <.<. + , x. >., abs>.))))
7	4, 5, 6	3anbi123d 892	. . . 4 |- (U = if(U e. CPreHil, U, <.<. + , x. >., abs>.) -> ((A e. X /\ B e. X /\ C e. X) <-> (A e. (Base` if(U e. CPreHil, U, <.<. + , x. >., abs>.)) /\ B e. (Base` if(U e. CPreHil, U, <.<. + , x. >., abs>.)) /\ C e. (Base` if(U e. CPreHil, U, <.<. + , x. >., abs>.)))))
8		fveq2 3721	. . . . . . . . 9 |- (U = if(U e. CPreHil, U, <.<. + , x. >., abs>.) -> (+v` U) = (+v` if(U e. CPreHil, U, <.<. + , x. >., abs>.)))
9		ipdir.2	. . . . . . . . 9 |- G = (+v` U)
10	8, 9	syl5eq 1518	. . . . . . . 8 |- (U = if(U e. CPreHil, U, <.<. + , x. >., abs>.) -> G = (+v` if(U e. CPreHil, U, <.<. + , x. >., abs>.)))
11	10	opreqd 3974	. . . . . . 7 |- (U = if(U e. CPreHil, U, <.<. + , x. >., abs>.) -> (AGB) = (A(+v` if(U e. CPreHil, U, <.<. + , x. >., abs>.))B))
12	11	opreq1d 3972	. . . . . 6 |- (U = if(U e. CPreHil, U, <.<. + , x. >., abs>.) -> ((AGB)PC) = ((A(+v` if(U e. CPreHil, U, <.<. + , x. >., abs>.))B)PC))
13		fveq2 3721	. . . . . . . 8 |- (U = if(U e. CPreHil, U, <.<. + , x. >., abs>.) -> (.i` U) = (.i` if(U e. CPreHil, U, <.<. + , x. >., abs>.)))
14		ipdir.7	. . . . . . . 8 |- P = (.i` U)
15	13, 14	syl5eq 1518	. . . . . . 7 |- (U = if(U e. CPreHil, U, <.<. + , x. >., abs>.) -> P = (.i` if(U e. CPreHil, U, <.<. + , x. >., abs>.)))
16	15	opreqd 3974	. . . . . 6 |- (U = if(U e. CPreHil, U, <.<. + , x. >., abs>.) -> ((A(+v` if(U e. CPreHil, U, <.<. + , x. >., abs>.))B)PC) = ((A(+v` if(U e. CPreHil, U, <.<. + , x. >., abs>.))B)(.i` if(U e. CPreHil, U, <.<. + , x. >., abs>.))C))
17	12, 16	eqtrd 1506	. . . . 5 |- (U = if(U e. CPreHil, U, <.<. + , x. >., abs>.) -> ((AGB)PC) = ((A(+v` if(U e. CPreHil, U, <.<. + , x. >., abs>.))B)(.i` if(U e. CPreHil, U, <.<. + , x. >., abs>.))C))
18	15	opreqd 3974	. . . . . 6 |- (U = if(U e. CPreHil, U, <.<. + , x. >., abs>.) -> (APC) = (A(.i` if(U e. CPreHil, U, <.<. + , x. >., abs>.))C))
19	15	opreqd 3974	. . . . . 6 |- (U = if(U e. CPreHil, U, <.<. + , x. >., abs>.) -> (BPC) = (B(.i` if(U e. CPreHil, U, <.<. + , x. >., abs>.))C))
20	18, 19	opreq12d 3975	. . . . 5 |- (U = if(U e. CPreHil, U, <.<. + , x. >., abs>.) -> ((APC) + (BPC)) = ((A(.i` if(U e. CPreHil, U, <.<. + , x. >., abs>.))C) + (B(.i` if(U e. CPreHil, U, <.<. + , x. >., abs>.))C)))
21	17, 20	eqeq12d 1488	. . . 4 |- (U = if(U e. CPreHil, U, <.<. + , x. >., abs>.) -> (((AGB)PC) = ((APC) + (BPC)) <-> ((A(+v` if(U e. CPreHil, U, <.<. + , x. >., abs>.))B)(.i` if(U e. CPreHil, U, <.<. + , x. >., abs>.))C) = ((A(.i` if(U e. CPreHil, U, <.<. + , x. >., abs>.))C) + (B(.i` if(U e. CPreHil, U, <.<. + , x. >., abs>.))C))))
22	7, 21	imbi12d 625	. . 3 |- (U = if(U e. CPreHil, U, <.<. + , x. >., abs>.) -> (((A e. X /\ B e. X /\ C e. X) -> ((AGB)PC) = ((APC) + (BPC))) <-> ((A e. (Base` if(U e. CPreHil, U, <.<. + , x. >., abs>.)) /\ B e. (Base` if(U e. CPreHil, U, <.<. + , x. >., abs>.)) /\ C e. (Base` if(U e. CPreHil, U, <.<. + , x. >., abs>.))) -> ((A(+v` if(U e. CPreHil, U, <.<. + , x. >., abs>.))B)(.i` if(U e. CPreHil, U, <.<. + , x. >., abs>.))C) = ((A(.i` if(U e. CPreHil, U, <.<. + , x. >., abs>.))C) + (B(.i` if(U e. CPreHil, U, <.<. + , x. >., abs>.))C)))))
23		eqid 1475	. . . 4 |- (Base` if(U e. CPreHil, U, <.<. + , x. >., abs>.)) = (Base` if(U e. CPreHil, U, <.<. + , x. >., abs>.))
24		eqid 1475	. . . 4 |- (+v` if(U e. CPreHil, U, <.<. + , x. >., abs>.)) = (+v` if(U e. CPreHil, U, <.<. + , x. >., abs>.))
25		eqid 1475	. . . 4 |- (.s` if(U e. CPreHil, U, <.<. + , x. >., abs>.)) = (.s` if(U e. CPreHil, U, <.<. + , x. >., abs>.))
26		eqid 1475	. . . 4 |- (.i` if(U e. CPreHil, U, <.<. + , x. >., abs>.)) = (.i` if(U e. CPreHil, U, <.<. + , x. >., abs>.))
27		elimphu 8464	. . . 4 |- if(U e. CPreHil, U, <.<. + , x. >., abs>.) e. CPreHil
28	23, 24, 25, 26, 27	ipdiri 8473	. . 3 |- ((A e. (Base` if(U e. CPreHil, U, <.<. + , x. >., abs>.)) /\ B e. (Base` if(U e. CPreHil, U, <.<. + , x. >., abs>.)) /\ C e. (Base` if(U e. CPreHil, U, <.<. + , x. >., abs>.))) -> ((A(+v` if(U e. CPreHil, U, <.<. + , x. >., abs>.))B)(.i` if(U e. CPreHil, U, <.<. + , x. >., abs>.))C) = ((A(.i` if(U e. CPreHil, U, <.<. + , x. >., abs>.))C) + (B(.i` if(U e. CPreHil, U, <.<. + , x. >., abs>.))C)))
29	22, 28	dedth 2381	. 2 |- (U e. CPreHil -> ((A e. X /\ B e. X /\ C e. X) -> ((AGB)PC) = ((APC) + (BPC))))
30	29	imp 350	1 |- ((U e. CPreHil /\ (A e. X /\ B e. X /\ C e. X)) -> ((AGB)PC) = ((APC) + (BPC)))

Syntax hints:   -> wi 3   /\ wa 223   /\ w3a 774   = wceq 955   e. wcel 957  ifcif 2359  <.cop 2409  ` cfv 3179  (class class class)co 3960   + caddc 5224   x. cmul 5226  abscabs 6702  +vcpv 8189  Basecba 8190  .scns 8191  .icip 8335  CPreHilcphl 8455

This theorem is referenced by:  ipdi 8487  ip2dii 8488  ipsubdir 8492  ipblnfi 8500  hlipdir 8597

This theorem was proved from axioms:  ax-1 4  ax-2 5  ax-3 6  ax-mp 7  ax-7 961  ax-gen 962  ax-8 963  ax-9 964  ax-10 965  ax-11 966  ax-12 967  ax-13 968  ax-14 969  ax-17 970  ax-4 972  ax-5o 974  ax-6o 977  ax-9o 1122  ax-10o 1139  ax-16 1210  ax-11o 1218  ax-ext 1459  ax-rep 2690  ax-sep 2700  ax-nul 2707  ax-pow 2739  ax-pr 2776  ax-un 2863  ax-inf2 4612

This theorem depends on definitions:  df-bi 147  df-or 224  df-an 225  df-3or 775  df-3an 776 &n