Theorem lcfrlem11

Description: Lemma for lcfr . (Contributed by NM, 23-Feb-2015)

	Ref	Expression
Hypotheses	lcf1o.h	|- H = ( LHyp ` K )
	lcf1o.o	|- ._|_ = ( ( ocH ` K ) ` W )
	lcf1o.u	|- U = ( ( DVecH ` K ) ` W )
	lcf1o.v	|- V = ( Base ` U )
	lcf1o.a	|- .+ = ( +g ` U )
	lcf1o.t	|- .x. = ( .s ` U )
	lcf1o.s	|- S = ( Scalar ` U )
	lcf1o.r	|- R = ( Base ` S )
	lcf1o.z	|- .0. = ( 0g ` U )
	lcf1o.f	|- F = ( LFnl ` U )
	lcf1o.l	|- L = ( LKer ` U )
	lcf1o.d	|- D = ( LDual ` U )
	lcf1o.q	|- Q = ( 0g ` D )
	lcf1o.c	|- C = { f e. F | ( ._|_ ` ( ._|_ ` ( L ` f ) ) ) = ( L ` f ) }
	lcf1o.j	|- J = ( x e. ( V \ { .0. } ) |-> ( v e. V |-> ( iota_ k e. R E. w e. ( ._|_ ` { x } ) v = ( w .+ ( k .x. x ) ) ) ) )
	lcflo.k	|- ( ph -> ( K e. HL /\ W e. H ) )
	lcfrlem10.x	|- ( ph -> X e. ( V \ { .0. } ) )
Assertion	lcfrlem11	|- ( ph -> ( L ` ( J ` X ) ) = ( ._|_ ` { X } ) )

Proof

Step	Hyp	Ref	Expression
1		lcf1o.h	|- H = ( LHyp ` K )
2		lcf1o.o	|- ._|_ = ( ( ocH ` K ) ` W )
3		lcf1o.u	|- U = ( ( DVecH ` K ) ` W )
4		lcf1o.v	|- V = ( Base ` U )
5		lcf1o.a	|- .+ = ( +g ` U )
6		lcf1o.t	|- .x. = ( .s ` U )
7		lcf1o.s	|- S = ( Scalar ` U )
8		lcf1o.r	|- R = ( Base ` S )
9		lcf1o.z	|- .0. = ( 0g ` U )
10		lcf1o.f	|- F = ( LFnl ` U )
11		lcf1o.l	|- L = ( LKer ` U )
12		lcf1o.d	|- D = ( LDual ` U )
13		lcf1o.q	|- Q = ( 0g ` D )
14		lcf1o.c	|- C = { f e. F | ( ._|_ ` ( ._|_ ` ( L ` f ) ) ) = ( L ` f ) }
15		lcf1o.j	|- J = ( x e. ( V \ { .0. } ) |-> ( v e. V |-> ( iota_ k e. R E. w e. ( ._|_ ` { x } ) v = ( w .+ ( k .x. x ) ) ) ) )
16		lcflo.k	|- ( ph -> ( K e. HL /\ W e. H ) )
17		lcfrlem10.x	|- ( ph -> X e. ( V \ { .0. } ) )
18	1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17	lcfrlem8	|- ( ph -> ( J ` X ) = ( v e. V |-> ( iota_ k e. R E. w e. ( ._|_ ` { X } ) v = ( w .+ ( k .x. X ) ) ) ) )
19	18	fveq2d	|- ( ph -> ( L ` ( J ` X ) ) = ( L ` ( v e. V |-> ( iota_ k e. R E. w e. ( ._|_ ` { X } ) v = ( w .+ ( k .x. X ) ) ) ) ) )
20		eqid	|- ( v e. V |-> ( iota_ k e. R E. w e. ( ._|_ ` { X } ) v = ( w .+ ( k .x. X ) ) ) ) = ( v e. V |-> ( iota_ k e. R E. w e. ( ._|_ ` { X } ) v = ( w .+ ( k .x. X ) ) ) )
21	1 2 3 4 9 5 6 11 7 8 20 16 17	dochsnkr2	|- ( ph -> ( L ` ( v e. V |-> ( iota_ k e. R E. w e. ( ._|_ ` { X } ) v = ( w .+ ( k .x. X ) ) ) ) ) = ( ._|_ ` { X } ) )
22	19 21	eqtrd	|- ( ph -> ( L ` ( J ` X ) ) = ( ._|_ ` { X } ) )