Metamath Proof Explorer


Theorem coprmproddvdslem

Description: Lemma for coprmproddvds : Induction step. (Contributed by AV, 19-Aug-2020)

Ref Expression
Assertion coprmproddvdslem ( ( ๐‘ฆ โˆˆ Fin โˆง ยฌ ๐‘ง โˆˆ ๐‘ฆ ) โ†’ ( ( ( ( ๐‘ฆ โІ โ„• โˆง ( ๐พ โˆˆ โ„• โˆง ๐น : โ„• โŸถ โ„• ) ) โˆง ( โˆ€ ๐‘š โˆˆ ๐‘ฆ โˆ€ ๐‘› โˆˆ ( ๐‘ฆ โˆ– { ๐‘š } ) ( ( ๐น โ€˜ ๐‘š ) gcd ( ๐น โ€˜ ๐‘› ) ) = 1 โˆง โˆ€ ๐‘š โˆˆ ๐‘ฆ ( ๐น โ€˜ ๐‘š ) โˆฅ ๐พ ) ) โ†’ โˆ ๐‘š โˆˆ ๐‘ฆ ( ๐น โ€˜ ๐‘š ) โˆฅ ๐พ ) โ†’ ( ( ( ( ๐‘ฆ โˆช { ๐‘ง } ) โІ โ„• โˆง ( ๐พ โˆˆ โ„• โˆง ๐น : โ„• โŸถ โ„• ) ) โˆง ( โˆ€ ๐‘š โˆˆ ( ๐‘ฆ โˆช { ๐‘ง } ) โˆ€ ๐‘› โˆˆ ( ( ๐‘ฆ โˆช { ๐‘ง } ) โˆ– { ๐‘š } ) ( ( ๐น โ€˜ ๐‘š ) gcd ( ๐น โ€˜ ๐‘› ) ) = 1 โˆง โˆ€ ๐‘š โˆˆ ( ๐‘ฆ โˆช { ๐‘ง } ) ( ๐น โ€˜ ๐‘š ) โˆฅ ๐พ ) ) โ†’ โˆ ๐‘š โˆˆ ( ๐‘ฆ โˆช { ๐‘ง } ) ( ๐น โ€˜ ๐‘š ) โˆฅ ๐พ ) ) )

Proof

Step Hyp Ref Expression
1 nfv โŠข โ„ฒ ๐‘š ( ( ๐‘ฆ โˆˆ Fin โˆง ยฌ ๐‘ง โˆˆ ๐‘ฆ ) โˆง ( ( ๐‘ฆ โˆช { ๐‘ง } ) โІ โ„• โˆง ( ๐พ โˆˆ โ„• โˆง ๐น : โ„• โŸถ โ„• ) ) )
2 nfcv โŠข โ„ฒ ๐‘š ( ๐น โ€˜ ๐‘ง )
3 simpll โŠข ( ( ( ๐‘ฆ โˆˆ Fin โˆง ยฌ ๐‘ง โˆˆ ๐‘ฆ ) โˆง ( ( ๐‘ฆ โˆช { ๐‘ง } ) โІ โ„• โˆง ( ๐พ โˆˆ โ„• โˆง ๐น : โ„• โŸถ โ„• ) ) ) โ†’ ๐‘ฆ โˆˆ Fin )
4 unss โŠข ( ( ๐‘ฆ โІ โ„• โˆง { ๐‘ง } โІ โ„• ) โ†” ( ๐‘ฆ โˆช { ๐‘ง } ) โІ โ„• )
5 vex โŠข ๐‘ง โˆˆ V
6 5 snss โŠข ( ๐‘ง โˆˆ โ„• โ†” { ๐‘ง } โІ โ„• )
7 6 biimpri โŠข ( { ๐‘ง } โІ โ„• โ†’ ๐‘ง โˆˆ โ„• )
8 7 adantl โŠข ( ( ๐‘ฆ โІ โ„• โˆง { ๐‘ง } โІ โ„• ) โ†’ ๐‘ง โˆˆ โ„• )
9 4 8 sylbir โŠข ( ( ๐‘ฆ โˆช { ๐‘ง } ) โІ โ„• โ†’ ๐‘ง โˆˆ โ„• )
10 9 adantr โŠข ( ( ( ๐‘ฆ โˆช { ๐‘ง } ) โІ โ„• โˆง ( ๐พ โˆˆ โ„• โˆง ๐น : โ„• โŸถ โ„• ) ) โ†’ ๐‘ง โˆˆ โ„• )
11 10 adantl โŠข ( ( ( ๐‘ฆ โˆˆ Fin โˆง ยฌ ๐‘ง โˆˆ ๐‘ฆ ) โˆง ( ( ๐‘ฆ โˆช { ๐‘ง } ) โІ โ„• โˆง ( ๐พ โˆˆ โ„• โˆง ๐น : โ„• โŸถ โ„• ) ) ) โ†’ ๐‘ง โˆˆ โ„• )
12 simplr โŠข ( ( ( ๐‘ฆ โˆˆ Fin โˆง ยฌ ๐‘ง โˆˆ ๐‘ฆ ) โˆง ( ( ๐‘ฆ โˆช { ๐‘ง } ) โІ โ„• โˆง ( ๐พ โˆˆ โ„• โˆง ๐น : โ„• โŸถ โ„• ) ) ) โ†’ ยฌ ๐‘ง โˆˆ ๐‘ฆ )
13 simprrr โŠข ( ( ( ๐‘ฆ โˆˆ Fin โˆง ยฌ ๐‘ง โˆˆ ๐‘ฆ ) โˆง ( ( ๐‘ฆ โˆช { ๐‘ง } ) โІ โ„• โˆง ( ๐พ โˆˆ โ„• โˆง ๐น : โ„• โŸถ โ„• ) ) ) โ†’ ๐น : โ„• โŸถ โ„• )
14 13 adantr โŠข ( ( ( ( ๐‘ฆ โˆˆ Fin โˆง ยฌ ๐‘ง โˆˆ ๐‘ฆ ) โˆง ( ( ๐‘ฆ โˆช { ๐‘ง } ) โІ โ„• โˆง ( ๐พ โˆˆ โ„• โˆง ๐น : โ„• โŸถ โ„• ) ) ) โˆง ๐‘š โˆˆ ๐‘ฆ ) โ†’ ๐น : โ„• โŸถ โ„• )
15 simpl โŠข ( ( ๐‘ฆ โІ โ„• โˆง { ๐‘ง } โІ โ„• ) โ†’ ๐‘ฆ โІ โ„• )
16 4 15 sylbir โŠข ( ( ๐‘ฆ โˆช { ๐‘ง } ) โІ โ„• โ†’ ๐‘ฆ โІ โ„• )
17 16 adantr โŠข ( ( ( ๐‘ฆ โˆช { ๐‘ง } ) โІ โ„• โˆง ( ๐พ โˆˆ โ„• โˆง ๐น : โ„• โŸถ โ„• ) ) โ†’ ๐‘ฆ โІ โ„• )
18 17 adantl โŠข ( ( ( ๐‘ฆ โˆˆ Fin โˆง ยฌ ๐‘ง โˆˆ ๐‘ฆ ) โˆง ( ( ๐‘ฆ โˆช { ๐‘ง } ) โІ โ„• โˆง ( ๐พ โˆˆ โ„• โˆง ๐น : โ„• โŸถ โ„• ) ) ) โ†’ ๐‘ฆ โІ โ„• )
19 18 sselda โŠข ( ( ( ( ๐‘ฆ โˆˆ Fin โˆง ยฌ ๐‘ง โˆˆ ๐‘ฆ ) โˆง ( ( ๐‘ฆ โˆช { ๐‘ง } ) โІ โ„• โˆง ( ๐พ โˆˆ โ„• โˆง ๐น : โ„• โŸถ โ„• ) ) ) โˆง ๐‘š โˆˆ ๐‘ฆ ) โ†’ ๐‘š โˆˆ โ„• )
20 14 19 ffvelcdmd โŠข ( ( ( ( ๐‘ฆ โˆˆ Fin โˆง ยฌ ๐‘ง โˆˆ ๐‘ฆ ) โˆง ( ( ๐‘ฆ โˆช { ๐‘ง } ) โІ โ„• โˆง ( ๐พ โˆˆ โ„• โˆง ๐น : โ„• โŸถ โ„• ) ) ) โˆง ๐‘š โˆˆ ๐‘ฆ ) โ†’ ( ๐น โ€˜ ๐‘š ) โˆˆ โ„• )
21 20 nncnd โŠข ( ( ( ( ๐‘ฆ โˆˆ Fin โˆง ยฌ ๐‘ง โˆˆ ๐‘ฆ ) โˆง ( ( ๐‘ฆ โˆช { ๐‘ง } ) โІ โ„• โˆง ( ๐พ โˆˆ โ„• โˆง ๐น : โ„• โŸถ โ„• ) ) ) โˆง ๐‘š โˆˆ ๐‘ฆ ) โ†’ ( ๐น โ€˜ ๐‘š ) โˆˆ โ„‚ )
22 fveq2 โŠข ( ๐‘š = ๐‘ง โ†’ ( ๐น โ€˜ ๐‘š ) = ( ๐น โ€˜ ๐‘ง ) )
23 13 11 ffvelcdmd โŠข ( ( ( ๐‘ฆ โˆˆ Fin โˆง ยฌ ๐‘ง โˆˆ ๐‘ฆ ) โˆง ( ( ๐‘ฆ โˆช { ๐‘ง } ) โІ โ„• โˆง ( ๐พ โˆˆ โ„• โˆง ๐น : โ„• โŸถ โ„• ) ) ) โ†’ ( ๐น โ€˜ ๐‘ง ) โˆˆ โ„• )
24 23 nncnd โŠข ( ( ( ๐‘ฆ โˆˆ Fin โˆง ยฌ ๐‘ง โˆˆ ๐‘ฆ ) โˆง ( ( ๐‘ฆ โˆช { ๐‘ง } ) โІ โ„• โˆง ( ๐พ โˆˆ โ„• โˆง ๐น : โ„• โŸถ โ„• ) ) ) โ†’ ( ๐น โ€˜ ๐‘ง ) โˆˆ โ„‚ )
25 1 2 3 11 12 21 22 24 fprodsplitsn โŠข ( ( ( ๐‘ฆ โˆˆ Fin โˆง ยฌ ๐‘ง โˆˆ ๐‘ฆ ) โˆง ( ( ๐‘ฆ โˆช { ๐‘ง } ) โІ โ„• โˆง ( ๐พ โˆˆ โ„• โˆง ๐น : โ„• โŸถ โ„• ) ) ) โ†’ โˆ ๐‘š โˆˆ ( ๐‘ฆ โˆช { ๐‘ง } ) ( ๐น โ€˜ ๐‘š ) = ( โˆ ๐‘š โˆˆ ๐‘ฆ ( ๐น โ€˜ ๐‘š ) ยท ( ๐น โ€˜ ๐‘ง ) ) )
26 25 ad2ant2r โŠข ( ( ( ( ๐‘ฆ โˆˆ Fin โˆง ยฌ ๐‘ง โˆˆ ๐‘ฆ ) โˆง ( ( ( ๐‘ฆ โІ โ„• โˆง ( ๐พ โˆˆ โ„• โˆง ๐น : โ„• โŸถ โ„• ) ) โˆง ( โˆ€ ๐‘š โˆˆ ๐‘ฆ โˆ€ ๐‘› โˆˆ ( ๐‘ฆ โˆ– { ๐‘š } ) ( ( ๐น โ€˜ ๐‘š ) gcd ( ๐น โ€˜ ๐‘› ) ) = 1 โˆง โˆ€ ๐‘š โˆˆ ๐‘ฆ ( ๐น โ€˜ ๐‘š ) โˆฅ ๐พ ) ) โ†’ โˆ ๐‘š โˆˆ ๐‘ฆ ( ๐น โ€˜ ๐‘š ) โˆฅ ๐พ ) ) โˆง ( ( ( ๐‘ฆ โˆช { ๐‘ง } ) โІ โ„• โˆง ( ๐พ โˆˆ โ„• โˆง ๐น : โ„• โŸถ โ„• ) ) โˆง ( โˆ€ ๐‘š โˆˆ ( ๐‘ฆ โˆช { ๐‘ง } ) โˆ€ ๐‘› โˆˆ ( ( ๐‘ฆ โˆช { ๐‘ง } ) โˆ– { ๐‘š } ) ( ( ๐น โ€˜ ๐‘š ) gcd ( ๐น โ€˜ ๐‘› ) ) = 1 โˆง โˆ€ ๐‘š โˆˆ ( ๐‘ฆ โˆช { ๐‘ง } ) ( ๐น โ€˜ ๐‘š ) โˆฅ ๐พ ) ) ) โ†’ โˆ ๐‘š โˆˆ ( ๐‘ฆ โˆช { ๐‘ง } ) ( ๐น โ€˜ ๐‘š ) = ( โˆ ๐‘š โˆˆ ๐‘ฆ ( ๐น โ€˜ ๐‘š ) ยท ( ๐น โ€˜ ๐‘ง ) ) )
27 simprl โŠข ( ( ( ( ๐‘ฆ โˆช { ๐‘ง } ) โІ โ„• โˆง ( ๐พ โˆˆ โ„• โˆง ๐น : โ„• โŸถ โ„• ) ) โˆง ( ๐‘ฆ โˆˆ Fin โˆง ยฌ ๐‘ง โˆˆ ๐‘ฆ ) ) โ†’ ๐‘ฆ โˆˆ Fin )
28 simprr โŠข ( ( ( ๐‘ฆ โˆช { ๐‘ง } ) โІ โ„• โˆง ( ๐พ โˆˆ โ„• โˆง ๐น : โ„• โŸถ โ„• ) ) โ†’ ๐น : โ„• โŸถ โ„• )
29 28 adantr โŠข ( ( ( ( ๐‘ฆ โˆช { ๐‘ง } ) โІ โ„• โˆง ( ๐พ โˆˆ โ„• โˆง ๐น : โ„• โŸถ โ„• ) ) โˆง ( ๐‘ฆ โˆˆ Fin โˆง ยฌ ๐‘ง โˆˆ ๐‘ฆ ) ) โ†’ ๐น : โ„• โŸถ โ„• )
30 29 adantr โŠข ( ( ( ( ( ๐‘ฆ โˆช { ๐‘ง } ) โІ โ„• โˆง ( ๐พ โˆˆ โ„• โˆง ๐น : โ„• โŸถ โ„• ) ) โˆง ( ๐‘ฆ โˆˆ Fin โˆง ยฌ ๐‘ง โˆˆ ๐‘ฆ ) ) โˆง ๐‘š โˆˆ ๐‘ฆ ) โ†’ ๐น : โ„• โŸถ โ„• )
31 17 adantr โŠข ( ( ( ( ๐‘ฆ โˆช { ๐‘ง } ) โІ โ„• โˆง ( ๐พ โˆˆ โ„• โˆง ๐น : โ„• โŸถ โ„• ) ) โˆง ( ๐‘ฆ โˆˆ Fin โˆง ยฌ ๐‘ง โˆˆ ๐‘ฆ ) ) โ†’ ๐‘ฆ โІ โ„• )
32 31 sselda โŠข ( ( ( ( ( ๐‘ฆ โˆช { ๐‘ง } ) โІ โ„• โˆง ( ๐พ โˆˆ โ„• โˆง ๐น : โ„• โŸถ โ„• ) ) โˆง ( ๐‘ฆ โˆˆ Fin โˆง ยฌ ๐‘ง โˆˆ ๐‘ฆ ) ) โˆง ๐‘š โˆˆ ๐‘ฆ ) โ†’ ๐‘š โˆˆ โ„• )
33 30 32 ffvelcdmd โŠข ( ( ( ( ( ๐‘ฆ โˆช { ๐‘ง } ) โІ โ„• โˆง ( ๐พ โˆˆ โ„• โˆง ๐น : โ„• โŸถ โ„• ) ) โˆง ( ๐‘ฆ โˆˆ Fin โˆง ยฌ ๐‘ง โˆˆ ๐‘ฆ ) ) โˆง ๐‘š โˆˆ ๐‘ฆ ) โ†’ ( ๐น โ€˜ ๐‘š ) โˆˆ โ„• )
34 27 33 fprodnncl โŠข ( ( ( ( ๐‘ฆ โˆช { ๐‘ง } ) โІ โ„• โˆง ( ๐พ โˆˆ โ„• โˆง ๐น : โ„• โŸถ โ„• ) ) โˆง ( ๐‘ฆ โˆˆ Fin โˆง ยฌ ๐‘ง โˆˆ ๐‘ฆ ) ) โ†’ โˆ ๐‘š โˆˆ ๐‘ฆ ( ๐น โ€˜ ๐‘š ) โˆˆ โ„• )
35 34 ex โŠข ( ( ( ๐‘ฆ โˆช { ๐‘ง } ) โІ โ„• โˆง ( ๐พ โˆˆ โ„• โˆง ๐น : โ„• โŸถ โ„• ) ) โ†’ ( ( ๐‘ฆ โˆˆ Fin โˆง ยฌ ๐‘ง โˆˆ ๐‘ฆ ) โ†’ โˆ ๐‘š โˆˆ ๐‘ฆ ( ๐น โ€˜ ๐‘š ) โˆˆ โ„• ) )
36 35 adantr โŠข ( ( ( ( ๐‘ฆ โˆช { ๐‘ง } ) โІ โ„• โˆง ( ๐พ โˆˆ โ„• โˆง ๐น : โ„• โŸถ โ„• ) ) โˆง ( โˆ€ ๐‘š โˆˆ ( ๐‘ฆ โˆช { ๐‘ง } ) โˆ€ ๐‘› โˆˆ ( ( ๐‘ฆ โˆช { ๐‘ง } ) โˆ– { ๐‘š } ) ( ( ๐น โ€˜ ๐‘š ) gcd ( ๐น โ€˜ ๐‘› ) ) = 1 โˆง โˆ€ ๐‘š โˆˆ ( ๐‘ฆ โˆช { ๐‘ง } ) ( ๐น โ€˜ ๐‘š ) โˆฅ ๐พ ) ) โ†’ ( ( ๐‘ฆ โˆˆ Fin โˆง ยฌ ๐‘ง โˆˆ ๐‘ฆ ) โ†’ โˆ ๐‘š โˆˆ ๐‘ฆ ( ๐น โ€˜ ๐‘š ) โˆˆ โ„• ) )
37 36 com12 โŠข ( ( ๐‘ฆ โˆˆ Fin โˆง ยฌ ๐‘ง โˆˆ ๐‘ฆ ) โ†’ ( ( ( ( ๐‘ฆ โˆช { ๐‘ง } ) โІ โ„• โˆง ( ๐พ โˆˆ โ„• โˆง ๐น : โ„• โŸถ โ„• ) ) โˆง ( โˆ€ ๐‘š โˆˆ ( ๐‘ฆ โˆช { ๐‘ง } ) โˆ€ ๐‘› โˆˆ ( ( ๐‘ฆ โˆช { ๐‘ง } ) โˆ– { ๐‘š } ) ( ( ๐น โ€˜ ๐‘š ) gcd ( ๐น โ€˜ ๐‘› ) ) = 1 โˆง โˆ€ ๐‘š โˆˆ ( ๐‘ฆ โˆช { ๐‘ง } ) ( ๐น โ€˜ ๐‘š ) โˆฅ ๐พ ) ) โ†’ โˆ ๐‘š โˆˆ ๐‘ฆ ( ๐น โ€˜ ๐‘š ) โˆˆ โ„• ) )
38 37 adantr โŠข ( ( ( ๐‘ฆ โˆˆ Fin โˆง ยฌ ๐‘ง โˆˆ ๐‘ฆ ) โˆง ( ( ( ๐‘ฆ โІ โ„• โˆง ( ๐พ โˆˆ โ„• โˆง ๐น : โ„• โŸถ โ„• ) ) โˆง ( โˆ€ ๐‘š โˆˆ ๐‘ฆ โˆ€ ๐‘› โˆˆ ( ๐‘ฆ โˆ– { ๐‘š } ) ( ( ๐น โ€˜ ๐‘š ) gcd ( ๐น โ€˜ ๐‘› ) ) = 1 โˆง โˆ€ ๐‘š โˆˆ ๐‘ฆ ( ๐น โ€˜ ๐‘š ) โˆฅ ๐พ ) ) โ†’ โˆ ๐‘š โˆˆ ๐‘ฆ ( ๐น โ€˜ ๐‘š ) โˆฅ ๐พ ) ) โ†’ ( ( ( ( ๐‘ฆ โˆช { ๐‘ง } ) โІ โ„• โˆง ( ๐พ โˆˆ โ„• โˆง ๐น : โ„• โŸถ โ„• ) ) โˆง ( โˆ€ ๐‘š โˆˆ ( ๐‘ฆ โˆช { ๐‘ง } ) โˆ€ ๐‘› โˆˆ ( ( ๐‘ฆ โˆช { ๐‘ง } ) โˆ– { ๐‘š } ) ( ( ๐น โ€˜ ๐‘š ) gcd ( ๐น โ€˜ ๐‘› ) ) = 1 โˆง โˆ€ ๐‘š โˆˆ ( ๐‘ฆ โˆช { ๐‘ง } ) ( ๐น โ€˜ ๐‘š ) โˆฅ ๐พ ) ) โ†’ โˆ ๐‘š โˆˆ ๐‘ฆ ( ๐น โ€˜ ๐‘š ) โˆˆ โ„• ) )
39 38 imp โŠข ( ( ( ( ๐‘ฆ โˆˆ Fin โˆง ยฌ ๐‘ง โˆˆ ๐‘ฆ ) โˆง ( ( ( ๐‘ฆ โІ โ„• โˆง ( ๐พ โˆˆ โ„• โˆง ๐น : โ„• โŸถ โ„• ) ) โˆง ( โˆ€ ๐‘š โˆˆ ๐‘ฆ โˆ€ ๐‘› โˆˆ ( ๐‘ฆ โˆ– { ๐‘š } ) ( ( ๐น โ€˜ ๐‘š ) gcd ( ๐น โ€˜ ๐‘› ) ) = 1 โˆง โˆ€ ๐‘š โˆˆ ๐‘ฆ ( ๐น โ€˜ ๐‘š ) โˆฅ ๐พ ) ) โ†’ โˆ ๐‘š โˆˆ ๐‘ฆ ( ๐น โ€˜ ๐‘š ) โˆฅ ๐พ ) ) โˆง ( ( ( ๐‘ฆ โˆช { ๐‘ง } ) โІ โ„• โˆง ( ๐พ โˆˆ โ„• โˆง ๐น : โ„• โŸถ โ„• ) ) โˆง ( โˆ€ ๐‘š โˆˆ ( ๐‘ฆ โˆช { ๐‘ง } ) โˆ€ ๐‘› โˆˆ ( ( ๐‘ฆ โˆช { ๐‘ง } ) โˆ– { ๐‘š } ) ( ( ๐น โ€˜ ๐‘š ) gcd ( ๐น โ€˜ ๐‘› ) ) = 1 โˆง โˆ€ ๐‘š โˆˆ ( ๐‘ฆ โˆช { ๐‘ง } ) ( ๐น โ€˜ ๐‘š ) โˆฅ ๐พ ) ) ) โ†’ โˆ ๐‘š โˆˆ ๐‘ฆ ( ๐น โ€˜ ๐‘š ) โˆˆ โ„• )
40 39 nnzd โŠข ( ( ( ( ๐‘ฆ โˆˆ Fin โˆง ยฌ ๐‘ง โˆˆ ๐‘ฆ ) โˆง ( ( ( ๐‘ฆ โІ โ„• โˆง ( ๐พ โˆˆ โ„• โˆง ๐น : โ„• โŸถ โ„• ) ) โˆง ( โˆ€ ๐‘š โˆˆ ๐‘ฆ โˆ€ ๐‘› โˆˆ ( ๐‘ฆ โˆ– { ๐‘š } ) ( ( ๐น โ€˜ ๐‘š ) gcd ( ๐น โ€˜ ๐‘› ) ) = 1 โˆง โˆ€ ๐‘š โˆˆ ๐‘ฆ ( ๐น โ€˜ ๐‘š ) โˆฅ ๐พ ) ) โ†’ โˆ ๐‘š โˆˆ ๐‘ฆ ( ๐น โ€˜ ๐‘š ) โˆฅ ๐พ ) ) โˆง ( ( ( ๐‘ฆ โˆช { ๐‘ง } ) โІ โ„• โˆง ( ๐พ โˆˆ โ„• โˆง ๐น : โ„• โŸถ โ„• ) ) โˆง ( โˆ€ ๐‘š โˆˆ ( ๐‘ฆ โˆช { ๐‘ง } ) โˆ€ ๐‘› โˆˆ ( ( ๐‘ฆ โˆช { ๐‘ง } ) โˆ– { ๐‘š } ) ( ( ๐น โ€˜ ๐‘š ) gcd ( ๐น โ€˜ ๐‘› ) ) = 1 โˆง โˆ€ ๐‘š โˆˆ ( ๐‘ฆ โˆช { ๐‘ง } ) ( ๐น โ€˜ ๐‘š ) โˆฅ ๐พ ) ) ) โ†’ โˆ ๐‘š โˆˆ ๐‘ฆ ( ๐น โ€˜ ๐‘š ) โˆˆ โ„ค )
41 28 10 ffvelcdmd โŠข ( ( ( ๐‘ฆ โˆช { ๐‘ง } ) โІ โ„• โˆง ( ๐พ โˆˆ โ„• โˆง ๐น : โ„• โŸถ โ„• ) ) โ†’ ( ๐น โ€˜ ๐‘ง ) โˆˆ โ„• )
42 41 nnzd โŠข ( ( ( ๐‘ฆ โˆช { ๐‘ง } ) โІ โ„• โˆง ( ๐พ โˆˆ โ„• โˆง ๐น : โ„• โŸถ โ„• ) ) โ†’ ( ๐น โ€˜ ๐‘ง ) โˆˆ โ„ค )
43 42 adantr โŠข ( ( ( ( ๐‘ฆ โˆช { ๐‘ง } ) โІ โ„• โˆง ( ๐พ โˆˆ โ„• โˆง ๐น : โ„• โŸถ โ„• ) ) โˆง ( โˆ€ ๐‘š โˆˆ ( ๐‘ฆ โˆช { ๐‘ง } ) โˆ€ ๐‘› โˆˆ ( ( ๐‘ฆ โˆช { ๐‘ง } ) โˆ– { ๐‘š } ) ( ( ๐น โ€˜ ๐‘š ) gcd ( ๐น โ€˜ ๐‘› ) ) = 1 โˆง โˆ€ ๐‘š โˆˆ ( ๐‘ฆ โˆช { ๐‘ง } ) ( ๐น โ€˜ ๐‘š ) โˆฅ ๐พ ) ) โ†’ ( ๐น โ€˜ ๐‘ง ) โˆˆ โ„ค )
44 43 adantl โŠข ( ( ( ( ๐‘ฆ โˆˆ Fin โˆง ยฌ ๐‘ง โˆˆ ๐‘ฆ ) โˆง ( ( ( ๐‘ฆ โІ โ„• โˆง ( ๐พ โˆˆ โ„• โˆง ๐น : โ„• โŸถ โ„• ) ) โˆง ( โˆ€ ๐‘š โˆˆ ๐‘ฆ โˆ€ ๐‘› โˆˆ ( ๐‘ฆ โˆ– { ๐‘š } ) ( ( ๐น โ€˜ ๐‘š ) gcd ( ๐น โ€˜ ๐‘› ) ) = 1 โˆง โˆ€ ๐‘š โˆˆ ๐‘ฆ ( ๐น โ€˜ ๐‘š ) โˆฅ ๐พ ) ) โ†’ โˆ ๐‘š โˆˆ ๐‘ฆ ( ๐น โ€˜ ๐‘š ) โˆฅ ๐พ ) ) โˆง ( ( ( ๐‘ฆ โˆช { ๐‘ง } ) โІ โ„• โˆง ( ๐พ โˆˆ โ„• โˆง ๐น : โ„• โŸถ โ„• ) ) โˆง ( โˆ€ ๐‘š โˆˆ ( ๐‘ฆ โˆช { ๐‘ง } ) โˆ€ ๐‘› โˆˆ ( ( ๐‘ฆ โˆช { ๐‘ง } ) โˆ– { ๐‘š } ) ( ( ๐น โ€˜ ๐‘š ) gcd ( ๐น โ€˜ ๐‘› ) ) = 1 โˆง โˆ€ ๐‘š โˆˆ ( ๐‘ฆ โˆช { ๐‘ง } ) ( ๐น โ€˜ ๐‘š ) โˆฅ ๐พ ) ) ) โ†’ ( ๐น โ€˜ ๐‘ง ) โˆˆ โ„ค )
45 nnz โŠข ( ๐พ โˆˆ โ„• โ†’ ๐พ โˆˆ โ„ค )
46 45 adantr โŠข ( ( ๐พ โˆˆ โ„• โˆง ๐น : โ„• โŸถ โ„• ) โ†’ ๐พ โˆˆ โ„ค )
47 46 adantl โŠข ( ( ( ๐‘ฆ โˆช { ๐‘ง } ) โІ โ„• โˆง ( ๐พ โˆˆ โ„• โˆง ๐น : โ„• โŸถ โ„• ) ) โ†’ ๐พ โˆˆ โ„ค )
48 47 adantr โŠข ( ( ( ( ๐‘ฆ โˆช { ๐‘ง } ) โІ โ„• โˆง ( ๐พ โˆˆ โ„• โˆง ๐น : โ„• โŸถ โ„• ) ) โˆง ( โˆ€ ๐‘š โˆˆ ( ๐‘ฆ โˆช { ๐‘ง } ) โˆ€ ๐‘› โˆˆ ( ( ๐‘ฆ โˆช { ๐‘ง } ) โˆ– { ๐‘š } ) ( ( ๐น โ€˜ ๐‘š ) gcd ( ๐น โ€˜ ๐‘› ) ) = 1 โˆง โˆ€ ๐‘š โˆˆ ( ๐‘ฆ โˆช { ๐‘ง } ) ( ๐น โ€˜ ๐‘š ) โˆฅ ๐พ ) ) โ†’ ๐พ โˆˆ โ„ค )
49 48 adantl โŠข ( ( ( ( ๐‘ฆ โˆˆ Fin โˆง ยฌ ๐‘ง โˆˆ ๐‘ฆ ) โˆง ( ( ( ๐‘ฆ โІ โ„• โˆง ( ๐พ โˆˆ โ„• โˆง ๐น : โ„• โŸถ โ„• ) ) โˆง ( โˆ€ ๐‘š โˆˆ ๐‘ฆ โˆ€ ๐‘› โˆˆ ( ๐‘ฆ โˆ– { ๐‘š } ) ( ( ๐น โ€˜ ๐‘š ) gcd ( ๐น โ€˜ ๐‘› ) ) = 1 โˆง โˆ€ ๐‘š โˆˆ ๐‘ฆ ( ๐น โ€˜ ๐‘š ) โˆฅ ๐พ ) ) โ†’ โˆ ๐‘š โˆˆ ๐‘ฆ ( ๐น โ€˜ ๐‘š ) โˆฅ ๐พ ) ) โˆง ( ( ( ๐‘ฆ โˆช { ๐‘ง } ) โІ โ„• โˆง ( ๐พ โˆˆ โ„• โˆง ๐น : โ„• โŸถ โ„• ) ) โˆง ( โˆ€ ๐‘š โˆˆ ( ๐‘ฆ โˆช { ๐‘ง } ) โˆ€ ๐‘› โˆˆ ( ( ๐‘ฆ โˆช { ๐‘ง } ) โˆ– { ๐‘š } ) ( ( ๐น โ€˜ ๐‘š ) gcd ( ๐น โ€˜ ๐‘› ) ) = 1 โˆง โˆ€ ๐‘š โˆˆ ( ๐‘ฆ โˆช { ๐‘ง } ) ( ๐น โ€˜ ๐‘š ) โˆฅ ๐พ ) ) ) โ†’ ๐พ โˆˆ โ„ค )
50 40 44 49 3jca โŠข ( ( ( ( ๐‘ฆ โˆˆ Fin โˆง ยฌ ๐‘ง โˆˆ ๐‘ฆ ) โˆง ( ( ( ๐‘ฆ โІ โ„• โˆง ( ๐พ โˆˆ โ„• โˆง ๐น : โ„• โŸถ โ„• ) ) โˆง ( โˆ€ ๐‘š โˆˆ ๐‘ฆ โˆ€ ๐‘› โˆˆ ( ๐‘ฆ โˆ– { ๐‘š } ) ( ( ๐น โ€˜ ๐‘š ) gcd ( ๐น โ€˜ ๐‘› ) ) = 1 โˆง โˆ€ ๐‘š โˆˆ ๐‘ฆ ( ๐น โ€˜ ๐‘š ) โˆฅ ๐พ ) ) โ†’ โˆ ๐‘š โˆˆ ๐‘ฆ ( ๐น โ€˜ ๐‘š ) โˆฅ ๐พ ) ) โˆง ( ( ( ๐‘ฆ โˆช { ๐‘ง } ) โІ โ„• โˆง ( ๐พ โˆˆ โ„• โˆง ๐น : โ„• โŸถ โ„• ) ) โˆง ( โˆ€ ๐‘š โˆˆ ( ๐‘ฆ โˆช { ๐‘ง } ) โˆ€ ๐‘› โˆˆ ( ( ๐‘ฆ โˆช { ๐‘ง } ) โˆ– { ๐‘š } ) ( ( ๐น โ€˜ ๐‘š ) gcd ( ๐น โ€˜ ๐‘› ) ) = 1 โˆง โˆ€ ๐‘š โˆˆ ( ๐‘ฆ โˆช { ๐‘ง } ) ( ๐น โ€˜ ๐‘š ) โˆฅ ๐พ ) ) ) โ†’ ( โˆ ๐‘š โˆˆ ๐‘ฆ ( ๐น โ€˜ ๐‘š ) โˆˆ โ„ค โˆง ( ๐น โ€˜ ๐‘ง ) โˆˆ โ„ค โˆง ๐พ โˆˆ โ„ค ) )
51 simpl โŠข ( ( ๐น : โ„• โŸถ โ„• โˆง ( ๐‘ฆ โˆช { ๐‘ง } ) โІ โ„• ) โ†’ ๐น : โ„• โŸถ โ„• )
52 9 adantl โŠข ( ( ๐น : โ„• โŸถ โ„• โˆง ( ๐‘ฆ โˆช { ๐‘ง } ) โІ โ„• ) โ†’ ๐‘ง โˆˆ โ„• )
53 51 52 ffvelcdmd โŠข ( ( ๐น : โ„• โŸถ โ„• โˆง ( ๐‘ฆ โˆช { ๐‘ง } ) โІ โ„• ) โ†’ ( ๐น โ€˜ ๐‘ง ) โˆˆ โ„• )
54 53 ex โŠข ( ๐น : โ„• โŸถ โ„• โ†’ ( ( ๐‘ฆ โˆช { ๐‘ง } ) โІ โ„• โ†’ ( ๐น โ€˜ ๐‘ง ) โˆˆ โ„• ) )
55 54 adantl โŠข ( ( ๐พ โˆˆ โ„• โˆง ๐น : โ„• โŸถ โ„• ) โ†’ ( ( ๐‘ฆ โˆช { ๐‘ง } ) โІ โ„• โ†’ ( ๐น โ€˜ ๐‘ง ) โˆˆ โ„• ) )
56 55 impcom โŠข ( ( ( ๐‘ฆ โˆช { ๐‘ง } ) โІ โ„• โˆง ( ๐พ โˆˆ โ„• โˆง ๐น : โ„• โŸถ โ„• ) ) โ†’ ( ๐น โ€˜ ๐‘ง ) โˆˆ โ„• )
57 56 adantl โŠข ( ( ( ๐‘ฆ โˆˆ Fin โˆง ยฌ ๐‘ง โˆˆ ๐‘ฆ ) โˆง ( ( ๐‘ฆ โˆช { ๐‘ง } ) โІ โ„• โˆง ( ๐พ โˆˆ โ„• โˆง ๐น : โ„• โŸถ โ„• ) ) ) โ†’ ( ๐น โ€˜ ๐‘ง ) โˆˆ โ„• )
58 3 18 57 3jca โŠข ( ( ( ๐‘ฆ โˆˆ Fin โˆง ยฌ ๐‘ง โˆˆ ๐‘ฆ ) โˆง ( ( ๐‘ฆ โˆช { ๐‘ง } ) โІ โ„• โˆง ( ๐พ โˆˆ โ„• โˆง ๐น : โ„• โŸถ โ„• ) ) ) โ†’ ( ๐‘ฆ โˆˆ Fin โˆง ๐‘ฆ โІ โ„• โˆง ( ๐น โ€˜ ๐‘ง ) โˆˆ โ„• ) )
59 58 adantr โŠข ( ( ( ( ๐‘ฆ โˆˆ Fin โˆง ยฌ ๐‘ง โˆˆ ๐‘ฆ ) โˆง ( ( ๐‘ฆ โˆช { ๐‘ง } ) โІ โ„• โˆง ( ๐พ โˆˆ โ„• โˆง ๐น : โ„• โŸถ โ„• ) ) ) โˆง โˆ€ ๐‘š โˆˆ ( ๐‘ฆ โˆช { ๐‘ง } ) โˆ€ ๐‘› โˆˆ ( ( ๐‘ฆ โˆช { ๐‘ง } ) โˆ– { ๐‘š } ) ( ( ๐น โ€˜ ๐‘š ) gcd ( ๐น โ€˜ ๐‘› ) ) = 1 ) โ†’ ( ๐‘ฆ โˆˆ Fin โˆง ๐‘ฆ โІ โ„• โˆง ( ๐น โ€˜ ๐‘ง ) โˆˆ โ„• ) )
60 13 adantr โŠข ( ( ( ( ๐‘ฆ โˆˆ Fin โˆง ยฌ ๐‘ง โˆˆ ๐‘ฆ ) โˆง ( ( ๐‘ฆ โˆช { ๐‘ง } ) โІ โ„• โˆง ( ๐พ โˆˆ โ„• โˆง ๐น : โ„• โŸถ โ„• ) ) ) โˆง โˆ€ ๐‘š โˆˆ ( ๐‘ฆ โˆช { ๐‘ง } ) โˆ€ ๐‘› โˆˆ ( ( ๐‘ฆ โˆช { ๐‘ง } ) โˆ– { ๐‘š } ) ( ( ๐น โ€˜ ๐‘š ) gcd ( ๐น โ€˜ ๐‘› ) ) = 1 ) โ†’ ๐น : โ„• โŸถ โ„• )
61 vsnid โŠข ๐‘ง โˆˆ { ๐‘ง }
62 61 olci โŠข ( ๐‘ง โˆˆ ๐‘ฆ โˆจ ๐‘ง โˆˆ { ๐‘ง } )
63 elun โŠข ( ๐‘ง โˆˆ ( ๐‘ฆ โˆช { ๐‘ง } ) โ†” ( ๐‘ง โˆˆ ๐‘ฆ โˆจ ๐‘ง โˆˆ { ๐‘ง } ) )
64 62 63 mpbir โŠข ๐‘ง โˆˆ ( ๐‘ฆ โˆช { ๐‘ง } )
65 64 a1i โŠข ( ( ( ( ๐‘ฆ โˆˆ Fin โˆง ยฌ ๐‘ง โˆˆ ๐‘ฆ ) โˆง ( ( ๐‘ฆ โˆช { ๐‘ง } ) โІ โ„• โˆง ( ๐พ โˆˆ โ„• โˆง ๐น : โ„• โŸถ โ„• ) ) ) โˆง ๐‘š โˆˆ ๐‘ฆ ) โ†’ ๐‘ง โˆˆ ( ๐‘ฆ โˆช { ๐‘ง } ) )
66 snssi โŠข ( ๐‘š โˆˆ ๐‘ฆ โ†’ { ๐‘š } โІ ๐‘ฆ )
67 66 ssneld โŠข ( ๐‘š โˆˆ ๐‘ฆ โ†’ ( ยฌ ๐‘ง โˆˆ ๐‘ฆ โ†’ ยฌ ๐‘ง โˆˆ { ๐‘š } ) )
68 67 com12 โŠข ( ยฌ ๐‘ง โˆˆ ๐‘ฆ โ†’ ( ๐‘š โˆˆ ๐‘ฆ โ†’ ยฌ ๐‘ง โˆˆ { ๐‘š } ) )
69 68 adantl โŠข ( ( ๐‘ฆ โˆˆ Fin โˆง ยฌ ๐‘ง โˆˆ ๐‘ฆ ) โ†’ ( ๐‘š โˆˆ ๐‘ฆ โ†’ ยฌ ๐‘ง โˆˆ { ๐‘š } ) )
70 69 adantr โŠข ( ( ( ๐‘ฆ โˆˆ Fin โˆง ยฌ ๐‘ง โˆˆ ๐‘ฆ ) โˆง ( ( ๐‘ฆ โˆช { ๐‘ง } ) โІ โ„• โˆง ( ๐พ โˆˆ โ„• โˆง ๐น : โ„• โŸถ โ„• ) ) ) โ†’ ( ๐‘š โˆˆ ๐‘ฆ โ†’ ยฌ ๐‘ง โˆˆ { ๐‘š } ) )
71 70 imp โŠข ( ( ( ( ๐‘ฆ โˆˆ Fin โˆง ยฌ ๐‘ง โˆˆ ๐‘ฆ ) โˆง ( ( ๐‘ฆ โˆช { ๐‘ง } ) โІ โ„• โˆง ( ๐พ โˆˆ โ„• โˆง ๐น : โ„• โŸถ โ„• ) ) ) โˆง ๐‘š โˆˆ ๐‘ฆ ) โ†’ ยฌ ๐‘ง โˆˆ { ๐‘š } )
72 65 71 eldifd โŠข ( ( ( ( ๐‘ฆ โˆˆ Fin โˆง ยฌ ๐‘ง โˆˆ ๐‘ฆ ) โˆง ( ( ๐‘ฆ โˆช { ๐‘ง } ) โІ โ„• โˆง ( ๐พ โˆˆ โ„• โˆง ๐น : โ„• โŸถ โ„• ) ) ) โˆง ๐‘š โˆˆ ๐‘ฆ ) โ†’ ๐‘ง โˆˆ ( ( ๐‘ฆ โˆช { ๐‘ง } ) โˆ– { ๐‘š } ) )
73 fveq2 โŠข ( ๐‘› = ๐‘ง โ†’ ( ๐น โ€˜ ๐‘› ) = ( ๐น โ€˜ ๐‘ง ) )
74 73 oveq2d โŠข ( ๐‘› = ๐‘ง โ†’ ( ( ๐น โ€˜ ๐‘š ) gcd ( ๐น โ€˜ ๐‘› ) ) = ( ( ๐น โ€˜ ๐‘š ) gcd ( ๐น โ€˜ ๐‘ง ) ) )
75 74 eqeq1d โŠข ( ๐‘› = ๐‘ง โ†’ ( ( ( ๐น โ€˜ ๐‘š ) gcd ( ๐น โ€˜ ๐‘› ) ) = 1 โ†” ( ( ๐น โ€˜ ๐‘š ) gcd ( ๐น โ€˜ ๐‘ง ) ) = 1 ) )
76 75 rspcv โŠข ( ๐‘ง โˆˆ ( ( ๐‘ฆ โˆช { ๐‘ง } ) โˆ– { ๐‘š } ) โ†’ ( โˆ€ ๐‘› โˆˆ ( ( ๐‘ฆ โˆช { ๐‘ง } ) โˆ– { ๐‘š } ) ( ( ๐น โ€˜ ๐‘š ) gcd ( ๐น โ€˜ ๐‘› ) ) = 1 โ†’ ( ( ๐น โ€˜ ๐‘š ) gcd ( ๐น โ€˜ ๐‘ง ) ) = 1 ) )
77 72 76 syl โŠข ( ( ( ( ๐‘ฆ โˆˆ Fin โˆง ยฌ ๐‘ง โˆˆ ๐‘ฆ ) โˆง ( ( ๐‘ฆ โˆช { ๐‘ง } ) โІ โ„• โˆง ( ๐พ โˆˆ โ„• โˆง ๐น : โ„• โŸถ โ„• ) ) ) โˆง ๐‘š โˆˆ ๐‘ฆ ) โ†’ ( โˆ€ ๐‘› โˆˆ ( ( ๐‘ฆ โˆช { ๐‘ง } ) โˆ– { ๐‘š } ) ( ( ๐น โ€˜ ๐‘š ) gcd ( ๐น โ€˜ ๐‘› ) ) = 1 โ†’ ( ( ๐น โ€˜ ๐‘š ) gcd ( ๐น โ€˜ ๐‘ง ) ) = 1 ) )
78 77 ralimdva โŠข ( ( ( ๐‘ฆ โˆˆ Fin โˆง ยฌ ๐‘ง โˆˆ ๐‘ฆ ) โˆง ( ( ๐‘ฆ โˆช { ๐‘ง } ) โІ โ„• โˆง ( ๐พ โˆˆ โ„• โˆง ๐น : โ„• โŸถ โ„• ) ) ) โ†’ ( โˆ€ ๐‘š โˆˆ ๐‘ฆ โˆ€ ๐‘› โˆˆ ( ( ๐‘ฆ โˆช { ๐‘ง } ) โˆ– { ๐‘š } ) ( ( ๐น โ€˜ ๐‘š ) gcd ( ๐น โ€˜ ๐‘› ) ) = 1 โ†’ โˆ€ ๐‘š โˆˆ ๐‘ฆ ( ( ๐น โ€˜ ๐‘š ) gcd ( ๐น โ€˜ ๐‘ง ) ) = 1 ) )
79 ralunb โŠข ( โˆ€ ๐‘š โˆˆ ( ๐‘ฆ โˆช { ๐‘ง } ) โˆ€ ๐‘› โˆˆ ( ( ๐‘ฆ โˆช { ๐‘ง } ) โˆ– { ๐‘š } ) ( ( ๐น โ€˜ ๐‘š ) gcd ( ๐น โ€˜ ๐‘› ) ) = 1 โ†” ( โˆ€ ๐‘š โˆˆ ๐‘ฆ โˆ€ ๐‘› โˆˆ ( ( ๐‘ฆ โˆช { ๐‘ง } ) โˆ– { ๐‘š } ) ( ( ๐น โ€˜ ๐‘š ) gcd ( ๐น โ€˜ ๐‘› ) ) = 1 โˆง โˆ€ ๐‘š โˆˆ { ๐‘ง } โˆ€ ๐‘› โˆˆ ( ( ๐‘ฆ โˆช { ๐‘ง } ) โˆ– { ๐‘š } ) ( ( ๐น โ€˜ ๐‘š ) gcd ( ๐น โ€˜ ๐‘› ) ) = 1 ) )
80 79 simplbi โŠข ( โˆ€ ๐‘š โˆˆ ( ๐‘ฆ โˆช { ๐‘ง } ) โˆ€ ๐‘› โˆˆ ( ( ๐‘ฆ โˆช { ๐‘ง } ) โˆ– { ๐‘š } ) ( ( ๐น โ€˜ ๐‘š ) gcd ( ๐น โ€˜ ๐‘› ) ) = 1 โ†’ โˆ€ ๐‘š โˆˆ ๐‘ฆ โˆ€ ๐‘› โˆˆ ( ( ๐‘ฆ โˆช { ๐‘ง } ) โˆ– { ๐‘š } ) ( ( ๐น โ€˜ ๐‘š ) gcd ( ๐น โ€˜ ๐‘› ) ) = 1 )
81 78 80 impel โŠข ( ( ( ( ๐‘ฆ โˆˆ Fin โˆง ยฌ ๐‘ง โˆˆ ๐‘ฆ ) โˆง ( ( ๐‘ฆ โˆช { ๐‘ง } ) โІ โ„• โˆง ( ๐พ โˆˆ โ„• โˆง ๐น : โ„• โŸถ โ„• ) ) ) โˆง โˆ€ ๐‘š โˆˆ ( ๐‘ฆ โˆช { ๐‘ง } ) โˆ€ ๐‘› โˆˆ ( ( ๐‘ฆ โˆช { ๐‘ง } ) โˆ– { ๐‘š } ) ( ( ๐น โ€˜ ๐‘š ) gcd ( ๐น โ€˜ ๐‘› ) ) = 1 ) โ†’ โˆ€ ๐‘š โˆˆ ๐‘ฆ ( ( ๐น โ€˜ ๐‘š ) gcd ( ๐น โ€˜ ๐‘ง ) ) = 1 )
82 raldifb โŠข ( โˆ€ ๐‘› โˆˆ ( ๐‘ฆ โˆช { ๐‘ง } ) ( ๐‘› โˆ‰ { ๐‘š } โ†’ ( ( ๐น โ€˜ ๐‘š ) gcd ( ๐น โ€˜ ๐‘› ) ) = 1 ) โ†” โˆ€ ๐‘› โˆˆ ( ( ๐‘ฆ โˆช { ๐‘ง } ) โˆ– { ๐‘š } ) ( ( ๐น โ€˜ ๐‘š ) gcd ( ๐น โ€˜ ๐‘› ) ) = 1 )
83 ralunb โŠข ( โˆ€ ๐‘› โˆˆ ( ๐‘ฆ โˆช { ๐‘ง } ) ( ๐‘› โˆ‰ { ๐‘š } โ†’ ( ( ๐น โ€˜ ๐‘š ) gcd ( ๐น โ€˜ ๐‘› ) ) = 1 ) โ†” ( โˆ€ ๐‘› โˆˆ ๐‘ฆ ( ๐‘› โˆ‰ { ๐‘š } โ†’ ( ( ๐น โ€˜ ๐‘š ) gcd ( ๐น โ€˜ ๐‘› ) ) = 1 ) โˆง โˆ€ ๐‘› โˆˆ { ๐‘ง } ( ๐‘› โˆ‰ { ๐‘š } โ†’ ( ( ๐น โ€˜ ๐‘š ) gcd ( ๐น โ€˜ ๐‘› ) ) = 1 ) ) )
84 raldifb โŠข ( โˆ€ ๐‘› โˆˆ ๐‘ฆ ( ๐‘› โˆ‰ { ๐‘š } โ†’ ( ( ๐น โ€˜ ๐‘š ) gcd ( ๐น โ€˜ ๐‘› ) ) = 1 ) โ†” โˆ€ ๐‘› โˆˆ ( ๐‘ฆ โˆ– { ๐‘š } ) ( ( ๐น โ€˜ ๐‘š ) gcd ( ๐น โ€˜ ๐‘› ) ) = 1 )
85 84 biimpi โŠข ( โˆ€ ๐‘› โˆˆ ๐‘ฆ ( ๐‘› โˆ‰ { ๐‘š } โ†’ ( ( ๐น โ€˜ ๐‘š ) gcd ( ๐น โ€˜ ๐‘› ) ) = 1 ) โ†’ โˆ€ ๐‘› โˆˆ ( ๐‘ฆ โˆ– { ๐‘š } ) ( ( ๐น โ€˜ ๐‘š ) gcd ( ๐น โ€˜ ๐‘› ) ) = 1 )
86 85 adantr โŠข ( ( โˆ€ ๐‘› โˆˆ ๐‘ฆ ( ๐‘› โˆ‰ { ๐‘š } โ†’ ( ( ๐น โ€˜ ๐‘š ) gcd ( ๐น โ€˜ ๐‘› ) ) = 1 ) โˆง โˆ€ ๐‘› โˆˆ { ๐‘ง } ( ๐‘› โˆ‰ { ๐‘š } โ†’ ( ( ๐น โ€˜ ๐‘š ) gcd ( ๐น โ€˜ ๐‘› ) ) = 1 ) ) โ†’ โˆ€ ๐‘› โˆˆ ( ๐‘ฆ โˆ– { ๐‘š } ) ( ( ๐น โ€˜ ๐‘š ) gcd ( ๐น โ€˜ ๐‘› ) ) = 1 )
87 83 86 sylbi โŠข ( โˆ€ ๐‘› โˆˆ ( ๐‘ฆ โˆช { ๐‘ง } ) ( ๐‘› โˆ‰ { ๐‘š } โ†’ ( ( ๐น โ€˜ ๐‘š ) gcd ( ๐น โ€˜ ๐‘› ) ) = 1 ) โ†’ โˆ€ ๐‘› โˆˆ ( ๐‘ฆ โˆ– { ๐‘š } ) ( ( ๐น โ€˜ ๐‘š ) gcd ( ๐น โ€˜ ๐‘› ) ) = 1 )
88 82 87 sylbir โŠข ( โˆ€ ๐‘› โˆˆ ( ( ๐‘ฆ โˆช { ๐‘ง } ) โˆ– { ๐‘š } ) ( ( ๐น โ€˜ ๐‘š ) gcd ( ๐น โ€˜ ๐‘› ) ) = 1 โ†’ โˆ€ ๐‘› โˆˆ ( ๐‘ฆ โˆ– { ๐‘š } ) ( ( ๐น โ€˜ ๐‘š ) gcd ( ๐น โ€˜ ๐‘› ) ) = 1 )
89 88 ralimi โŠข ( โˆ€ ๐‘š โˆˆ ๐‘ฆ โˆ€ ๐‘› โˆˆ ( ( ๐‘ฆ โˆช { ๐‘ง } ) โˆ– { ๐‘š } ) ( ( ๐น โ€˜ ๐‘š ) gcd ( ๐น โ€˜ ๐‘› ) ) = 1 โ†’ โˆ€ ๐‘š โˆˆ ๐‘ฆ โˆ€ ๐‘› โˆˆ ( ๐‘ฆ โˆ– { ๐‘š } ) ( ( ๐น โ€˜ ๐‘š ) gcd ( ๐น โ€˜ ๐‘› ) ) = 1 )
90 89 adantr โŠข ( ( โˆ€ ๐‘š โˆˆ ๐‘ฆ โˆ€ ๐‘› โˆˆ ( ( ๐‘ฆ โˆช { ๐‘ง } ) โˆ– { ๐‘š } ) ( ( ๐น โ€˜ ๐‘š ) gcd ( ๐น โ€˜ ๐‘› ) ) = 1 โˆง โˆ€ ๐‘š โˆˆ { ๐‘ง } โˆ€ ๐‘› โˆˆ ( ( ๐‘ฆ โˆช { ๐‘ง } ) โˆ– { ๐‘š } ) ( ( ๐น โ€˜ ๐‘š ) gcd ( ๐น โ€˜ ๐‘› ) ) = 1 ) โ†’ โˆ€ ๐‘š โˆˆ ๐‘ฆ โˆ€ ๐‘› โˆˆ ( ๐‘ฆ โˆ– { ๐‘š } ) ( ( ๐น โ€˜ ๐‘š ) gcd ( ๐น โ€˜ ๐‘› ) ) = 1 )
91 79 90 sylbi โŠข ( โˆ€ ๐‘š โˆˆ ( ๐‘ฆ โˆช { ๐‘ง } ) โˆ€ ๐‘› โˆˆ ( ( ๐‘ฆ โˆช { ๐‘ง } ) โˆ– { ๐‘š } ) ( ( ๐น โ€˜ ๐‘š ) gcd ( ๐น โ€˜ ๐‘› ) ) = 1 โ†’ โˆ€ ๐‘š โˆˆ ๐‘ฆ โˆ€ ๐‘› โˆˆ ( ๐‘ฆ โˆ– { ๐‘š } ) ( ( ๐น โ€˜ ๐‘š ) gcd ( ๐น โ€˜ ๐‘› ) ) = 1 )
92 91 adantl โŠข ( ( ( ( ๐‘ฆ โˆˆ Fin โˆง ยฌ ๐‘ง โˆˆ ๐‘ฆ ) โˆง ( ( ๐‘ฆ โˆช { ๐‘ง } ) โІ โ„• โˆง ( ๐พ โˆˆ โ„• โˆง ๐น : โ„• โŸถ โ„• ) ) ) โˆง โˆ€ ๐‘š โˆˆ ( ๐‘ฆ โˆช { ๐‘ง } ) โˆ€ ๐‘› โˆˆ ( ( ๐‘ฆ โˆช { ๐‘ง } ) โˆ– { ๐‘š } ) ( ( ๐น โ€˜ ๐‘š ) gcd ( ๐น โ€˜ ๐‘› ) ) = 1 ) โ†’ โˆ€ ๐‘š โˆˆ ๐‘ฆ โˆ€ ๐‘› โˆˆ ( ๐‘ฆ โˆ– { ๐‘š } ) ( ( ๐น โ€˜ ๐‘š ) gcd ( ๐น โ€˜ ๐‘› ) ) = 1 )
93 coprmprod โŠข ( ( ( ๐‘ฆ โˆˆ Fin โˆง ๐‘ฆ โІ โ„• โˆง ( ๐น โ€˜ ๐‘ง ) โˆˆ โ„• ) โˆง ๐น : โ„• โŸถ โ„• โˆง โˆ€ ๐‘š โˆˆ ๐‘ฆ ( ( ๐น โ€˜ ๐‘š ) gcd ( ๐น โ€˜ ๐‘ง ) ) = 1 ) โ†’ ( โˆ€ ๐‘š โˆˆ ๐‘ฆ โˆ€ ๐‘› โˆˆ ( ๐‘ฆ โˆ– { ๐‘š } ) ( ( ๐น โ€˜ ๐‘š ) gcd ( ๐น โ€˜ ๐‘› ) ) = 1 โ†’ ( โˆ ๐‘š โˆˆ ๐‘ฆ ( ๐น โ€˜ ๐‘š ) gcd ( ๐น โ€˜ ๐‘ง ) ) = 1 ) )
94 93 imp โŠข ( ( ( ( ๐‘ฆ โˆˆ Fin โˆง ๐‘ฆ โІ โ„• โˆง ( ๐น โ€˜ ๐‘ง ) โˆˆ โ„• ) โˆง ๐น : โ„• โŸถ โ„• โˆง โˆ€ ๐‘š โˆˆ ๐‘ฆ ( ( ๐น โ€˜ ๐‘š ) gcd ( ๐น โ€˜ ๐‘ง ) ) = 1 ) โˆง โˆ€ ๐‘š โˆˆ ๐‘ฆ โˆ€ ๐‘› โˆˆ ( ๐‘ฆ โˆ– { ๐‘š } ) ( ( ๐น โ€˜ ๐‘š ) gcd ( ๐น โ€˜ ๐‘› ) ) = 1 ) โ†’ ( โˆ ๐‘š โˆˆ ๐‘ฆ ( ๐น โ€˜ ๐‘š ) gcd ( ๐น โ€˜ ๐‘ง ) ) = 1 )
95 59 60 81 92 94 syl31anc โŠข ( ( ( ( ๐‘ฆ โˆˆ Fin โˆง ยฌ ๐‘ง โˆˆ ๐‘ฆ ) โˆง ( ( ๐‘ฆ โˆช { ๐‘ง } ) โІ โ„• โˆง ( ๐พ โˆˆ โ„• โˆง ๐น : โ„• โŸถ โ„• ) ) ) โˆง โˆ€ ๐‘š โˆˆ ( ๐‘ฆ โˆช { ๐‘ง } ) โˆ€ ๐‘› โˆˆ ( ( ๐‘ฆ โˆช { ๐‘ง } ) โˆ– { ๐‘š } ) ( ( ๐น โ€˜ ๐‘š ) gcd ( ๐น โ€˜ ๐‘› ) ) = 1 ) โ†’ ( โˆ ๐‘š โˆˆ ๐‘ฆ ( ๐น โ€˜ ๐‘š ) gcd ( ๐น โ€˜ ๐‘ง ) ) = 1 )
96 95 ex โŠข ( ( ( ๐‘ฆ โˆˆ Fin โˆง ยฌ ๐‘ง โˆˆ ๐‘ฆ ) โˆง ( ( ๐‘ฆ โˆช { ๐‘ง } ) โІ โ„• โˆง ( ๐พ โˆˆ โ„• โˆง ๐น : โ„• โŸถ โ„• ) ) ) โ†’ ( โˆ€ ๐‘š โˆˆ ( ๐‘ฆ โˆช { ๐‘ง } ) โˆ€ ๐‘› โˆˆ ( ( ๐‘ฆ โˆช { ๐‘ง } ) โˆ– { ๐‘š } ) ( ( ๐น โ€˜ ๐‘š ) gcd ( ๐น โ€˜ ๐‘› ) ) = 1 โ†’ ( โˆ ๐‘š โˆˆ ๐‘ฆ ( ๐น โ€˜ ๐‘š ) gcd ( ๐น โ€˜ ๐‘ง ) ) = 1 ) )
97 96 adantrd โŠข ( ( ( ๐‘ฆ โˆˆ Fin โˆง ยฌ ๐‘ง โˆˆ ๐‘ฆ ) โˆง ( ( ๐‘ฆ โˆช { ๐‘ง } ) โІ โ„• โˆง ( ๐พ โˆˆ โ„• โˆง ๐น : โ„• โŸถ โ„• ) ) ) โ†’ ( ( โˆ€ ๐‘š โˆˆ ( ๐‘ฆ โˆช { ๐‘ง } ) โˆ€ ๐‘› โˆˆ ( ( ๐‘ฆ โˆช { ๐‘ง } ) โˆ– { ๐‘š } ) ( ( ๐น โ€˜ ๐‘š ) gcd ( ๐น โ€˜ ๐‘› ) ) = 1 โˆง โˆ€ ๐‘š โˆˆ ( ๐‘ฆ โˆช { ๐‘ง } ) ( ๐น โ€˜ ๐‘š ) โˆฅ ๐พ ) โ†’ ( โˆ ๐‘š โˆˆ ๐‘ฆ ( ๐น โ€˜ ๐‘š ) gcd ( ๐น โ€˜ ๐‘ง ) ) = 1 ) )
98 97 expimpd โŠข ( ( ๐‘ฆ โˆˆ Fin โˆง ยฌ ๐‘ง โˆˆ ๐‘ฆ ) โ†’ ( ( ( ( ๐‘ฆ โˆช { ๐‘ง } ) โІ โ„• โˆง ( ๐พ โˆˆ โ„• โˆง ๐น : โ„• โŸถ โ„• ) ) โˆง ( โˆ€ ๐‘š โˆˆ ( ๐‘ฆ โˆช { ๐‘ง } ) โˆ€ ๐‘› โˆˆ ( ( ๐‘ฆ โˆช { ๐‘ง } ) โˆ– { ๐‘š } ) ( ( ๐น โ€˜ ๐‘š ) gcd ( ๐น โ€˜ ๐‘› ) ) = 1 โˆง โˆ€ ๐‘š โˆˆ ( ๐‘ฆ โˆช { ๐‘ง } ) ( ๐น โ€˜ ๐‘š ) โˆฅ ๐พ ) ) โ†’ ( โˆ ๐‘š โˆˆ ๐‘ฆ ( ๐น โ€˜ ๐‘š ) gcd ( ๐น โ€˜ ๐‘ง ) ) = 1 ) )
99 98 adantr โŠข ( ( ( ๐‘ฆ โˆˆ Fin โˆง ยฌ ๐‘ง โˆˆ ๐‘ฆ ) โˆง ( ( ( ๐‘ฆ โІ โ„• โˆง ( ๐พ โˆˆ โ„• โˆง ๐น : โ„• โŸถ โ„• ) ) โˆง ( โˆ€ ๐‘š โˆˆ ๐‘ฆ โˆ€ ๐‘› โˆˆ ( ๐‘ฆ โˆ– { ๐‘š } ) ( ( ๐น โ€˜ ๐‘š ) gcd ( ๐น โ€˜ ๐‘› ) ) = 1 โˆง โˆ€ ๐‘š โˆˆ ๐‘ฆ ( ๐น โ€˜ ๐‘š ) โˆฅ ๐พ ) ) โ†’ โˆ ๐‘š โˆˆ ๐‘ฆ ( ๐น โ€˜ ๐‘š ) โˆฅ ๐พ ) ) โ†’ ( ( ( ( ๐‘ฆ โˆช { ๐‘ง } ) โІ โ„• โˆง ( ๐พ โˆˆ โ„• โˆง ๐น : โ„• โŸถ โ„• ) ) โˆง ( โˆ€ ๐‘š โˆˆ ( ๐‘ฆ โˆช { ๐‘ง } ) โˆ€ ๐‘› โˆˆ ( ( ๐‘ฆ โˆช { ๐‘ง } ) โˆ– { ๐‘š } ) ( ( ๐น โ€˜ ๐‘š ) gcd ( ๐น โ€˜ ๐‘› ) ) = 1 โˆง โˆ€ ๐‘š โˆˆ ( ๐‘ฆ โˆช { ๐‘ง } ) ( ๐น โ€˜ ๐‘š ) โˆฅ ๐พ ) ) โ†’ ( โˆ ๐‘š โˆˆ ๐‘ฆ ( ๐น โ€˜ ๐‘š ) gcd ( ๐น โ€˜ ๐‘ง ) ) = 1 ) )
100 99 imp โŠข ( ( ( ( ๐‘ฆ โˆˆ Fin โˆง ยฌ ๐‘ง โˆˆ ๐‘ฆ ) โˆง ( ( ( ๐‘ฆ โІ โ„• โˆง ( ๐พ โˆˆ โ„• โˆง ๐น : โ„• โŸถ โ„• ) ) โˆง ( โˆ€ ๐‘š โˆˆ ๐‘ฆ โˆ€ ๐‘› โˆˆ ( ๐‘ฆ โˆ– { ๐‘š } ) ( ( ๐น โ€˜ ๐‘š ) gcd ( ๐น โ€˜ ๐‘› ) ) = 1 โˆง โˆ€ ๐‘š โˆˆ ๐‘ฆ ( ๐น โ€˜ ๐‘š ) โˆฅ ๐พ ) ) โ†’ โˆ ๐‘š โˆˆ ๐‘ฆ ( ๐น โ€˜ ๐‘š ) โˆฅ ๐พ ) ) โˆง ( ( ( ๐‘ฆ โˆช { ๐‘ง } ) โІ โ„• โˆง ( ๐พ โˆˆ โ„• โˆง ๐น : โ„• โŸถ โ„• ) ) โˆง ( โˆ€ ๐‘š โˆˆ ( ๐‘ฆ โˆช { ๐‘ง } ) โˆ€ ๐‘› โˆˆ ( ( ๐‘ฆ โˆช { ๐‘ง } ) โˆ– { ๐‘š } ) ( ( ๐น โ€˜ ๐‘š ) gcd ( ๐น โ€˜ ๐‘› ) ) = 1 โˆง โˆ€ ๐‘š โˆˆ ( ๐‘ฆ โˆช { ๐‘ง } ) ( ๐น โ€˜ ๐‘š ) โˆฅ ๐พ ) ) ) โ†’ ( โˆ ๐‘š โˆˆ ๐‘ฆ ( ๐น โ€˜ ๐‘š ) gcd ( ๐น โ€˜ ๐‘ง ) ) = 1 )
101 83 simplbi โŠข ( โˆ€ ๐‘› โˆˆ ( ๐‘ฆ โˆช { ๐‘ง } ) ( ๐‘› โˆ‰ { ๐‘š } โ†’ ( ( ๐น โ€˜ ๐‘š ) gcd ( ๐น โ€˜ ๐‘› ) ) = 1 ) โ†’ โˆ€ ๐‘› โˆˆ ๐‘ฆ ( ๐‘› โˆ‰ { ๐‘š } โ†’ ( ( ๐น โ€˜ ๐‘š ) gcd ( ๐น โ€˜ ๐‘› ) ) = 1 ) )
102 82 101 sylbir โŠข ( โˆ€ ๐‘› โˆˆ ( ( ๐‘ฆ โˆช { ๐‘ง } ) โˆ– { ๐‘š } ) ( ( ๐น โ€˜ ๐‘š ) gcd ( ๐น โ€˜ ๐‘› ) ) = 1 โ†’ โˆ€ ๐‘› โˆˆ ๐‘ฆ ( ๐‘› โˆ‰ { ๐‘š } โ†’ ( ( ๐น โ€˜ ๐‘š ) gcd ( ๐น โ€˜ ๐‘› ) ) = 1 ) )
103 102 ralimi โŠข ( โˆ€ ๐‘š โˆˆ ๐‘ฆ โˆ€ ๐‘› โˆˆ ( ( ๐‘ฆ โˆช { ๐‘ง } ) โˆ– { ๐‘š } ) ( ( ๐น โ€˜ ๐‘š ) gcd ( ๐น โ€˜ ๐‘› ) ) = 1 โ†’ โˆ€ ๐‘š โˆˆ ๐‘ฆ โˆ€ ๐‘› โˆˆ ๐‘ฆ ( ๐‘› โˆ‰ { ๐‘š } โ†’ ( ( ๐น โ€˜ ๐‘š ) gcd ( ๐น โ€˜ ๐‘› ) ) = 1 ) )
104 103 adantr โŠข ( ( โˆ€ ๐‘š โˆˆ ๐‘ฆ โˆ€ ๐‘› โˆˆ ( ( ๐‘ฆ โˆช { ๐‘ง } ) โˆ– { ๐‘š } ) ( ( ๐น โ€˜ ๐‘š ) gcd ( ๐น โ€˜ ๐‘› ) ) = 1 โˆง โˆ€ ๐‘š โˆˆ { ๐‘ง } โˆ€ ๐‘› โˆˆ ( ( ๐‘ฆ โˆช { ๐‘ง } ) โˆ– { ๐‘š } ) ( ( ๐น โ€˜ ๐‘š ) gcd ( ๐น โ€˜ ๐‘› ) ) = 1 ) โ†’ โˆ€ ๐‘š โˆˆ ๐‘ฆ โˆ€ ๐‘› โˆˆ ๐‘ฆ ( ๐‘› โˆ‰ { ๐‘š } โ†’ ( ( ๐น โ€˜ ๐‘š ) gcd ( ๐น โ€˜ ๐‘› ) ) = 1 ) )
105 79 104 sylbi โŠข ( โˆ€ ๐‘š โˆˆ ( ๐‘ฆ โˆช { ๐‘ง } ) โˆ€ ๐‘› โˆˆ ( ( ๐‘ฆ โˆช { ๐‘ง } ) โˆ– { ๐‘š } ) ( ( ๐น โ€˜ ๐‘š ) gcd ( ๐น โ€˜ ๐‘› ) ) = 1 โ†’ โˆ€ ๐‘š โˆˆ ๐‘ฆ โˆ€ ๐‘› โˆˆ ๐‘ฆ ( ๐‘› โˆ‰ { ๐‘š } โ†’ ( ( ๐น โ€˜ ๐‘š ) gcd ( ๐น โ€˜ ๐‘› ) ) = 1 ) )
106 ralunb โŠข ( โˆ€ ๐‘š โˆˆ ( ๐‘ฆ โˆช { ๐‘ง } ) ( ๐น โ€˜ ๐‘š ) โˆฅ ๐พ โ†” ( โˆ€ ๐‘š โˆˆ ๐‘ฆ ( ๐น โ€˜ ๐‘š ) โˆฅ ๐พ โˆง โˆ€ ๐‘š โˆˆ { ๐‘ง } ( ๐น โ€˜ ๐‘š ) โˆฅ ๐พ ) )
107 106 simplbi โŠข ( โˆ€ ๐‘š โˆˆ ( ๐‘ฆ โˆช { ๐‘ง } ) ( ๐น โ€˜ ๐‘š ) โˆฅ ๐พ โ†’ โˆ€ ๐‘š โˆˆ ๐‘ฆ ( ๐น โ€˜ ๐‘š ) โˆฅ ๐พ )
108 84 ralbii โŠข ( โˆ€ ๐‘š โˆˆ ๐‘ฆ โˆ€ ๐‘› โˆˆ ๐‘ฆ ( ๐‘› โˆ‰ { ๐‘š } โ†’ ( ( ๐น โ€˜ ๐‘š ) gcd ( ๐น โ€˜ ๐‘› ) ) = 1 ) โ†” โˆ€ ๐‘š โˆˆ ๐‘ฆ โˆ€ ๐‘› โˆˆ ( ๐‘ฆ โˆ– { ๐‘š } ) ( ( ๐น โ€˜ ๐‘š ) gcd ( ๐น โ€˜ ๐‘› ) ) = 1 )
109 108 anbi1i โŠข ( ( โˆ€ ๐‘š โˆˆ ๐‘ฆ โˆ€ ๐‘› โˆˆ ๐‘ฆ ( ๐‘› โˆ‰ { ๐‘š } โ†’ ( ( ๐น โ€˜ ๐‘š ) gcd ( ๐น โ€˜ ๐‘› ) ) = 1 ) โˆง โˆ€ ๐‘š โˆˆ ๐‘ฆ ( ๐น โ€˜ ๐‘š ) โˆฅ ๐พ ) โ†” ( โˆ€ ๐‘š โˆˆ ๐‘ฆ โˆ€ ๐‘› โˆˆ ( ๐‘ฆ โˆ– { ๐‘š } ) ( ( ๐น โ€˜ ๐‘š ) gcd ( ๐น โ€˜ ๐‘› ) ) = 1 โˆง โˆ€ ๐‘š โˆˆ ๐‘ฆ ( ๐น โ€˜ ๐‘š ) โˆฅ ๐พ ) )
110 17 adantl โŠข ( ( ( ( ๐‘ฆ โˆˆ Fin โˆง ยฌ ๐‘ง โˆˆ ๐‘ฆ ) โˆง ( โˆ€ ๐‘š โˆˆ ๐‘ฆ โˆ€ ๐‘› โˆˆ ( ๐‘ฆ โˆ– { ๐‘š } ) ( ( ๐น โ€˜ ๐‘š ) gcd ( ๐น โ€˜ ๐‘› ) ) = 1 โˆง โˆ€ ๐‘š โˆˆ ๐‘ฆ ( ๐น โ€˜ ๐‘š ) โˆฅ ๐พ ) ) โˆง ( ( ๐‘ฆ โˆช { ๐‘ง } ) โІ โ„• โˆง ( ๐พ โˆˆ โ„• โˆง ๐น : โ„• โŸถ โ„• ) ) ) โ†’ ๐‘ฆ โІ โ„• )
111 simprrl โŠข ( ( ( ( ๐‘ฆ โˆˆ Fin โˆง ยฌ ๐‘ง โˆˆ ๐‘ฆ ) โˆง ( โˆ€ ๐‘š โˆˆ ๐‘ฆ โˆ€ ๐‘› โˆˆ ( ๐‘ฆ โˆ– { ๐‘š } ) ( ( ๐น โ€˜ ๐‘š ) gcd ( ๐น โ€˜ ๐‘› ) ) = 1 โˆง โˆ€ ๐‘š โˆˆ ๐‘ฆ ( ๐น โ€˜ ๐‘š ) โˆฅ ๐พ ) ) โˆง ( ( ๐‘ฆ โˆช { ๐‘ง } ) โІ โ„• โˆง ( ๐พ โˆˆ โ„• โˆง ๐น : โ„• โŸถ โ„• ) ) ) โ†’ ๐พ โˆˆ โ„• )
112 simprrr โŠข ( ( ( ( ๐‘ฆ โˆˆ Fin โˆง ยฌ ๐‘ง โˆˆ ๐‘ฆ ) โˆง ( โˆ€ ๐‘š โˆˆ ๐‘ฆ โˆ€ ๐‘› โˆˆ ( ๐‘ฆ โˆ– { ๐‘š } ) ( ( ๐น โ€˜ ๐‘š ) gcd ( ๐น โ€˜ ๐‘› ) ) = 1 โˆง โˆ€ ๐‘š โˆˆ ๐‘ฆ ( ๐น โ€˜ ๐‘š ) โˆฅ ๐พ ) ) โˆง ( ( ๐‘ฆ โˆช { ๐‘ง } ) โІ โ„• โˆง ( ๐พ โˆˆ โ„• โˆง ๐น : โ„• โŸถ โ„• ) ) ) โ†’ ๐น : โ„• โŸถ โ„• )
113 110 111 112 jca32 โŠข ( ( ( ( ๐‘ฆ โˆˆ Fin โˆง ยฌ ๐‘ง โˆˆ ๐‘ฆ ) โˆง ( โˆ€ ๐‘š โˆˆ ๐‘ฆ โˆ€ ๐‘› โˆˆ ( ๐‘ฆ โˆ– { ๐‘š } ) ( ( ๐น โ€˜ ๐‘š ) gcd ( ๐น โ€˜ ๐‘› ) ) = 1 โˆง โˆ€ ๐‘š โˆˆ ๐‘ฆ ( ๐น โ€˜ ๐‘š ) โˆฅ ๐พ ) ) โˆง ( ( ๐‘ฆ โˆช { ๐‘ง } ) โІ โ„• โˆง ( ๐พ โˆˆ โ„• โˆง ๐น : โ„• โŸถ โ„• ) ) ) โ†’ ( ๐‘ฆ โІ โ„• โˆง ( ๐พ โˆˆ โ„• โˆง ๐น : โ„• โŸถ โ„• ) ) )
114 simplr โŠข ( ( ( ( ๐‘ฆ โˆˆ Fin โˆง ยฌ ๐‘ง โˆˆ ๐‘ฆ ) โˆง ( โˆ€ ๐‘š โˆˆ ๐‘ฆ โˆ€ ๐‘› โˆˆ ( ๐‘ฆ โˆ– { ๐‘š } ) ( ( ๐น โ€˜ ๐‘š ) gcd ( ๐น โ€˜ ๐‘› ) ) = 1 โˆง โˆ€ ๐‘š โˆˆ ๐‘ฆ ( ๐น โ€˜ ๐‘š ) โˆฅ ๐พ ) ) โˆง ( ( ๐‘ฆ โˆช { ๐‘ง } ) โІ โ„• โˆง ( ๐พ โˆˆ โ„• โˆง ๐น : โ„• โŸถ โ„• ) ) ) โ†’ ( โˆ€ ๐‘š โˆˆ ๐‘ฆ โˆ€ ๐‘› โˆˆ ( ๐‘ฆ โˆ– { ๐‘š } ) ( ( ๐น โ€˜ ๐‘š ) gcd ( ๐น โ€˜ ๐‘› ) ) = 1 โˆง โˆ€ ๐‘š โˆˆ ๐‘ฆ ( ๐น โ€˜ ๐‘š ) โˆฅ ๐พ ) )
115 pm2.27 โŠข ( ( ( ๐‘ฆ โІ โ„• โˆง ( ๐พ โˆˆ โ„• โˆง ๐น : โ„• โŸถ โ„• ) ) โˆง ( โˆ€ ๐‘š โˆˆ ๐‘ฆ โˆ€ ๐‘› โˆˆ ( ๐‘ฆ โˆ– { ๐‘š } ) ( ( ๐น โ€˜ ๐‘š ) gcd ( ๐น โ€˜ ๐‘› ) ) = 1 โˆง โˆ€ ๐‘š โˆˆ ๐‘ฆ ( ๐น โ€˜ ๐‘š ) โˆฅ ๐พ ) ) โ†’ ( ( ( ( ๐‘ฆ โІ โ„• โˆง ( ๐พ โˆˆ โ„• โˆง ๐น : โ„• โŸถ โ„• ) ) โˆง ( โˆ€ ๐‘š โˆˆ ๐‘ฆ โˆ€ ๐‘› โˆˆ ( ๐‘ฆ โˆ– { ๐‘š } ) ( ( ๐น โ€˜ ๐‘š ) gcd ( ๐น โ€˜ ๐‘› ) ) = 1 โˆง โˆ€ ๐‘š โˆˆ ๐‘ฆ ( ๐น โ€˜ ๐‘š ) โˆฅ ๐พ ) ) โ†’ โˆ ๐‘š โˆˆ ๐‘ฆ ( ๐น โ€˜ ๐‘š ) โˆฅ ๐พ ) โ†’ โˆ ๐‘š โˆˆ ๐‘ฆ ( ๐น โ€˜ ๐‘š ) โˆฅ ๐พ ) )
116 113 114 115 syl2anc โŠข ( ( ( ( ๐‘ฆ โˆˆ Fin โˆง ยฌ ๐‘ง โˆˆ ๐‘ฆ ) โˆง ( โˆ€ ๐‘š โˆˆ ๐‘ฆ โˆ€ ๐‘› โˆˆ ( ๐‘ฆ โˆ– { ๐‘š } ) ( ( ๐น โ€˜ ๐‘š ) gcd ( ๐น โ€˜ ๐‘› ) ) = 1 โˆง โˆ€ ๐‘š โˆˆ ๐‘ฆ ( ๐น โ€˜ ๐‘š ) โˆฅ ๐พ ) ) โˆง ( ( ๐‘ฆ โˆช { ๐‘ง } ) โІ โ„• โˆง ( ๐พ โˆˆ โ„• โˆง ๐น : โ„• โŸถ โ„• ) ) ) โ†’ ( ( ( ( ๐‘ฆ โІ โ„• โˆง ( ๐พ โˆˆ โ„• โˆง ๐น : โ„• โŸถ โ„• ) ) โˆง ( โˆ€ ๐‘š โˆˆ ๐‘ฆ โˆ€ ๐‘› โˆˆ ( ๐‘ฆ โˆ– { ๐‘š } ) ( ( ๐น โ€˜ ๐‘š ) gcd ( ๐น โ€˜ ๐‘› ) ) = 1 โˆง โˆ€ ๐‘š โˆˆ ๐‘ฆ ( ๐น โ€˜ ๐‘š ) โˆฅ ๐พ ) ) โ†’ โˆ ๐‘š โˆˆ ๐‘ฆ ( ๐น โ€˜ ๐‘š ) โˆฅ ๐พ ) โ†’ โˆ ๐‘š โˆˆ ๐‘ฆ ( ๐น โ€˜ ๐‘š ) โˆฅ ๐พ ) )
117 116 exp31 โŠข ( ( ๐‘ฆ โˆˆ Fin โˆง ยฌ ๐‘ง โˆˆ ๐‘ฆ ) โ†’ ( ( โˆ€ ๐‘š โˆˆ ๐‘ฆ โˆ€ ๐‘› โˆˆ ( ๐‘ฆ โˆ– { ๐‘š } ) ( ( ๐น โ€˜ ๐‘š ) gcd ( ๐น โ€˜ ๐‘› ) ) = 1 โˆง โˆ€ ๐‘š โˆˆ ๐‘ฆ ( ๐น โ€˜ ๐‘š ) โˆฅ ๐พ ) โ†’ ( ( ( ๐‘ฆ โˆช { ๐‘ง } ) โІ โ„• โˆง ( ๐พ โˆˆ โ„• โˆง ๐น : โ„• โŸถ โ„• ) ) โ†’ ( ( ( ( ๐‘ฆ โІ โ„• โˆง ( ๐พ โˆˆ โ„• โˆง ๐น : โ„• โŸถ โ„• ) ) โˆง ( โˆ€ ๐‘š โˆˆ ๐‘ฆ โˆ€ ๐‘› โˆˆ ( ๐‘ฆ โˆ– { ๐‘š } ) ( ( ๐น โ€˜ ๐‘š ) gcd ( ๐น โ€˜ ๐‘› ) ) = 1 โˆง โˆ€ ๐‘š โˆˆ ๐‘ฆ ( ๐น โ€˜ ๐‘š ) โˆฅ ๐พ ) ) โ†’ โˆ ๐‘š โˆˆ ๐‘ฆ ( ๐น โ€˜ ๐‘š ) โˆฅ ๐พ ) โ†’ โˆ ๐‘š โˆˆ ๐‘ฆ ( ๐น โ€˜ ๐‘š ) โˆฅ ๐พ ) ) ) )
118 117 com24 โŠข ( ( ๐‘ฆ โˆˆ Fin โˆง ยฌ ๐‘ง โˆˆ ๐‘ฆ ) โ†’ ( ( ( ( ๐‘ฆ โІ โ„• โˆง ( ๐พ โˆˆ โ„• โˆง ๐น : โ„• โŸถ โ„• ) ) โˆง ( โˆ€ ๐‘š โˆˆ ๐‘ฆ โˆ€ ๐‘› โˆˆ ( ๐‘ฆ โˆ– { ๐‘š } ) ( ( ๐น โ€˜ ๐‘š ) gcd ( ๐น โ€˜ ๐‘› ) ) = 1 โˆง โˆ€ ๐‘š โˆˆ ๐‘ฆ ( ๐น โ€˜ ๐‘š ) โˆฅ ๐พ ) ) โ†’ โˆ ๐‘š โˆˆ ๐‘ฆ ( ๐น โ€˜ ๐‘š ) โˆฅ ๐พ ) โ†’ ( ( ( ๐‘ฆ โˆช { ๐‘ง } ) โІ โ„• โˆง ( ๐พ โˆˆ โ„• โˆง ๐น : โ„• โŸถ โ„• ) ) โ†’ ( ( โˆ€ ๐‘š โˆˆ ๐‘ฆ โˆ€ ๐‘› โˆˆ ( ๐‘ฆ โˆ– { ๐‘š } ) ( ( ๐น โ€˜ ๐‘š ) gcd ( ๐น โ€˜ ๐‘› ) ) = 1 โˆง โˆ€ ๐‘š โˆˆ ๐‘ฆ ( ๐น โ€˜ ๐‘š ) โˆฅ ๐พ ) โ†’ โˆ ๐‘š โˆˆ ๐‘ฆ ( ๐น โ€˜ ๐‘š ) โˆฅ ๐พ ) ) ) )
119 118 imp โŠข ( ( ( ๐‘ฆ โˆˆ Fin โˆง ยฌ ๐‘ง โˆˆ ๐‘ฆ ) โˆง ( ( ( ๐‘ฆ โІ โ„• โˆง ( ๐พ โˆˆ โ„• โˆง ๐น : โ„• โŸถ โ„• ) ) โˆง ( โˆ€ ๐‘š โˆˆ ๐‘ฆ โˆ€ ๐‘› โˆˆ ( ๐‘ฆ โˆ– { ๐‘š } ) ( ( ๐น โ€˜ ๐‘š ) gcd ( ๐น โ€˜ ๐‘› ) ) = 1 โˆง โˆ€ ๐‘š โˆˆ ๐‘ฆ ( ๐น โ€˜ ๐‘š ) โˆฅ ๐พ ) ) โ†’ โˆ ๐‘š โˆˆ ๐‘ฆ ( ๐น โ€˜ ๐‘š ) โˆฅ ๐พ ) ) โ†’ ( ( ( ๐‘ฆ โˆช { ๐‘ง } ) โІ โ„• โˆง ( ๐พ โˆˆ โ„• โˆง ๐น : โ„• โŸถ โ„• ) ) โ†’ ( ( โˆ€ ๐‘š โˆˆ ๐‘ฆ โˆ€ ๐‘› โˆˆ ( ๐‘ฆ โˆ– { ๐‘š } ) ( ( ๐น โ€˜ ๐‘š ) gcd ( ๐น โ€˜ ๐‘› ) ) = 1 โˆง โˆ€ ๐‘š โˆˆ ๐‘ฆ ( ๐น โ€˜ ๐‘š ) โˆฅ ๐พ ) โ†’ โˆ ๐‘š โˆˆ ๐‘ฆ ( ๐น โ€˜ ๐‘š ) โˆฅ ๐พ ) ) )
120 119 imp โŠข ( ( ( ( ๐‘ฆ โˆˆ Fin โˆง ยฌ ๐‘ง โˆˆ ๐‘ฆ ) โˆง ( ( ( ๐‘ฆ โІ โ„• โˆง ( ๐พ โˆˆ โ„• โˆง ๐น : โ„• โŸถ โ„• ) ) โˆง ( โˆ€ ๐‘š โˆˆ ๐‘ฆ โˆ€ ๐‘› โˆˆ ( ๐‘ฆ โˆ– { ๐‘š } ) ( ( ๐น โ€˜ ๐‘š ) gcd ( ๐น โ€˜ ๐‘› ) ) = 1 โˆง โˆ€ ๐‘š โˆˆ ๐‘ฆ ( ๐น โ€˜ ๐‘š ) โˆฅ ๐พ ) ) โ†’ โˆ ๐‘š โˆˆ ๐‘ฆ ( ๐น โ€˜ ๐‘š ) โˆฅ ๐พ ) ) โˆง ( ( ๐‘ฆ โˆช { ๐‘ง } ) โІ โ„• โˆง ( ๐พ โˆˆ โ„• โˆง ๐น : โ„• โŸถ โ„• ) ) ) โ†’ ( ( โˆ€ ๐‘š โˆˆ ๐‘ฆ โˆ€ ๐‘› โˆˆ ( ๐‘ฆ โˆ– { ๐‘š } ) ( ( ๐น โ€˜ ๐‘š ) gcd ( ๐น โ€˜ ๐‘› ) ) = 1 โˆง โˆ€ ๐‘š โˆˆ ๐‘ฆ ( ๐น โ€˜ ๐‘š ) โˆฅ ๐พ ) โ†’ โˆ ๐‘š โˆˆ ๐‘ฆ ( ๐น โ€˜ ๐‘š ) โˆฅ ๐พ ) )
121 109 120 biimtrid โŠข ( ( ( ( ๐‘ฆ โˆˆ Fin โˆง ยฌ ๐‘ง โˆˆ ๐‘ฆ ) โˆง ( ( ( ๐‘ฆ โІ โ„• โˆง ( ๐พ โˆˆ โ„• โˆง ๐น : โ„• โŸถ โ„• ) ) โˆง ( โˆ€ ๐‘š โˆˆ ๐‘ฆ โˆ€ ๐‘› โˆˆ ( ๐‘ฆ โˆ– { ๐‘š } ) ( ( ๐น โ€˜ ๐‘š ) gcd ( ๐น โ€˜ ๐‘› ) ) = 1 โˆง โˆ€ ๐‘š โˆˆ ๐‘ฆ ( ๐น โ€˜ ๐‘š ) โˆฅ ๐พ ) ) โ†’ โˆ ๐‘š โˆˆ ๐‘ฆ ( ๐น โ€˜ ๐‘š ) โˆฅ ๐พ ) ) โˆง ( ( ๐‘ฆ โˆช { ๐‘ง } ) โІ โ„• โˆง ( ๐พ โˆˆ โ„• โˆง ๐น : โ„• โŸถ โ„• ) ) ) โ†’ ( ( โˆ€ ๐‘š โˆˆ ๐‘ฆ โˆ€ ๐‘› โˆˆ ๐‘ฆ ( ๐‘› โˆ‰ { ๐‘š } โ†’ ( ( ๐น โ€˜ ๐‘š ) gcd ( ๐น โ€˜ ๐‘› ) ) = 1 ) โˆง โˆ€ ๐‘š โˆˆ ๐‘ฆ ( ๐น โ€˜ ๐‘š ) โˆฅ ๐พ ) โ†’ โˆ ๐‘š โˆˆ ๐‘ฆ ( ๐น โ€˜ ๐‘š ) โˆฅ ๐พ ) )
122 105 107 121 syl2ani โŠข ( ( ( ( ๐‘ฆ โˆˆ Fin โˆง ยฌ ๐‘ง โˆˆ ๐‘ฆ ) โˆง ( ( ( ๐‘ฆ โІ โ„• โˆง ( ๐พ โˆˆ โ„• โˆง ๐น : โ„• โŸถ โ„• ) ) โˆง ( โˆ€ ๐‘š โˆˆ ๐‘ฆ โˆ€ ๐‘› โˆˆ ( ๐‘ฆ โˆ– { ๐‘š } ) ( ( ๐น โ€˜ ๐‘š ) gcd ( ๐น โ€˜ ๐‘› ) ) = 1 โˆง โˆ€ ๐‘š โˆˆ ๐‘ฆ ( ๐น โ€˜ ๐‘š ) โˆฅ ๐พ ) ) โ†’ โˆ ๐‘š โˆˆ ๐‘ฆ ( ๐น โ€˜ ๐‘š ) โˆฅ ๐พ ) ) โˆง ( ( ๐‘ฆ โˆช { ๐‘ง } ) โІ โ„• โˆง ( ๐พ โˆˆ โ„• โˆง ๐น : โ„• โŸถ โ„• ) ) ) โ†’ ( ( โˆ€ ๐‘š โˆˆ ( ๐‘ฆ โˆช { ๐‘ง } ) โˆ€ ๐‘› โˆˆ ( ( ๐‘ฆ โˆช { ๐‘ง } ) โˆ– { ๐‘š } ) ( ( ๐น โ€˜ ๐‘š ) gcd ( ๐น โ€˜ ๐‘› ) ) = 1 โˆง โˆ€ ๐‘š โˆˆ ( ๐‘ฆ โˆช { ๐‘ง } ) ( ๐น โ€˜ ๐‘š ) โˆฅ ๐พ ) โ†’ โˆ ๐‘š โˆˆ ๐‘ฆ ( ๐น โ€˜ ๐‘š ) โˆฅ ๐พ ) )
123 122 impr โŠข ( ( ( ( ๐‘ฆ โˆˆ Fin โˆง ยฌ ๐‘ง โˆˆ ๐‘ฆ ) โˆง ( ( ( ๐‘ฆ โІ โ„• โˆง ( ๐พ โˆˆ โ„• โˆง ๐น : โ„• โŸถ โ„• ) ) โˆง ( โˆ€ ๐‘š โˆˆ ๐‘ฆ โˆ€ ๐‘› โˆˆ ( ๐‘ฆ โˆ– { ๐‘š } ) ( ( ๐น โ€˜ ๐‘š ) gcd ( ๐น โ€˜ ๐‘› ) ) = 1 โˆง โˆ€ ๐‘š โˆˆ ๐‘ฆ ( ๐น โ€˜ ๐‘š ) โˆฅ ๐พ ) ) โ†’ โˆ ๐‘š โˆˆ ๐‘ฆ ( ๐น โ€˜ ๐‘š ) โˆฅ ๐พ ) ) โˆง ( ( ( ๐‘ฆ โˆช { ๐‘ง } ) โІ โ„• โˆง ( ๐พ โˆˆ โ„• โˆง ๐น : โ„• โŸถ โ„• ) ) โˆง ( โˆ€ ๐‘š โˆˆ ( ๐‘ฆ โˆช { ๐‘ง } ) โˆ€ ๐‘› โˆˆ ( ( ๐‘ฆ โˆช { ๐‘ง } ) โˆ– { ๐‘š } ) ( ( ๐น โ€˜ ๐‘š ) gcd ( ๐น โ€˜ ๐‘› ) ) = 1 โˆง โˆ€ ๐‘š โˆˆ ( ๐‘ฆ โˆช { ๐‘ง } ) ( ๐น โ€˜ ๐‘š ) โˆฅ ๐พ ) ) ) โ†’ โˆ ๐‘š โˆˆ ๐‘ฆ ( ๐น โ€˜ ๐‘š ) โˆฅ ๐พ )
124 22 breq1d โŠข ( ๐‘š = ๐‘ง โ†’ ( ( ๐น โ€˜ ๐‘š ) โˆฅ ๐พ โ†” ( ๐น โ€˜ ๐‘ง ) โˆฅ ๐พ ) )
125 124 rspcv โŠข ( ๐‘ง โˆˆ ( ๐‘ฆ โˆช { ๐‘ง } ) โ†’ ( โˆ€ ๐‘š โˆˆ ( ๐‘ฆ โˆช { ๐‘ง } ) ( ๐น โ€˜ ๐‘š ) โˆฅ ๐พ โ†’ ( ๐น โ€˜ ๐‘ง ) โˆฅ ๐พ ) )
126 64 125 ax-mp โŠข ( โˆ€ ๐‘š โˆˆ ( ๐‘ฆ โˆช { ๐‘ง } ) ( ๐น โ€˜ ๐‘š ) โˆฅ ๐พ โ†’ ( ๐น โ€˜ ๐‘ง ) โˆฅ ๐พ )
127 126 adantl โŠข ( ( โˆ€ ๐‘š โˆˆ ( ๐‘ฆ โˆช { ๐‘ง } ) โˆ€ ๐‘› โˆˆ ( ( ๐‘ฆ โˆช { ๐‘ง } ) โˆ– { ๐‘š } ) ( ( ๐น โ€˜ ๐‘š ) gcd ( ๐น โ€˜ ๐‘› ) ) = 1 โˆง โˆ€ ๐‘š โˆˆ ( ๐‘ฆ โˆช { ๐‘ง } ) ( ๐น โ€˜ ๐‘š ) โˆฅ ๐พ ) โ†’ ( ๐น โ€˜ ๐‘ง ) โˆฅ ๐พ )
128 127 adantl โŠข ( ( ( ( ๐‘ฆ โˆช { ๐‘ง } ) โІ โ„• โˆง ( ๐พ โˆˆ โ„• โˆง ๐น : โ„• โŸถ โ„• ) ) โˆง ( โˆ€ ๐‘š โˆˆ ( ๐‘ฆ โˆช { ๐‘ง } ) โˆ€ ๐‘› โˆˆ ( ( ๐‘ฆ โˆช { ๐‘ง } ) โˆ– { ๐‘š } ) ( ( ๐น โ€˜ ๐‘š ) gcd ( ๐น โ€˜ ๐‘› ) ) = 1 โˆง โˆ€ ๐‘š โˆˆ ( ๐‘ฆ โˆช { ๐‘ง } ) ( ๐น โ€˜ ๐‘š ) โˆฅ ๐พ ) ) โ†’ ( ๐น โ€˜ ๐‘ง ) โˆฅ ๐พ )
129 128 adantl โŠข ( ( ( ( ๐‘ฆ โˆˆ Fin โˆง ยฌ ๐‘ง โˆˆ ๐‘ฆ ) โˆง ( ( ( ๐‘ฆ โІ โ„• โˆง ( ๐พ โˆˆ โ„• โˆง ๐น : โ„• โŸถ โ„• ) ) โˆง ( โˆ€ ๐‘š โˆˆ ๐‘ฆ โˆ€ ๐‘› โˆˆ ( ๐‘ฆ โˆ– { ๐‘š } ) ( ( ๐น โ€˜ ๐‘š ) gcd ( ๐น โ€˜ ๐‘› ) ) = 1 โˆง โˆ€ ๐‘š โˆˆ ๐‘ฆ ( ๐น โ€˜ ๐‘š ) โˆฅ ๐พ ) ) โ†’ โˆ ๐‘š โˆˆ ๐‘ฆ ( ๐น โ€˜ ๐‘š ) โˆฅ ๐พ ) ) โˆง ( ( ( ๐‘ฆ โˆช { ๐‘ง } ) โІ โ„• โˆง ( ๐พ โˆˆ โ„• โˆง ๐น : โ„• โŸถ โ„• ) ) โˆง ( โˆ€ ๐‘š โˆˆ ( ๐‘ฆ โˆช { ๐‘ง } ) โˆ€ ๐‘› โˆˆ ( ( ๐‘ฆ โˆช { ๐‘ง } ) โˆ– { ๐‘š } ) ( ( ๐น โ€˜ ๐‘š ) gcd ( ๐น โ€˜ ๐‘› ) ) = 1 โˆง โˆ€ ๐‘š โˆˆ ( ๐‘ฆ โˆช { ๐‘ง } ) ( ๐น โ€˜ ๐‘š ) โˆฅ ๐พ ) ) ) โ†’ ( ๐น โ€˜ ๐‘ง ) โˆฅ ๐พ )
130 coprmdvds2 โŠข ( ( ( โˆ ๐‘š โˆˆ ๐‘ฆ ( ๐น โ€˜ ๐‘š ) โˆˆ โ„ค โˆง ( ๐น โ€˜ ๐‘ง ) โˆˆ โ„ค โˆง ๐พ โˆˆ โ„ค ) โˆง ( โˆ ๐‘š โˆˆ ๐‘ฆ ( ๐น โ€˜ ๐‘š ) gcd ( ๐น โ€˜ ๐‘ง ) ) = 1 ) โ†’ ( ( โˆ ๐‘š โˆˆ ๐‘ฆ ( ๐น โ€˜ ๐‘š ) โˆฅ ๐พ โˆง ( ๐น โ€˜ ๐‘ง ) โˆฅ ๐พ ) โ†’ ( โˆ ๐‘š โˆˆ ๐‘ฆ ( ๐น โ€˜ ๐‘š ) ยท ( ๐น โ€˜ ๐‘ง ) ) โˆฅ ๐พ ) )
131 130 imp โŠข ( ( ( ( โˆ ๐‘š โˆˆ ๐‘ฆ ( ๐น โ€˜ ๐‘š ) โˆˆ โ„ค โˆง ( ๐น โ€˜ ๐‘ง ) โˆˆ โ„ค โˆง ๐พ โˆˆ โ„ค ) โˆง ( โˆ ๐‘š โˆˆ ๐‘ฆ ( ๐น โ€˜ ๐‘š ) gcd ( ๐น โ€˜ ๐‘ง ) ) = 1 ) โˆง ( โˆ ๐‘š โˆˆ ๐‘ฆ ( ๐น โ€˜ ๐‘š ) โˆฅ ๐พ โˆง ( ๐น โ€˜ ๐‘ง ) โˆฅ ๐พ ) ) โ†’ ( โˆ ๐‘š โˆˆ ๐‘ฆ ( ๐น โ€˜ ๐‘š ) ยท ( ๐น โ€˜ ๐‘ง ) ) โˆฅ ๐พ )
132 50 100 123 129 131 syl22anc โŠข ( ( ( ( ๐‘ฆ โˆˆ Fin โˆง ยฌ ๐‘ง โˆˆ ๐‘ฆ ) โˆง ( ( ( ๐‘ฆ โІ โ„• โˆง ( ๐พ โˆˆ โ„• โˆง ๐น : โ„• โŸถ โ„• ) ) โˆง ( โˆ€ ๐‘š โˆˆ ๐‘ฆ โˆ€ ๐‘› โˆˆ ( ๐‘ฆ โˆ– { ๐‘š } ) ( ( ๐น โ€˜ ๐‘š ) gcd ( ๐น โ€˜ ๐‘› ) ) = 1 โˆง โˆ€ ๐‘š โˆˆ ๐‘ฆ ( ๐น โ€˜ ๐‘š ) โˆฅ ๐พ ) ) โ†’ โˆ ๐‘š โˆˆ ๐‘ฆ ( ๐น โ€˜ ๐‘š ) โˆฅ ๐พ ) ) โˆง ( ( ( ๐‘ฆ โˆช { ๐‘ง } ) โІ โ„• โˆง ( ๐พ โˆˆ โ„• โˆง ๐น : โ„• โŸถ โ„• ) ) โˆง ( โˆ€ ๐‘š โˆˆ ( ๐‘ฆ โˆช { ๐‘ง } ) โˆ€ ๐‘› โˆˆ ( ( ๐‘ฆ โˆช { ๐‘ง } ) โˆ– { ๐‘š } ) ( ( ๐น โ€˜ ๐‘š ) gcd ( ๐น โ€˜ ๐‘› ) ) = 1 โˆง โˆ€ ๐‘š โˆˆ ( ๐‘ฆ โˆช { ๐‘ง } ) ( ๐น โ€˜ ๐‘š ) โˆฅ ๐พ ) ) ) โ†’ ( โˆ ๐‘š โˆˆ ๐‘ฆ ( ๐น โ€˜ ๐‘š ) ยท ( ๐น โ€˜ ๐‘ง ) ) โˆฅ ๐พ )
133 26 132 eqbrtrd โŠข ( ( ( ( ๐‘ฆ โˆˆ Fin โˆง ยฌ ๐‘ง โˆˆ ๐‘ฆ ) โˆง ( ( ( ๐‘ฆ โІ โ„• โˆง ( ๐พ โˆˆ โ„• โˆง ๐น : โ„• โŸถ โ„• ) ) โˆง ( โˆ€ ๐‘š โˆˆ ๐‘ฆ โˆ€ ๐‘› โˆˆ ( ๐‘ฆ โˆ– { ๐‘š } ) ( ( ๐น โ€˜ ๐‘š ) gcd ( ๐น โ€˜ ๐‘› ) ) = 1 โˆง โˆ€ ๐‘š โˆˆ ๐‘ฆ ( ๐น โ€˜ ๐‘š ) โˆฅ ๐พ ) ) โ†’ โˆ ๐‘š โˆˆ ๐‘ฆ ( ๐น โ€˜ ๐‘š ) โˆฅ ๐พ ) ) โˆง ( ( ( ๐‘ฆ โˆช { ๐‘ง } ) โІ โ„• โˆง ( ๐พ โˆˆ โ„• โˆง ๐น : โ„• โŸถ โ„• ) ) โˆง ( โˆ€ ๐‘š โˆˆ ( ๐‘ฆ โˆช { ๐‘ง } ) โˆ€ ๐‘› โˆˆ ( ( ๐‘ฆ โˆช { ๐‘ง } ) โˆ– { ๐‘š } ) ( ( ๐น โ€˜ ๐‘š ) gcd ( ๐น โ€˜ ๐‘› ) ) = 1 โˆง โˆ€ ๐‘š โˆˆ ( ๐‘ฆ โˆช { ๐‘ง } ) ( ๐น โ€˜ ๐‘š ) โˆฅ ๐พ ) ) ) โ†’ โˆ ๐‘š โˆˆ ( ๐‘ฆ โˆช { ๐‘ง } ) ( ๐น โ€˜ ๐‘š ) โˆฅ ๐พ )
134 133 exp31 โŠข ( ( ๐‘ฆ โˆˆ Fin โˆง ยฌ ๐‘ง โˆˆ ๐‘ฆ ) โ†’ ( ( ( ( ๐‘ฆ โІ โ„• โˆง ( ๐พ โˆˆ โ„• โˆง ๐น : โ„• โŸถ โ„• ) ) โˆง ( โˆ€ ๐‘š โˆˆ ๐‘ฆ โˆ€ ๐‘› โˆˆ ( ๐‘ฆ โˆ– { ๐‘š } ) ( ( ๐น โ€˜ ๐‘š ) gcd ( ๐น โ€˜ ๐‘› ) ) = 1 โˆง โˆ€ ๐‘š โˆˆ ๐‘ฆ ( ๐น โ€˜ ๐‘š ) โˆฅ ๐พ ) ) โ†’ โˆ ๐‘š โˆˆ ๐‘ฆ ( ๐น โ€˜ ๐‘š ) โˆฅ ๐พ ) โ†’ ( ( ( ( ๐‘ฆ โˆช { ๐‘ง } ) โІ โ„• โˆง ( ๐พ โˆˆ โ„• โˆง ๐น : โ„• โŸถ โ„• ) ) โˆง ( โˆ€ ๐‘š โˆˆ ( ๐‘ฆ โˆช { ๐‘ง } ) โˆ€ ๐‘› โˆˆ ( ( ๐‘ฆ โˆช { ๐‘ง } ) โˆ– { ๐‘š } ) ( ( ๐น โ€˜ ๐‘š ) gcd ( ๐น โ€˜ ๐‘› ) ) = 1 โˆง โˆ€ ๐‘š โˆˆ ( ๐‘ฆ โˆช { ๐‘ง } ) ( ๐น โ€˜ ๐‘š ) โˆฅ ๐พ ) ) โ†’ โˆ ๐‘š โˆˆ ( ๐‘ฆ โˆช { ๐‘ง } ) ( ๐น โ€˜ ๐‘š ) โˆฅ ๐พ ) ) )