Metamath Proof Explorer


Theorem 1arithlem4

Description: Lemma for 1arith . (Contributed by Mario Carneiro, 30-May-2014)

Ref Expression
Hypotheses 1arith.1 M=npppCntn
1arithlem4.2 G=yifyyFy1
1arithlem4.3 φF:0
1arithlem4.4 φN
1arithlem4.5 φqNqFq=0
Assertion 1arithlem4 φxF=Mx

Proof

Step Hyp Ref Expression
1 1arith.1 M=npppCntn
2 1arithlem4.2 G=yifyyFy1
3 1arithlem4.3 φF:0
4 1arithlem4.4 φN
5 1arithlem4.5 φqNqFq=0
6 3 ffvelcdmda φyFy0
7 6 ralrimiva φyFy0
8 2 7 pcmptcl φG:seq1×G:
9 8 simprd φseq1×G:
10 9 4 ffvelcdmd φseq1×GN
11 1 1arithlem2 seq1×GNqMseq1×GNq=qpCntseq1×GN
12 10 11 sylan φqMseq1×GNq=qpCntseq1×GN
13 7 adantr φqyFy0
14 4 adantr φqN
15 simpr φqq
16 fveq2 y=qFy=Fq
17 2 13 14 15 16 pcmpt φqqpCntseq1×GN=ifqNFq0
18 14 nnred φqN
19 prmz qq
20 19 zred qq
21 20 adantl φqq
22 5 anassrs φqNqFq=0
23 22 ifeq2d φqNqifqNFqFq=ifqNFq0
24 ifid ifqNFqFq=Fq
25 23 24 eqtr3di φqNqifqNFq0=Fq
26 iftrue qNifqNFq0=Fq
27 26 adantl φqqNifqNFq0=Fq
28 18 21 25 27 lecasei φqifqNFq0=Fq
29 12 17 28 3eqtrrd φqFq=Mseq1×GNq
30 29 ralrimiva φqFq=Mseq1×GNq
31 1 1arithlem3 seq1×GNMseq1×GN:0
32 10 31 syl φMseq1×GN:0
33 ffn F:0FFn
34 ffn Mseq1×GN:0Mseq1×GNFn
35 eqfnfv FFnMseq1×GNFnF=Mseq1×GNqFq=Mseq1×GNq
36 33 34 35 syl2an F:0Mseq1×GN:0F=Mseq1×GNqFq=Mseq1×GNq
37 3 32 36 syl2anc φF=Mseq1×GNqFq=Mseq1×GNq
38 30 37 mpbird φF=Mseq1×GN
39 fveq2 x=seq1×GNMx=Mseq1×GN
40 39 rspceeqv seq1×GNF=Mseq1×GNxF=Mx
41 10 38 40 syl2anc φxF=Mx