Theorem ipdir 8498

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 3730	. . . . . . 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 1522	. . . . . 6 |- (U = if(U e. CPreHil, U, <.<. + , x. >., abs>.) -> X = (Base` if(U e. CPreHil, U, <.<. + , x. >., abs>.)))
4	3	eleq2d 1544	. . . . 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 1544	. . . . 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 1544	. . . . 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 895	. . . 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 3730	. . . . . . . . 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 1522	. . . . . . . 8 |- (U = if(U e. CPreHil, U, <.<. + , x. >., abs>.) -> G = (+v` if(U e. CPreHil, U, <.<. + , x. >., abs>.)))
11	10	opreqd 3983	. . . . . . 7 |- (U = if(U e. CPreHil, U, <.<. + , x. >., abs>.) -> (AGB) = (A(+v` if(U e. CPreHil, U, <.<. + , x. >., abs>.))B))
12	11	opreq1d 3981	. . . . . 6 |- (U = if(U e. CPreHil, U, <.<. + , x. >., abs>.) -> ((AGB)PC) = ((A(+v` if(U e. CPreHil, U, <.<. + , x. >., abs>.))B)PC))
13		fveq2 3730	. . . . . . . 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 1522	. . . . . . 7 |- (U = if(U e. CPreHil, U, <.<. + , x. >., abs>.) -> P = (.i` if(U e. CPreHil, U, <.<. + , x. >., abs>.)))
16	15	opreqd 3983	. . . . . 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 1510	. . . . 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 3983	. . . . . 6 |- (U = if(U e. CPreHil, U, <.<. + , x. >., abs>.) -> (APC) = (A(.i` if(U e. CPreHil, U, <.<. + , x. >., abs>.))C))
19	15	opreqd 3983	. . . . . 6 |- (U = if(U e. CPreHil, U, <.<. + , x. >., abs>.) -> (BPC) = (B(.i` if(U e. CPreHil, U, <.<. + , x. >., abs>.))C))
20	18, 19	opreq12d 3984	. . . . 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 1492	. . . 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 628	. . 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 1478	. . . 4 |- (Base` if(U e. CPreHil, U, <.<. + , x. >., abs>.)) = (Base` if(U e. CPreHil, U, <.<. + , x. >., abs>.))
24		eqid 1478	. . . 4 |- (+v` if(U e. CPreHil, U, <.<. + , x. >., abs>.)) = (+v` if(U e. CPreHil, U, <.<. + , x. >., abs>.))
25		eqid 1478	. . . 4 |- (.s` if(U e. CPreHil, U, <.<. + , x. >., abs>.)) = (.s` if(U e. CPreHil, U, <.<. + , x. >., abs>.))
26		eqid 1478	. . . 4 |- (.i` if(U e. CPreHil, U, <.<. + , x. >., abs>.)) = (.i` if(U e. CPreHil, U, <.<. + , x. >., abs>.))
27		elimphu 8476	. . . 4 |- if(U e. CPreHil, U, <.<. + , x. >., abs>.) e. CPreHil
28	23, 24, 25, 26, 27	ipdiri 8485	. . 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 2387	. 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 777   = wceq 958   e. wcel 960  ifcif 2365  <.cop 2415  ` cfv 3188  (class class class)co 3969   + caddc 5249   x. cmul 5251  abscabs 6751  +vcpv 8200  Basecba 8201  .scns 8202  .icip 8345  CPreHilcphl 8467

This theorem is referenced by:  ipdi 8499  ip2dii 8500  ipsubdir 8504  ipblnfi 8512  hlipdir 8610

This theorem was proved from axioms:  ax-1 4  ax-2 5  ax-3 6  ax-mp 7  ax-7 964  ax-gen 965  ax-8 966  ax-9 967  ax-10 968  ax-11 969  ax-12 970  ax-13 971  ax-14 972  ax-17 973  ax-4 975  ax-5o 977  ax-6o 980  ax-9o 1125  ax-10o 1142  ax-16 1212  ax-11o 1220  ax-ext 1462  ax-rep 2698  ax-sep 2708  ax-nul 2715  ax-pow 2748  ax-pr 2785  ax-un 2872  ax-inf2 4634

This theorem depends on definitions:  df-bi 147  df-or 224  df-an 225  df-3or 778  df-3an 7