Metamath Proof Explorer


Theorem fproddiv

Description: The quotient of two finite products. (Contributed by Scott Fenton, 15-Jan-2018)

Ref Expression
Hypotheses fprodmul.1 φAFin
fprodmul.2 φkAB
fprodmul.3 φkAC
fproddiv.4 φkAC0
Assertion fproddiv φkABC=kABkAC

Proof

Step Hyp Ref Expression
1 fprodmul.1 φAFin
2 fprodmul.2 φkAB
3 fprodmul.3 φkAC
4 fproddiv.4 φkAC0
5 1div1e1 11=1
6 5 eqcomi 1=11
7 prodeq1 A=kABC=kBC
8 prod0 kBC=1
9 7 8 eqtrdi A=kABC=1
10 prodeq1 A=kAB=kB
11 prod0 kB=1
12 10 11 eqtrdi A=kAB=1
13 prodeq1 A=kAC=kC
14 prod0 kC=1
15 13 14 eqtrdi A=kAC=1
16 12 15 oveq12d A=kABkAC=11
17 6 9 16 3eqtr4a A=kABC=kABkAC
18 17 a1i φA=kABC=kABkAC
19 simprl φAf:1A1-1 ontoAA
20 nnuz =1
21 19 20 eleqtrdi φAf:1A1-1 ontoAA1
22 2 fmpttd φkAB:A
23 f1of f:1A1-1 ontoAf:1AA
24 23 adantl Af:1A1-1 ontoAf:1AA
25 fco kAB:Af:1AAkABf:1A
26 22 24 25 syl2an φAf:1A1-1 ontoAkABf:1A
27 26 ffvelcdmda φAf:1A1-1 ontoAn1AkABfn
28 3 fmpttd φkAC:A
29 fco kAC:Af:1AAkACf:1A
30 28 24 29 syl2an φAf:1A1-1 ontoAkACf:1A
31 30 ffvelcdmda φAf:1A1-1 ontoAn1AkACfn
32 simprr φAf:1A1-1 ontoAf:1A1-1 ontoA
33 32 23 syl φAf:1A1-1 ontoAf:1AA
34 fvco3 f:1AAn1AkACfn=kACfn
35 33 34 sylan φAf:1A1-1 ontoAn1AkACfn=kACfn
36 33 ffvelcdmda φAf:1A1-1 ontoAn1AfnA
37 simpr φkAkA
38 eqid kAC=kAC
39 38 fvmpt2 kACkACk=C
40 37 3 39 syl2anc φkAkACk=C
41 40 4 eqnetrd φkAkACk0
42 41 ralrimiva φkAkACk0
43 42 ad2antrr φAf:1A1-1 ontoAn1AkAkACk0
44 nffvmpt1 _kkACfn
45 nfcv _k0
46 44 45 nfne kkACfn0
47 fveq2 k=fnkACk=kACfn
48 47 neeq1d k=fnkACk0kACfn0
49 46 48 rspc fnAkAkACk0kACfn0
50 36 43 49 sylc φAf:1A1-1 ontoAn1AkACfn0
51 35 50 eqnetrd φAf:1A1-1 ontoAn1AkACfn0
52 2 3 4 divcld φkABC
53 eqid kABC=kABC
54 53 fvmpt2 kABCkABCk=BC
55 37 52 54 syl2anc φkAkABCk=BC
56 eqid kAB=kAB
57 56 fvmpt2 kABkABk=B
58 37 2 57 syl2anc φkAkABk=B
59 58 40 oveq12d φkAkABkkACk=BC
60 55 59 eqtr4d φkAkABCk=kABkkACk
61 60 ralrimiva φkAkABCk=kABkkACk
62 61 ad2antrr φAf:1A1-1 ontoAn1AkAkABCk=kABkkACk
63 nffvmpt1 _kkABCfn
64 nffvmpt1 _kkABfn
65 nfcv _k÷
66 64 65 44 nfov _kkABfnkACfn
67 63 66 nfeq kkABCfn=kABfnkACfn
68 fveq2 k=fnkABCk=kABCfn
69 fveq2 k=fnkABk=kABfn
70 69 47 oveq12d k=fnkABkkACk=kABfnkACfn
71 68 70 eqeq12d k=fnkABCk=kABkkACkkABCfn=kABfnkACfn
72 67 71 rspc fnAkAkABCk=kABkkACkkABCfn=kABfnkACfn
73 36 62 72 sylc φAf:1A1-1 ontoAn1AkABCfn=kABfnkACfn
74 fvco3 f:1AAn1AkABCfn=kABCfn
75 33 74 sylan φAf:1A1-1 ontoAn1AkABCfn=kABCfn
76 fvco3 f:1AAn1AkABfn=kABfn
77 33 76 sylan φAf:1A1-1 ontoAn1AkABfn=kABfn
78 77 35 oveq12d φAf:1A1-1 ontoAn1AkABfnkACfn=kABfnkACfn
79 73 75 78 3eqtr4d φAf:1A1-1 ontoAn1AkABCfn=kABfnkACfn
80 21 27 31 51 79 prodfdiv φAf:1A1-1 ontoAseq1×kABCfA=seq1×kABfAseq1×kACfA
81 fveq2 m=fnkABCm=kABCfn
82 52 fmpttd φkABC:A
83 82 adantr φAf:1A1-1 ontoAkABC:A
84 83 ffvelcdmda φAf:1A1-1 ontoAmAkABCm
85 81 19 32 84 75 fprod φAf:1A1-1 ontoAmAkABCm=seq1×kABCfA
86 fveq2 m=fnkABm=kABfn
87 22 adantr φAf:1A1-1 ontoAkAB:A
88 87 ffvelcdmda φAf:1A1-1 ontoAmAkABm
89 86 19 32 88 77 fprod φAf:1A1-1 ontoAmAkABm=seq1×kABfA
90 fveq2 m=fnkACm=kACfn
91 28 adantr φAf:1A1-1 ontoAkAC:A
92 91 ffvelcdmda φAf:1A1-1 ontoAmAkACm
93 90 19 32 92 35 fprod φAf:1A1-1 ontoAmAkACm=seq1×kACfA
94 89 93 oveq12d φAf:1A1-1 ontoAmAkABmmAkACm=seq1×kABfAseq1×kACfA
95 80 85 94 3eqtr4d φAf:1A1-1 ontoAmAkABCm=mAkABmmAkACm
96 prodfc mAkABCm=kABC
97 prodfc mAkABm=kAB
98 prodfc mAkACm=kAC
99 97 98 oveq12i mAkABmmAkACm=kABkAC
100 95 96 99 3eqtr3g φAf:1A1-1 ontoAkABC=kABkAC
101 100 expr φAf:1A1-1 ontoAkABC=kABkAC
102 101 exlimdv φAff:1A1-1 ontoAkABC=kABkAC
103 102 expimpd φAff:1A1-1 ontoAkABC=kABkAC
104 fz1f1o AFinA=Aff:1A1-1 ontoA
105 1 104 syl φA=Aff:1A1-1 ontoA
106 18 103 105 mpjaod φkABC=kABkAC