Theorem psrbagev2OLD

Description: Obsolete version of psrbagev2 as of 7-Aug-2024. (Contributed by Stefan O'Rear, 9-Mar-2015) (Proof shortened by AV, 18-Jul-2019) (Revised by AV, 11-Apr-2024) (New usage is discouraged.) (Proof modification is discouraged.)

	Ref	Expression
Hypotheses	psrbagev2.d	|- D = { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin }
	psrbagev2.c	|- C = ( Base ` T )
	psrbagev2.x	|- .x. = ( .g ` T )
	psrbagev2.t	|- ( ph -> T e. CMnd )
	psrbagev2.b	|- ( ph -> B e. D )
	psrbagev2.g	|- ( ph -> G : I --> C )
	psrbagev2OLD.i	|- ( ph -> I e. W )
Assertion	psrbagev2OLD	|- ( ph -> ( T gsum ( B oF .x. G ) ) e. C )

Proof

Step	Hyp	Ref	Expression
1		psrbagev2.d	|- D = { h e. ( NN0 ^m I ) | ( `' h " NN ) e. Fin }
2		psrbagev2.c	|- C = ( Base ` T )
3		psrbagev2.x	|- .x. = ( .g ` T )
4		psrbagev2.t	|- ( ph -> T e. CMnd )
5		psrbagev2.b	|- ( ph -> B e. D )
6		psrbagev2.g	|- ( ph -> G : I --> C )
7		psrbagev2OLD.i	|- ( ph -> I e. W )
8		eqid	|- ( 0g ` T ) = ( 0g ` T )
9	1 2 3 8 4 5 6 7	psrbagev1OLD	|- ( ph -> ( ( B oF .x. G ) : I --> C /\ ( B oF .x. G ) finSupp ( 0g ` T ) ) )
10	9	simpld	|- ( ph -> ( B oF .x. G ) : I --> C )
11	9	simprd	|- ( ph -> ( B oF .x. G ) finSupp ( 0g ` T ) )
12	2 8 4 7 10 11	gsumcl	|- ( ph -> ( T gsum ( B oF .x. G ) ) e. C )