MPE Home Metamath Proof Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >  lcmfunsnlem2 Structured version   Visualization version   GIF version

Theorem lcmfunsnlem2 16723
Description: Lemma for lcmfunsn 16727 and lcmfunsnlem 16724 (Induction step part 2). (Contributed by AV, 26-Aug-2020.)
Assertion
Ref Expression
lcmfunsnlem2 (((𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin) ∧ (∀𝑘 ∈ ℤ (∀𝑚𝑦 𝑚𝑘 → (lcm𝑦) ∥ 𝑘) ∧ ∀𝑛 ∈ ℤ (lcm‘(𝑦 ∪ {𝑛})) = ((lcm𝑦) lcm 𝑛))) → ∀𝑛 ∈ ℤ (lcm‘((𝑦 ∪ {𝑧}) ∪ {𝑛})) = ((lcm‘(𝑦 ∪ {𝑧})) lcm 𝑛))
Distinct variable groups:   𝑦,𝑚,𝑧   𝑘,𝑛,𝑦,𝑧,𝑚

Proof of Theorem lcmfunsnlem2
StepHypRef Expression
1 nfv 1947 . . 3 𝑛(𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin)
2 nfv 1947 . . . 4 𝑛𝑘 ∈ ℤ (∀𝑚𝑦 𝑚𝑘 → (lcm𝑦) ∥ 𝑘)
3 nfra1 3292 . . . 4 𝑛𝑛 ∈ ℤ (lcm‘(𝑦 ∪ {𝑛})) = ((lcm𝑦) lcm 𝑛)
42, 3nfan 1932 . . 3 𝑛(∀𝑘 ∈ ℤ (∀𝑚𝑦 𝑚𝑘 → (lcm𝑦) ∥ 𝑘) ∧ ∀𝑛 ∈ ℤ (lcm‘(𝑦 ∪ {𝑛})) = ((lcm𝑦) lcm 𝑛))
51, 4nfan 1932 . 2 𝑛((𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin) ∧ (∀𝑘 ∈ ℤ (∀𝑚𝑦 𝑚𝑘 → (lcm𝑦) ∥ 𝑘) ∧ ∀𝑛 ∈ ℤ (lcm‘(𝑦 ∪ {𝑛})) = ((lcm𝑦) lcm 𝑛)))
6 0z 12620 . . . . 5 0 ∈ ℤ
7 eqoreldif 4656 . . . . 5 (0 ∈ ℤ → (𝑛 ∈ ℤ ↔ (𝑛 = 0 ∨ 𝑛 ∈ (ℤ ∖ {0}))))
86, 7ax-mp 5 . . . 4 (𝑛 ∈ ℤ ↔ (𝑛 = 0 ∨ 𝑛 ∈ (ℤ ∖ {0})))
9 simp2 1155 . . . . . . . . . . . . 13 ((𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin) → 𝑦 ⊆ ℤ)
10 snssi 4756 . . . . . . . . . . . . . 14 (𝑧 ∈ ℤ → {𝑧} ⊆ ℤ)
11103ad2ant1 1151 . . . . . . . . . . . . 13 ((𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin) → {𝑧} ⊆ ℤ)
129, 11unssd 4148 . . . . . . . . . . . 12 ((𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin) → (𝑦 ∪ {𝑧}) ⊆ ℤ)
13 snssi 4756 . . . . . . . . . . . . 13 (0 ∈ ℤ → {0} ⊆ ℤ)
146, 13mp1i 14 . . . . . . . . . . . 12 ((𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin) → {0} ⊆ ℤ)
1512, 14unssd 4148 . . . . . . . . . . 11 ((𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin) → ((𝑦 ∪ {𝑧}) ∪ {0}) ⊆ ℤ)
16 c0ex 11218 . . . . . . . . . . . . . 14 0 ∈ V
1716snid 4633 . . . . . . . . . . . . 13 0 ∈ {0}
1817olci 880 . . . . . . . . . . . 12 (0 ∈ (𝑦 ∪ {𝑧}) ∨ 0 ∈ {0})
19 elun 4110 . . . . . . . . . . . 12 (0 ∈ ((𝑦 ∪ {𝑧}) ∪ {0}) ↔ (0 ∈ (𝑦 ∪ {𝑧}) ∨ 0 ∈ {0}))
2018, 19mpbir 234 . . . . . . . . . . 11 0 ∈ ((𝑦 ∪ {𝑧}) ∪ {0})
21 lcmf0val 16705 . . . . . . . . . . 11 ((((𝑦 ∪ {𝑧}) ∪ {0}) ⊆ ℤ ∧ 0 ∈ ((𝑦 ∪ {𝑧}) ∪ {0})) → (lcm‘((𝑦 ∪ {𝑧}) ∪ {0})) = 0)
2215, 20, 21sylancl 598 . . . . . . . . . 10 ((𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin) → (lcm‘((𝑦 ∪ {𝑧}) ∪ {0})) = 0)
2322adantr 486 . . . . . . . . 9 (((𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin) ∧ 𝑛 = 0) → (lcm‘((𝑦 ∪ {𝑧}) ∪ {0})) = 0)
24 sneq 4604 . . . . . . . . . . . 12 (𝑛 = 0 → {𝑛} = {0})
2524adantl 487 . . . . . . . . . . 11 (((𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin) ∧ 𝑛 = 0) → {𝑛} = {0})
2625uneq2d 4125 . . . . . . . . . 10 (((𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin) ∧ 𝑛 = 0) → ((𝑦 ∪ {𝑧}) ∪ {𝑛}) = ((𝑦 ∪ {𝑧}) ∪ {0}))
2726fveq2d 6892 . . . . . . . . 9 (((𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin) ∧ 𝑛 = 0) → (lcm‘((𝑦 ∪ {𝑧}) ∪ {𝑛})) = (lcm‘((𝑦 ∪ {𝑧}) ∪ {0})))
28 oveq2 7431 . . . . . . . . . 10 (𝑛 = 0 → ((lcm‘(𝑦 ∪ {𝑧})) lcm 𝑛) = ((lcm‘(𝑦 ∪ {𝑧})) lcm 0))
29 snfi 9050 . . . . . . . . . . . . . . 15 {𝑧} ∈ Fin
30 unfi 9165 . . . . . . . . . . . . . . 15 ((𝑦 ∈ Fin ∧ {𝑧} ∈ Fin) → (𝑦 ∪ {𝑧}) ∈ Fin)
3129, 30mpan2 704 . . . . . . . . . . . . . 14 (𝑦 ∈ Fin → (𝑦 ∪ {𝑧}) ∈ Fin)
32313ad2ant3 1153 . . . . . . . . . . . . 13 ((𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin) → (𝑦 ∪ {𝑧}) ∈ Fin)
33 lcmfcl 16711 . . . . . . . . . . . . 13 (((𝑦 ∪ {𝑧}) ⊆ ℤ ∧ (𝑦 ∪ {𝑧}) ∈ Fin) → (lcm‘(𝑦 ∪ {𝑧})) ∈ ℕ0)
3412, 32, 33syl2anc 596 . . . . . . . . . . . 12 ((𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin) → (lcm‘(𝑦 ∪ {𝑧})) ∈ ℕ0)
3534nn0zd 12634 . . . . . . . . . . 11 ((𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin) → (lcm‘(𝑦 ∪ {𝑧})) ∈ ℤ)
36 lcm0val 16677 . . . . . . . . . . 11 ((lcm‘(𝑦 ∪ {𝑧})) ∈ ℤ → ((lcm‘(𝑦 ∪ {𝑧})) lcm 0) = 0)
3735, 36syl 18 . . . . . . . . . 10 ((𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin) → ((lcm‘(𝑦 ∪ {𝑧})) lcm 0) = 0)
3828, 37sylan9eqr 2823 . . . . . . . . 9 (((𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin) ∧ 𝑛 = 0) → ((lcm‘(𝑦 ∪ {𝑧})) lcm 𝑛) = 0)
3923, 27, 383eqtr4d 2811 . . . . . . . 8 (((𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin) ∧ 𝑛 = 0) → (lcm‘((𝑦 ∪ {𝑧}) ∪ {𝑛})) = ((lcm‘(𝑦 ∪ {𝑧})) lcm 𝑛))
4039ex 418 . . . . . . 7 ((𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin) → (𝑛 = 0 → (lcm‘((𝑦 ∪ {𝑧}) ∪ {𝑛})) = ((lcm‘(𝑦 ∪ {𝑧})) lcm 𝑛)))
4140adantr 486 . . . . . 6 (((𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin) ∧ (∀𝑘 ∈ ℤ (∀𝑚𝑦 𝑚𝑘 → (lcm𝑦) ∥ 𝑘) ∧ ∀𝑛 ∈ ℤ (lcm‘(𝑦 ∪ {𝑛})) = ((lcm𝑦) lcm 𝑛))) → (𝑛 = 0 → (lcm‘((𝑦 ∪ {𝑧}) ∪ {𝑛})) = ((lcm‘(𝑦 ∪ {𝑧})) lcm 𝑛)))
4241com12 33 . . . . 5 (𝑛 = 0 → (((𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin) ∧ (∀𝑘 ∈ ℤ (∀𝑚𝑦 𝑚𝑘 → (lcm𝑦) ∥ 𝑘) ∧ ∀𝑛 ∈ ℤ (lcm‘(𝑦 ∪ {𝑛})) = ((lcm𝑦) lcm 𝑛))) → (lcm‘((𝑦 ∪ {𝑧}) ∪ {𝑛})) = ((lcm‘(𝑦 ∪ {𝑧})) lcm 𝑛)))
439adantl 487 . . . . . . . . . . . . . 14 (((0 ∈ 𝑦𝑛 ∈ (ℤ ∖ {0})) ∧ (𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin)) → 𝑦 ⊆ ℤ)
4411adantl 487 . . . . . . . . . . . . . 14 (((0 ∈ 𝑦𝑛 ∈ (ℤ ∖ {0})) ∧ (𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin)) → {𝑧} ⊆ ℤ)
4543, 44unssd 4148 . . . . . . . . . . . . 13 (((0 ∈ 𝑦𝑛 ∈ (ℤ ∖ {0})) ∧ (𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin)) → (𝑦 ∪ {𝑧}) ⊆ ℤ)
46 elun1 4138 . . . . . . . . . . . . . 14 (0 ∈ 𝑦 → 0 ∈ (𝑦 ∪ {𝑧}))
4746ad2antrr 739 . . . . . . . . . . . . 13 (((0 ∈ 𝑦𝑛 ∈ (ℤ ∖ {0})) ∧ (𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin)) → 0 ∈ (𝑦 ∪ {𝑧}))
48 lcmf0val 16705 . . . . . . . . . . . . 13 (((𝑦 ∪ {𝑧}) ⊆ ℤ ∧ 0 ∈ (𝑦 ∪ {𝑧})) → (lcm‘(𝑦 ∪ {𝑧})) = 0)
4945, 47, 48syl2anc 596 . . . . . . . . . . . 12 (((0 ∈ 𝑦𝑛 ∈ (ℤ ∖ {0})) ∧ (𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin)) → (lcm‘(𝑦 ∪ {𝑧})) = 0)
5049oveq2d 7439 . . . . . . . . . . 11 (((0 ∈ 𝑦𝑛 ∈ (ℤ ∖ {0})) ∧ (𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin)) → (𝑛 lcm (lcm‘(𝑦 ∪ {𝑧}))) = (𝑛 lcm 0))
51 eldifi 4088 . . . . . . . . . . . . 13 (𝑛 ∈ (ℤ ∖ {0}) → 𝑛 ∈ ℤ)
52 lcm0val 16677 . . . . . . . . . . . . 13 (𝑛 ∈ ℤ → (𝑛 lcm 0) = 0)
5351, 52syl 18 . . . . . . . . . . . 12 (𝑛 ∈ (ℤ ∖ {0}) → (𝑛 lcm 0) = 0)
5453ad2antlr 740 . . . . . . . . . . 11 (((0 ∈ 𝑦𝑛 ∈ (ℤ ∖ {0})) ∧ (𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin)) → (𝑛 lcm 0) = 0)
5550, 54eqtrd 2801 . . . . . . . . . 10 (((0 ∈ 𝑦𝑛 ∈ (ℤ ∖ {0})) ∧ (𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin)) → (𝑛 lcm (lcm‘(𝑦 ∪ {𝑧}))) = 0)
56 simp3 1156 . . . . . . . . . . . . . 14 ((𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin) → 𝑦 ∈ Fin)
5756, 29, 30sylancl 598 . . . . . . . . . . . . 13 ((𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin) → (𝑦 ∪ {𝑧}) ∈ Fin)
5812, 57, 33syl2anc 596 . . . . . . . . . . . 12 ((𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin) → (lcm‘(𝑦 ∪ {𝑧})) ∈ ℕ0)
5958nn0zd 12634 . . . . . . . . . . 11 ((𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin) → (lcm‘(𝑦 ∪ {𝑧})) ∈ ℤ)
6051adantl 487 . . . . . . . . . . 11 ((0 ∈ 𝑦𝑛 ∈ (ℤ ∖ {0})) → 𝑛 ∈ ℤ)
61 lcmcom 16676 . . . . . . . . . . 11 (((lcm‘(𝑦 ∪ {𝑧})) ∈ ℤ ∧ 𝑛 ∈ ℤ) → ((lcm‘(𝑦 ∪ {𝑧})) lcm 𝑛) = (𝑛 lcm (lcm‘(𝑦 ∪ {𝑧}))))
6259, 60, 61syl2anr 609 . . . . . . . . . 10 (((0 ∈ 𝑦𝑛 ∈ (ℤ ∖ {0})) ∧ (𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin)) → ((lcm‘(𝑦 ∪ {𝑧})) lcm 𝑛) = (𝑛 lcm (lcm‘(𝑦 ∪ {𝑧}))))
6312adantl 487 . . . . . . . . . . . 12 (((0 ∈ 𝑦𝑛 ∈ (ℤ ∖ {0})) ∧ (𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin)) → (𝑦 ∪ {𝑧}) ⊆ ℤ)
6451snssd 4757 . . . . . . . . . . . . 13 (𝑛 ∈ (ℤ ∖ {0}) → {𝑛} ⊆ ℤ)
6564ad2antlr 740 . . . . . . . . . . . 12 (((0 ∈ 𝑦𝑛 ∈ (ℤ ∖ {0})) ∧ (𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin)) → {𝑛} ⊆ ℤ)
6663, 65unssd 4148 . . . . . . . . . . 11 (((0 ∈ 𝑦𝑛 ∈ (ℤ ∖ {0})) ∧ (𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin)) → ((𝑦 ∪ {𝑧}) ∪ {𝑛}) ⊆ ℤ)
6746orcd 887 . . . . . . . . . . . . 13 (0 ∈ 𝑦 → (0 ∈ (𝑦 ∪ {𝑧}) ∨ 0 ∈ {𝑛}))
68 elun 4110 . . . . . . . . . . . . 13 (0 ∈ ((𝑦 ∪ {𝑧}) ∪ {𝑛}) ↔ (0 ∈ (𝑦 ∪ {𝑧}) ∨ 0 ∈ {𝑛}))
6967, 68sylibr 237 . . . . . . . . . . . 12 (0 ∈ 𝑦 → 0 ∈ ((𝑦 ∪ {𝑧}) ∪ {𝑛}))
7069ad2antrr 739 . . . . . . . . . . 11 (((0 ∈ 𝑦𝑛 ∈ (ℤ ∖ {0})) ∧ (𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin)) → 0 ∈ ((𝑦 ∪ {𝑧}) ∪ {𝑛}))
71 lcmf0val 16705 . . . . . . . . . . 11 ((((𝑦 ∪ {𝑧}) ∪ {𝑛}) ⊆ ℤ ∧ 0 ∈ ((𝑦 ∪ {𝑧}) ∪ {𝑛})) → (lcm‘((𝑦 ∪ {𝑧}) ∪ {𝑛})) = 0)
7266, 70, 71syl2anc 596 . . . . . . . . . 10 (((0 ∈ 𝑦𝑛 ∈ (ℤ ∖ {0})) ∧ (𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin)) → (lcm‘((𝑦 ∪ {𝑧}) ∪ {𝑛})) = 0)
7355, 62, 723eqtr4rd 2812 . . . . . . . . 9 (((0 ∈ 𝑦𝑛 ∈ (ℤ ∖ {0})) ∧ (𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin)) → (lcm‘((𝑦 ∪ {𝑧}) ∪ {𝑛})) = ((lcm‘(𝑦 ∪ {𝑧})) lcm 𝑛))
7473a1d 26 . . . . . . . 8 (((0 ∈ 𝑦𝑛 ∈ (ℤ ∖ {0})) ∧ (𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin)) → ((∀𝑘 ∈ ℤ (∀𝑚𝑦 𝑚𝑘 → (lcm𝑦) ∥ 𝑘) ∧ ∀𝑛 ∈ ℤ (lcm‘(𝑦 ∪ {𝑛})) = ((lcm𝑦) lcm 𝑛)) → (lcm‘((𝑦 ∪ {𝑧}) ∪ {𝑛})) = ((lcm‘(𝑦 ∪ {𝑧})) lcm 𝑛)))
7574expimpd 459 . . . . . . 7 ((0 ∈ 𝑦𝑛 ∈ (ℤ ∖ {0})) → (((𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin) ∧ (∀𝑘 ∈ ℤ (∀𝑚𝑦 𝑚𝑘 → (lcm𝑦) ∥ 𝑘) ∧ ∀𝑛 ∈ ℤ (lcm‘(𝑦 ∪ {𝑛})) = ((lcm𝑦) lcm 𝑛))) → (lcm‘((𝑦 ∪ {𝑧}) ∪ {𝑛})) = ((lcm‘(𝑦 ∪ {𝑧})) lcm 𝑛)))
7675ex 418 . . . . . 6 (0 ∈ 𝑦 → (𝑛 ∈ (ℤ ∖ {0}) → (((𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin) ∧ (∀𝑘 ∈ ℤ (∀𝑚𝑦 𝑚𝑘 → (lcm𝑦) ∥ 𝑘) ∧ ∀𝑛 ∈ ℤ (lcm‘(𝑦 ∪ {𝑛})) = ((lcm𝑦) lcm 𝑛))) → (lcm‘((𝑦 ∪ {𝑧}) ∪ {𝑛})) = ((lcm‘(𝑦 ∪ {𝑧})) lcm 𝑛))))
77 elsng 4608 . . . . . . . . . . . . . . . . . . 19 (0 ∈ ℤ → (0 ∈ {𝑧} ↔ 0 = 𝑧))
78 eqcom 2773 . . . . . . . . . . . . . . . . . . 19 (0 = 𝑧𝑧 = 0)
7977, 78bitrdi 290 . . . . . . . . . . . . . . . . . 18 (0 ∈ ℤ → (0 ∈ {𝑧} ↔ 𝑧 = 0))
806, 79ax-mp 5 . . . . . . . . . . . . . . . . 17 (0 ∈ {𝑧} ↔ 𝑧 = 0)
8180biimpri 231 . . . . . . . . . . . . . . . 16 (𝑧 = 0 → 0 ∈ {𝑧})
8281ad2antrr 739 . . . . . . . . . . . . . . 15 (((𝑧 = 0 ∧ 𝑛 ∈ (ℤ ∖ {0})) ∧ (𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin)) → 0 ∈ {𝑧})
8382olcd 888 . . . . . . . . . . . . . 14 (((𝑧 = 0 ∧ 𝑛 ∈ (ℤ ∖ {0})) ∧ (𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin)) → (0 ∈ 𝑦 ∨ 0 ∈ {𝑧}))
84 elun 4110 . . . . . . . . . . . . . 14 (0 ∈ (𝑦 ∪ {𝑧}) ↔ (0 ∈ 𝑦 ∨ 0 ∈ {𝑧}))
8583, 84sylibr 237 . . . . . . . . . . . . 13 (((𝑧 = 0 ∧ 𝑛 ∈ (ℤ ∖ {0})) ∧ (𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin)) → 0 ∈ (𝑦 ∪ {𝑧}))
8612, 85, 48syl2an2 699 . . . . . . . . . . . 12 (((𝑧 = 0 ∧ 𝑛 ∈ (ℤ ∖ {0})) ∧ (𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin)) → (lcm‘(𝑦 ∪ {𝑧})) = 0)
8786oveq2d 7439 . . . . . . . . . . 11 (((𝑧 = 0 ∧ 𝑛 ∈ (ℤ ∖ {0})) ∧ (𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin)) → (𝑛 lcm (lcm‘(𝑦 ∪ {𝑧}))) = (𝑛 lcm 0))
8851ad2antlr 740 . . . . . . . . . . . 12 (((𝑧 = 0 ∧ 𝑛 ∈ (ℤ ∖ {0})) ∧ (𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin)) → 𝑛 ∈ ℤ)
8988, 52syl 18 . . . . . . . . . . 11 (((𝑧 = 0 ∧ 𝑛 ∈ (ℤ ∖ {0})) ∧ (𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin)) → (𝑛 lcm 0) = 0)
9087, 89eqtrd 2801 . . . . . . . . . 10 (((𝑧 = 0 ∧ 𝑛 ∈ (ℤ ∖ {0})) ∧ (𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin)) → (𝑛 lcm (lcm‘(𝑦 ∪ {𝑧}))) = 0)
9159, 88, 61syl2an2 699 . . . . . . . . . 10 (((𝑧 = 0 ∧ 𝑛 ∈ (ℤ ∖ {0})) ∧ (𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin)) → ((lcm‘(𝑦 ∪ {𝑧})) lcm 𝑛) = (𝑛 lcm (lcm‘(𝑦 ∪ {𝑧}))))
9212adantl 487 . . . . . . . . . . . 12 (((𝑧 = 0 ∧ 𝑛 ∈ (ℤ ∖ {0})) ∧ (𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin)) → (𝑦 ∪ {𝑧}) ⊆ ℤ)
9364ad2antlr 740 . . . . . . . . . . . 12 (((𝑧 = 0 ∧ 𝑛 ∈ (ℤ ∖ {0})) ∧ (𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin)) → {𝑛} ⊆ ℤ)
9492, 93unssd 4148 . . . . . . . . . . 11 (((𝑧 = 0 ∧ 𝑛 ∈ (ℤ ∖ {0})) ∧ (𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin)) → ((𝑦 ∪ {𝑧}) ∪ {𝑛}) ⊆ ℤ)
95 sneq 4604 . . . . . . . . . . . . . . . . 17 (𝑧 = 0 → {𝑧} = {0})
9617, 95eleqtrrid 2873 . . . . . . . . . . . . . . . 16 (𝑧 = 0 → 0 ∈ {𝑧})
9796ad2antrr 739 . . . . . . . . . . . . . . 15 (((𝑧 = 0 ∧ 𝑛 ∈ (ℤ ∖ {0})) ∧ (𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin)) → 0 ∈ {𝑧})
9897olcd 888 . . . . . . . . . . . . . 14 (((𝑧 = 0 ∧ 𝑛 ∈ (ℤ ∖ {0})) ∧ (𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin)) → (0 ∈ 𝑦 ∨ 0 ∈ {𝑧}))
9998, 84sylibr 237 . . . . . . . . . . . . 13 (((𝑧 = 0 ∧ 𝑛 ∈ (ℤ ∖ {0})) ∧ (𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin)) → 0 ∈ (𝑦 ∪ {𝑧}))
10099orcd 887 . . . . . . . . . . . 12 (((𝑧 = 0 ∧ 𝑛 ∈ (ℤ ∖ {0})) ∧ (𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin)) → (0 ∈ (𝑦 ∪ {𝑧}) ∨ 0 ∈ {𝑛}))
101100, 68sylibr 237 . . . . . . . . . . 11 (((𝑧 = 0 ∧ 𝑛 ∈ (ℤ ∖ {0})) ∧ (𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin)) → 0 ∈ ((𝑦 ∪ {𝑧}) ∪ {𝑛}))
10294, 101, 71syl2anc 596 . . . . . . . . . 10 (((𝑧 = 0 ∧ 𝑛 ∈ (ℤ ∖ {0})) ∧ (𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin)) → (lcm‘((𝑦 ∪ {𝑧}) ∪ {𝑛})) = 0)
10390, 91, 1023eqtr4rd 2812 . . . . . . . . 9 (((𝑧 = 0 ∧ 𝑛 ∈ (ℤ ∖ {0})) ∧ (𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin)) → (lcm‘((𝑦 ∪ {𝑧}) ∪ {𝑛})) = ((lcm‘(𝑦 ∪ {𝑧})) lcm 𝑛))
104103a1d 26 . . . . . . . 8 (((𝑧 = 0 ∧ 𝑛 ∈ (ℤ ∖ {0})) ∧ (𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin)) → ((∀𝑘 ∈ ℤ (∀𝑚𝑦 𝑚𝑘 → (lcm𝑦) ∥ 𝑘) ∧ ∀𝑛 ∈ ℤ (lcm‘(𝑦 ∪ {𝑛})) = ((lcm𝑦) lcm 𝑛)) → (lcm‘((𝑦 ∪ {𝑧}) ∪ {𝑛})) = ((lcm‘(𝑦 ∪ {𝑧})) lcm 𝑛)))
105104expimpd 459 . . . . . . 7 ((𝑧 = 0 ∧ 𝑛 ∈ (ℤ ∖ {0})) → (((𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin) ∧ (∀𝑘 ∈ ℤ (∀𝑚𝑦 𝑚𝑘 → (lcm𝑦) ∥ 𝑘) ∧ ∀𝑛 ∈ ℤ (lcm‘(𝑦 ∪ {𝑛})) = ((lcm𝑦) lcm 𝑛))) → (lcm‘((𝑦 ∪ {𝑧}) ∪ {𝑛})) = ((lcm‘(𝑦 ∪ {𝑧})) lcm 𝑛)))
106105ex 418 . . . . . 6 (𝑧 = 0 → (𝑛 ∈ (ℤ ∖ {0}) → (((𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin) ∧ (∀𝑘 ∈ ℤ (∀𝑚𝑦 𝑚𝑘 → (lcm𝑦) ∥ 𝑘) ∧ ∀𝑛 ∈ ℤ (lcm‘(𝑦 ∪ {𝑛})) = ((lcm𝑦) lcm 𝑛))) → (lcm‘((𝑦 ∪ {𝑧}) ∪ {𝑛})) = ((lcm‘(𝑦 ∪ {𝑧})) lcm 𝑛))))
107 ioran 999 . . . . . . . 8 (¬ (0 ∈ 𝑦𝑧 = 0) ↔ (¬ 0 ∈ 𝑦 ∧ ¬ 𝑧 = 0))
108 df-nel 3068 . . . . . . . . 9 (0 ∉ 𝑦 ↔ ¬ 0 ∈ 𝑦)
109 df-ne 2962 . . . . . . . . 9 (𝑧 ≠ 0 ↔ ¬ 𝑧 = 0)
110108, 109anbi12i 640 . . . . . . . 8 ((0 ∉ 𝑦𝑧 ≠ 0) ↔ (¬ 0 ∈ 𝑦 ∧ ¬ 𝑧 = 0))
111107, 110bitr4i 281 . . . . . . 7 (¬ (0 ∈ 𝑦𝑧 = 0) ↔ (0 ∉ 𝑦𝑧 ≠ 0))
112 eldif 3918 . . . . . . . 8 (𝑛 ∈ (ℤ ∖ {0}) ↔ (𝑛 ∈ ℤ ∧ ¬ 𝑛 ∈ {0}))
113 velsn 4610 . . . . . . . . . . . 12 (𝑛 ∈ {0} ↔ 𝑛 = 0)
114113bicomi 227 . . . . . . . . . . 11 (𝑛 = 0 ↔ 𝑛 ∈ {0})
115114necon3abii 3007 . . . . . . . . . 10 (𝑛 ≠ 0 ↔ ¬ 𝑛 ∈ {0})
116 lcmfunsnlem2lem2 16722 . . . . . . . . . . . 12 (((0 ∉ 𝑦𝑧 ≠ 0 ∧ 𝑛 ≠ 0) ∧ (𝑛 ∈ ℤ ∧ ((𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin) ∧ (∀𝑘 ∈ ℤ (∀𝑚𝑦 𝑚𝑘 → (lcm𝑦) ∥ 𝑘) ∧ ∀𝑛 ∈ ℤ (lcm‘(𝑦 ∪ {𝑛})) = ((lcm𝑦) lcm 𝑛))))) → (lcm‘((𝑦 ∪ {𝑧}) ∪ {𝑛})) = ((lcm‘(𝑦 ∪ {𝑧})) lcm 𝑛))
117116exp520 1376 . . . . . . . . . . 11 (0 ∉ 𝑦 → (𝑧 ≠ 0 → (𝑛 ≠ 0 → (𝑛 ∈ ℤ → (((𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin) ∧ (∀𝑘 ∈ ℤ (∀𝑚𝑦 𝑚𝑘 → (lcm𝑦) ∥ 𝑘) ∧ ∀𝑛 ∈ ℤ (lcm‘(𝑦 ∪ {𝑛})) = ((lcm𝑦) lcm 𝑛))) → (lcm‘((𝑦 ∪ {𝑧}) ∪ {𝑛})) = ((lcm‘(𝑦 ∪ {𝑧})) lcm 𝑛))))))
118117imp 412 . . . . . . . . . 10 ((0 ∉ 𝑦𝑧 ≠ 0) → (𝑛 ≠ 0 → (𝑛 ∈ ℤ → (((𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin) ∧ (∀𝑘 ∈ ℤ (∀𝑚𝑦 𝑚𝑘 → (lcm𝑦) ∥ 𝑘) ∧ ∀𝑛 ∈ ℤ (lcm‘(𝑦 ∪ {𝑛})) = ((lcm𝑦) lcm 𝑛))) → (lcm‘((𝑦 ∪ {𝑧}) ∪ {𝑛})) = ((lcm‘(𝑦 ∪ {𝑧})) lcm 𝑛)))))
119115, 118biimtrrid 246 . . . . . . . . 9 ((0 ∉ 𝑦𝑧 ≠ 0) → (¬ 𝑛 ∈ {0} → (𝑛 ∈ ℤ → (((𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin) ∧ (∀𝑘 ∈ ℤ (∀𝑚𝑦 𝑚𝑘 → (lcm𝑦) ∥ 𝑘) ∧ ∀𝑛 ∈ ℤ (lcm‘(𝑦 ∪ {𝑛})) = ((lcm𝑦) lcm 𝑛))) → (lcm‘((𝑦 ∪ {𝑧}) ∪ {𝑛})) = ((lcm‘(𝑦 ∪ {𝑧})) lcm 𝑛)))))
120119impcomd 417 . . . . . . . 8 ((0 ∉ 𝑦𝑧 ≠ 0) → ((𝑛 ∈ ℤ ∧ ¬ 𝑛 ∈ {0}) → (((𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin) ∧ (∀𝑘 ∈ ℤ (∀𝑚𝑦 𝑚𝑘 → (lcm𝑦) ∥ 𝑘) ∧ ∀𝑛 ∈ ℤ (lcm‘(𝑦 ∪ {𝑛})) = ((lcm𝑦) lcm 𝑛))) → (lcm‘((𝑦 ∪ {𝑧}) ∪ {𝑛})) = ((lcm‘(𝑦 ∪ {𝑧})) lcm 𝑛))))
121112, 120biimtrid 245 . . . . . . 7 ((0 ∉ 𝑦𝑧 ≠ 0) → (𝑛 ∈ (ℤ ∖ {0}) → (((𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin) ∧ (∀𝑘 ∈ ℤ (∀𝑚𝑦 𝑚𝑘 → (lcm𝑦) ∥ 𝑘) ∧ ∀𝑛 ∈ ℤ (lcm‘(𝑦 ∪ {𝑛})) = ((lcm𝑦) lcm 𝑛))) → (lcm‘((𝑦 ∪ {𝑧}) ∪ {𝑛})) = ((lcm‘(𝑦 ∪ {𝑧})) lcm 𝑛))))
122111, 121sylbi 220 . . . . . 6 (¬ (0 ∈ 𝑦𝑧 = 0) → (𝑛 ∈ (ℤ ∖ {0}) → (((𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin) ∧ (∀𝑘 ∈ ℤ (∀𝑚𝑦 𝑚𝑘 → (lcm𝑦) ∥ 𝑘) ∧ ∀𝑛 ∈ ℤ (lcm‘(𝑦 ∪ {𝑛})) = ((lcm𝑦) lcm 𝑛))) → (lcm‘((𝑦 ∪ {𝑧}) ∪ {𝑛})) = ((lcm‘(𝑦 ∪ {𝑧})) lcm 𝑛))))
12376, 106, 122ecase3 1048 . . . . 5 (𝑛 ∈ (ℤ ∖ {0}) → (((𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin) ∧ (∀𝑘 ∈ ℤ (∀𝑚𝑦 𝑚𝑘 → (lcm𝑦) ∥ 𝑘) ∧ ∀𝑛 ∈ ℤ (lcm‘(𝑦 ∪ {𝑛})) = ((lcm𝑦) lcm 𝑛))) → (lcm‘((𝑦 ∪ {𝑧}) ∪ {𝑛})) = ((lcm‘(𝑦 ∪ {𝑧})) lcm 𝑛)))
12442, 123jaoi 871 . . . 4 ((𝑛 = 0 ∨ 𝑛 ∈ (ℤ ∖ {0})) → (((𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin) ∧ (∀𝑘 ∈ ℤ (∀𝑚𝑦 𝑚𝑘 → (lcm𝑦) ∥ 𝑘) ∧ ∀𝑛 ∈ ℤ (lcm‘(𝑦 ∪ {𝑛})) = ((lcm𝑦) lcm 𝑛))) → (lcm‘((𝑦 ∪ {𝑧}) ∪ {𝑛})) = ((lcm‘(𝑦 ∪ {𝑧})) lcm 𝑛)))
1258, 124sylbi 220 . . 3 (𝑛 ∈ ℤ → (((𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin) ∧ (∀𝑘 ∈ ℤ (∀𝑚𝑦 𝑚𝑘 → (lcm𝑦) ∥ 𝑘) ∧ ∀𝑛 ∈ ℤ (lcm‘(𝑦 ∪ {𝑛})) = ((lcm𝑦) lcm 𝑛))) → (lcm‘((𝑦 ∪ {𝑧}) ∪ {𝑛})) = ((lcm‘(𝑦 ∪ {𝑧})) lcm 𝑛)))
126125com12 33 . 2 (((𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin) ∧ (∀𝑘 ∈ ℤ (∀𝑚𝑦 𝑚𝑘 → (lcm𝑦) ∥ 𝑘) ∧ ∀𝑛 ∈ ℤ (lcm‘(𝑦 ∪ {𝑛})) = ((lcm𝑦) lcm 𝑛))) → (𝑛 ∈ ℤ → (lcm‘((𝑦 ∪ {𝑧}) ∪ {𝑛})) = ((lcm‘(𝑦 ∪ {𝑧})) lcm 𝑛)))
1275, 126ralrimi 3266 1 (((𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin) ∧ (∀𝑘 ∈ ℤ (∀𝑚𝑦 𝑚𝑘 → (lcm𝑦) ∥ 𝑘) ∧ ∀𝑛 ∈ ℤ (lcm‘(𝑦 ∪ {𝑛})) = ((lcm𝑦) lcm 𝑛))) → ∀𝑛 ∈ ℤ (lcm‘((𝑦 ∪ {𝑧}) ∪ {𝑛})) = ((lcm‘(𝑦 ∪ {𝑧})) lcm 𝑛))
Colors of variables:    wff setvar class
This proof depends on syntax axioms:  ¬ wn 3  wi 4  wb 209  wa 401  wo 861  w3a 1103   = wceq 1570  wcel 2146  wne 2961  wnel 3067  wral 3082  cdif 3905  cun 3906  wss 3908  {csn 4594   class class class wbr 5114  cfv 6543  (class class class)co 7423  Fincfn 8952  0cc0 11118  0cn0 12522  cz 12609  cdvds 16335   lcm clcm 16671  lcmclcmf 16672
This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1828  ax-4 1842  ax-5 1943  ax-6 2000  ax-7 2041  ax-8 2148  ax-9 2156  ax-10 2179  ax-11 2195  ax-12 2216  ax-ext 2738  ax-rep 5243  ax-sep 5262  ax-nul 5274  ax-pow 5341  ax-pr 5409  ax-un 7745  ax-inf2 9620  ax-cnex 11174  ax-resscn 11175  ax-1cn 11176  ax-icn 11177  ax-addcl 11178  ax-addrcl 11179  ax-mulcl 11180  ax-mulrcl 11181  ax-mulcom 11182  ax-addass 11183  ax-mulass 11184  ax-distr 11185  ax-i2m1 11186  ax-1ne0 11187  ax-1rid 11188  ax-rnegex 11189  ax-rrecex 11190  ax-cnre 11191  ax-pre-lttri 11192  ax-pre-lttrn 11193  ax-pre-ltadd 11194  ax-pre-mulgt0 11195  ax-pre-sup 11196
This proof depends on definitions:  df-bi 210  df-an 402  df-or 862  df-3or 1104  df-3an 1105  df-tru 1573  df-fal 1583  df-ex 1813  df-nf 1817  df-sb 2100  df-mo 2570  df-eu 2600  df-clab 2745  df-cleq 2758  df-clel 2841  df-nfc 2915  df-ne 2962  df-nel 3068  df-ral 3083  df-rex 3093  df-rmo 3372  df-reu 3373  df-rab 3420  df-v 3460  df-sbc 3748  df-csb 3857  df-dif 3911  df-un 3913  df-in 3915  df-ss 3925  df-pss 3928  df-nul 4290  df-if 4493  df-pw 4569  df-sn 4595  df-pr 4597  df-op 4601  df-uni 4878  df-int 4918  df-iun 4963  df-br 5115  df-opab 5179  df-mpt 5198  df-tr 5224  df-id 5561  df-eprel 5566  df-po 5574  df-so 5575  df-fr 5619  df-se 5620  df-we 5621  df-xp 5672  df-rel 5673  df-cnv 5674  df-co 5675  df-dm 5676  df-rn 5677  df-res 5678  df-ima 5679  df-pred 6309  df-ord 6370  df-on 6371  df-lim 6372  df-suc 6373  df-iota 6499  df-fun 6545  df-fn 6546  df-f 6547  df-f1 6548  df-fo 6549  df-f1o 6550  df-fv 6551  df-isom 6552  df-riota 7380  df-ov 7426  df-oprab 7427  df-mpo 7428  df-om 7872  df-1st 7995  df-2nd 7996  df-frecs 8287  df-wrecs 8318  df-recs 8367  df-rdg 8406  df-1o 8462  df-er 8703  df-en 8953  df-dom 8954  df-sdom 8955  df-fin 8956  df-sup 9412  df-inf 9413  df-oi 9482  df-card 9944  df-pnf 11263  df-mnf 11264  df-xr 11265  df-ltxr 11266  df-le 11267  df-sub 11461  df-neg 11462  df-div 11890  df-nn 12252  df-2 12321  df-3 12322  df-n0 12523  df-z 12610  df-uz 12881  df-rp 13035  df-fz 13554  df-fzo 13702  df-fl 13845  df-mod 13923  df-seq 14058  df-exp 14118  df-hash 14387  df-cj 15176  df-re 15177  df-im 15178  df-sqrt 15312  df-abs 15313  df-clim 15565  df-prod 15984  df-dvds 16336  df-gcd 16578  df-lcm 16673  df-lcmf 16674
This theorem is used by:  lcmfunsnlem  16724
  Copyright terms: Public domain W3C validator