Metamath Proof Explorer


Theorem lcmfunsnlem1

Description: Lemma for lcmfdvds and lcmfunsnlem (Induction step part 1). (Contributed by AV, 25-Aug-2020)

Ref Expression
Assertion lcmfunsnlem1 z y y Fin k m y m k lcm _ y k n lcm _ y n = lcm _ y lcm n k m y z m k lcm _ y z k

Proof

Step Hyp Ref Expression
1 nfv k z y y Fin
2 nfra1 k k m y m k lcm _ y k
3 nfv k n lcm _ y n = lcm _ y lcm n
4 2 3 nfan k k m y m k lcm _ y k n lcm _ y n = lcm _ y lcm n
5 1 4 nfan k z y y Fin k m y m k lcm _ y k n lcm _ y n = lcm _ y lcm n
6 breq2 k = l m k m l
7 6 ralbidv k = l m y m k m y m l
8 breq2 k = l lcm _ y k lcm _ y l
9 7 8 imbi12d k = l m y m k lcm _ y k m y m l lcm _ y l
10 9 cbvralvw k m y m k lcm _ y k l m y m l lcm _ y l
11 breq2 l = k m l m k
12 11 ralbidv l = k m y m l m y m k
13 breq2 l = k lcm _ y l lcm _ y k
14 12 13 imbi12d l = k m y m l lcm _ y l m y m k lcm _ y k
15 14 rspcv k l m y m l lcm _ y l m y m k lcm _ y k
16 15 adantl z y y Fin k l m y m l lcm _ y l m y m k lcm _ y k
17 sneq n = z n = z
18 17 uneq2d n = z y n = y z
19 18 fveq2d n = z lcm _ y n = lcm _ y z
20 oveq2 n = z lcm _ y lcm n = lcm _ y lcm z
21 19 20 eqeq12d n = z lcm _ y n = lcm _ y lcm n lcm _ y z = lcm _ y lcm z
22 21 rspcv z n lcm _ y n = lcm _ y lcm n lcm _ y z = lcm _ y lcm z
23 22 3ad2ant1 z y y Fin n lcm _ y n = lcm _ y lcm n lcm _ y z = lcm _ y lcm z
24 23 adantr z y y Fin k n lcm _ y n = lcm _ y lcm n lcm _ y z = lcm _ y lcm z
25 simpr z y y Fin k k
26 lcmfcl y y Fin lcm _ y 0
27 26 nn0zd y y Fin lcm _ y
28 27 3adant1 z y y Fin lcm _ y
29 28 adantr z y y Fin k lcm _ y
30 simpl1 z y y Fin k z
31 25 29 30 3jca z y y Fin k k lcm _ y z
32 31 adantr z y y Fin k m y m k lcm _ y k k lcm _ y z
33 32 adantr z y y Fin k m y m k lcm _ y k m y z m k k lcm _ y z
34 ssun1 y y z
35 ssralv y y z m y z m k m y m k
36 34 35 mp1i z y y Fin k m y z m k m y m k
37 36 imim1d z y y Fin k m y m k lcm _ y k m y z m k lcm _ y k
38 37 imp31 z y y Fin k m y m k lcm _ y k m y z m k lcm _ y k
39 snidg z z z
40 39 olcd z z y z z
41 elun z y z z y z z
42 40 41 sylibr z z y z
43 breq1 m = z m k z k
44 43 rspcv z y z m y z m k z k
45 42 44 syl z m y z m k z k
46 45 3ad2ant1 z y y Fin m y z m k z k
47 46 adantr z y y Fin k m y z m k z k
48 47 adantr z y y Fin k m y m k lcm _ y k m y z m k z k
49 48 imp z y y Fin k m y m k lcm _ y k m y z m k z k
50 38 49 jca z y y Fin k m y m k lcm _ y k m y z m k lcm _ y k z k
51 lcmdvds k lcm _ y z lcm _ y k z k lcm _ y lcm z k
52 33 50 51 sylc z y y Fin k m y m k lcm _ y k m y z m k lcm _ y lcm z k
53 breq1 lcm _ y z = lcm _ y lcm z lcm _ y z k lcm _ y lcm z k
54 52 53 syl5ibrcom z y y Fin k m y m k lcm _ y k m y z m k lcm _ y z = lcm _ y lcm z lcm _ y z k
55 54 ex z y y Fin k m y m k lcm _ y k m y z m k lcm _ y z = lcm _ y lcm z lcm _ y z k
56 55 com23 z y y Fin k m y m k lcm _ y k lcm _ y z = lcm _ y lcm z m y z m k lcm _ y z k
57 56 ex z y y Fin k m y m k lcm _ y k lcm _ y z = lcm _ y lcm z m y z m k lcm _ y z k
58 24 57 syl5d z y y Fin k m y m k lcm _ y k n lcm _ y n = lcm _ y lcm n m y z m k lcm _ y z k
59 16 58 syld z y y Fin k l m y m l lcm _ y l n lcm _ y n = lcm _ y lcm n m y z m k lcm _ y z k
60 10 59 syl5bi z y y Fin k k m y m k lcm _ y k n lcm _ y n = lcm _ y lcm n m y z m k lcm _ y z k
61 60 impd z y y Fin k k m y m k lcm _ y k n lcm _ y n = lcm _ y lcm n m y z m k lcm _ y z k
62 61 impancom z y y Fin k m y m k lcm _ y k n lcm _ y n = lcm _ y lcm n k m y z m k lcm _ y z k
63 5 62 ralrimi z y y Fin k m y m k lcm _ y k n lcm _ y n = lcm _ y lcm n k m y z m k lcm _ y z k