Theorem seqeq1 10632

Description: Equality theorem for the sequence builder operation. (Contributed by Mario Carneiro, 4-Sep-2013.)

Assertion

Ref	Expression
seqeq1	|- ( M = N -> seq M ( .+ , F ) = seq N ( .+ , F ) )

Proof of Theorem seqeq1

Dummy variables x y are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		id 19	. . . . . 6 |- ( M = N -> M = N )
2		fveq2 5599	. . . . . 6 |- ( M = N -> ( F ` M ) = ( F ` N ) )
3	1, 2	opeq12d 3841	. . . . 5 |- ( M = N -> <. M , ( F ` M ) >. = <. N , ( F ` N ) >. )
4		freceq2 6502	. . . . 5 |- ( <. M , ( F ` M ) >. = <. N , ( F ` N ) >. -> frec ( ( x e. ( ZZ>= ` M ) , y e. _V |-> <. ( x + 1 ) , ( y .+ ( F ` ( x + 1 ) ) ) >. ) , <. M , ( F ` M ) >. ) = frec ( ( x e. ( ZZ>= ` M ) , y e. _V |-> <. ( x + 1 ) , ( y .+ ( F ` ( x + 1 ) ) ) >. ) , <. N , ( F ` N ) >. ) )
5	3, 4	syl 14	. . . 4 |- ( M = N -> frec ( ( x e. ( ZZ>= ` M ) , y e. _V |-> <. ( x + 1 ) , ( y .+ ( F ` ( x + 1 ) ) ) >. ) , <. M , ( F ` M ) >. ) = frec ( ( x e. ( ZZ>= ` M ) , y e. _V |-> <. ( x + 1 ) , ( y .+ ( F ` ( x + 1 ) ) ) >. ) , <. N , ( F ` N ) >. ) )
6		fveq2 5599	. . . . . 6 |- ( M = N -> ( ZZ>= ` M ) = ( ZZ>= ` N ) )
7		eqid 2207	. . . . . 6 |- _V = _V
8		mpoeq12 6028	. . . . . 6 |- ( ( ( ZZ>= ` M ) = ( ZZ>= ` N ) /\ _V = _V ) -> ( x e. ( ZZ>= ` M ) , y e. _V |-> <. ( x + 1 ) , ( y .+ ( F ` ( x + 1 ) ) ) >. ) = ( x e. ( ZZ>= ` N ) , y e. _V |-> <. ( x + 1 ) , ( y .+ ( F ` ( x + 1 ) ) ) >. ) )
9	6, 7, 8	sylancl 413	. . . . 5 |- ( M = N -> ( x e. ( ZZ>= ` M ) , y e. _V |-> <. ( x + 1 ) , ( y .+ ( F ` ( x + 1 ) ) ) >. ) = ( x e. ( ZZ>= ` N ) , y e. _V |-> <. ( x + 1 ) , ( y .+ ( F ` ( x + 1 ) ) ) >. ) )
10		freceq1 6501	. . . . 5 |- ( ( x e. ( ZZ>= ` M ) , y e. _V |-> <. ( x + 1 ) , ( y .+ ( F ` ( x + 1 ) ) ) >. ) = ( x e. ( ZZ>= ` N ) , y e. _V |-> <. ( x + 1 ) , ( y .+ ( F ` ( x + 1 ) ) ) >. ) -> frec ( ( x e. ( ZZ>= ` M ) , y e. _V |-> <. ( x + 1 ) , ( y .+ ( F ` ( x + 1 ) ) ) >. ) , <. N , ( F ` N ) >. ) = frec ( ( x e. ( ZZ>= ` N ) , y e. _V |-> <. ( x + 1 ) , ( y .+ ( F ` ( x + 1 ) ) ) >. ) , <. N , ( F ` N ) >. ) )
11	9, 10	syl 14	. . . 4 |- ( M = N -> frec ( ( x e. ( ZZ>= ` M ) , y e. _V |-> <. ( x + 1 ) , ( y .+ ( F ` ( x + 1 ) ) ) >. ) , <. N , ( F ` N ) >. ) = frec ( ( x e. ( ZZ>= ` N ) , y e. _V |-> <. ( x + 1 ) , ( y .+ ( F ` ( x + 1 ) ) ) >. ) , <. N , ( F ` N ) >. ) )
12	5, 11	eqtrd 2240	. . 3 |- ( M = N -> frec ( ( x e. ( ZZ>= ` M ) , y e. _V |-> <. ( x + 1 ) , ( y .+ ( F ` ( x + 1 ) ) ) >. ) , <. M , ( F ` M ) >. ) = frec ( ( x e. ( ZZ>= ` N ) , y e. _V |-> <. ( x + 1 ) , ( y .+ ( F ` ( x + 1 ) ) ) >. ) , <. N , ( F ` N ) >. ) )
13	12	rneqd 4926	. 2 |- ( M = N -> ran frec ( ( x e. ( ZZ>= ` M ) , y e. _V |-> <. ( x + 1 ) , ( y .+ ( F ` ( x + 1 ) ) ) >. ) , <. M , ( F ` M ) >. ) = ran frec ( ( x e. ( ZZ>= ` N ) , y e. _V |-> <. ( x + 1 ) , ( y .+ ( F ` ( x + 1 ) ) ) >. ) , <. N , ( F ` N ) >. ) )
14		df-seqfrec 10630	. 2 |- seq M ( .+ , F ) = ran frec ( ( x e. ( ZZ>= ` M ) , y e. _V |-> <. ( x + 1 ) , ( y .+ ( F ` ( x + 1 ) ) ) >. ) , <. M , ( F ` M ) >. )
15		df-seqfrec 10630	. 2 |- seq N ( .+ , F ) = ran frec ( ( x e. ( ZZ>= ` N ) , y e. _V |-> <. ( x + 1 ) , ( y .+ ( F ` ( x + 1 ) ) ) >. ) , <. N , ( F ` N ) >. )
16	13, 14, 15	3eqtr4g 2265	1 |- ( M = N -> seq M ( .+ , F ) = seq N ( .+ , F ) )

Syntax hints:   -> wi 4   = wceq 1373   _Vcvv 2776   <.cop 3646   ran crn 4694   ` cfv 5290  (class class class)co 5967   e. cmpo 5969  freccfrec 6499   1c1 7961   + caddc 7963   ZZ>=cuz 9683   seqcseq 10629

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-ia1 106  ax-ia2 107  ax-ia3 108  ax-io 711  ax-5 1471  ax-7 1472  ax-gen 1473  ax-ie1 1517  ax-ie2 1518  ax-8 1528  ax-10 1529  ax-11 1530  ax-i12 1531  ax-bndl 1533  ax-4 1534  ax-17 1550  ax-i9 1554  ax-ial 1558  ax-i5r 1559  ax-ext 2189

This theorem depends on definitions:  df-bi 117  df-3an 983  df-tru 1376  df-nf 1485  df-sb 1787  df-clab 2194  df-cleq 2200  df-clel 2203  df-nfc 2339  df-ral 2491  df-rex 2492  df-v 2778  df-un 3178  df-in 3180  df-ss 3187  df-sn 3649  df-pr 3650  df-op 3652  df-uni 3865  df-br 4060  df-opab 4122  df-mpt 4123  df-cnv 4701  df-dm 4703  df-rn 4704  df-res 4705  df-iota 5251  df-fv 5298  df-oprab 5971  df-mpo 5972  df-recs 6414  df-frec 6500  df-seqfrec 10630

This theorem is referenced by:  seqeq1d  10635  seq3f1olemqsum  10695  seqf1oglem2  10702  seq3id  10707  seq3z  10710  iserex  11765  summodclem2  11808  summodc  11809  zsumdc  11810  isumsplit  11917  ntrivcvgap  11974  ntrivcvgap0  11975  prodmodclem2  12003  prodmodc  12004  zproddc  12005  fprodntrivap  12010  ege2le3  12097  gsumfzval  13338  gsumval2  13344