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

Theorem lcmfunsnlem2 16736
Description: Lemma for lcmfunsn 16740 and lcmfunsnlem 16737 (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 3288 . . . 4 𝑛𝑛 ∈ ℤ (lcm‘(𝑦 ∪ {𝑛})) = ((lcm𝑦) lcm 𝑛)
42, 3nfan 1932 . . 3 𝑛(∀𝑘 ∈ ℤ (∀𝑚𝑦 𝑚𝑘 → (lcm𝑦) ∥ 𝑘) ∧ ∀𝑛 ∈ ℤ (lcm‘(𝑦 ∪ {𝑛})) = ((lcm𝑦) lcm 𝑛))
51, 4nfan 1932 . 2 𝑛((𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin) ∧ (∀𝑘 ∈ ℤ (∀𝑚𝑦 𝑚𝑘 → (lcm𝑦) ∥ 𝑘) ∧ ∀𝑛 ∈ ℤ (lcm‘(𝑦 ∪ {𝑛})) = ((lcm𝑦) lcm 𝑛)))
6 0z 12630 . . . . 5 0 ∈ ℤ
7 eqoreldif 4649 . . . . 5 (0 ∈ ℤ → (𝑛 ∈ ℤ ↔ (𝑛 = 0 ∨ 𝑛 ∈ (ℤ ∖ {0}))))
86, 7ax-mp 5 . . . 4 (𝑛 ∈ ℤ ↔ (𝑛 = 0 ∨ 𝑛 ∈ (ℤ ∖ {0})))
9 simp2 1155 . . . . . . . . . . . . 13 ((𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin) → 𝑦 ⊆ ℤ)
10 snssi 4749 . . . . . . . . . . . . . 14 (𝑧 ∈ ℤ → {𝑧} ⊆ ℤ)
11103ad2ant1 1151 . . . . . . . . . . . . 13 ((𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin) → {𝑧} ⊆ ℤ)
129, 11unssd 4141 . . . . . . . . . . . 12 ((𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin) → (𝑦 ∪ {𝑧}) ⊆ ℤ)
13 snssi 4749 . . . . . . . . . . . . 13 (0 ∈ ℤ → {0} ⊆ ℤ)
146, 13mp1i 14 . . . . . . . . . . . 12 ((𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin) → {0} ⊆ ℤ)
1512, 14unssd 4141 . . . . . . . . . . 11 ((𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin) → ((𝑦 ∪ {𝑧}) ∪ {0}) ⊆ ℤ)
16 c0ex 11228 . . . . . . . . . . . . . 14 0 ∈ V
1716snid 4626 . . . . . . . . . . . . 13 0 ∈ {0}
1817olci 880 . . . . . . . . . . . 12 (0 ∈ (𝑦 ∪ {𝑧}) ∨ 0 ∈ {0})
19 elun 4103 . . . . . . . . . . . 12 (0 ∈ ((𝑦 ∪ {𝑧}) ∪ {0}) ↔ (0 ∈ (𝑦 ∪ {𝑧}) ∨ 0 ∈ {0}))
2018, 19mpbir 234 . . . . . . . . . . 11 0 ∈ ((𝑦 ∪ {𝑧}) ∪ {0})
21 lcmf0val 16718 . . . . . . . . . . 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 4597 . . . . . . . . . . . 12 (𝑛 = 0 → {𝑛} = {0})
2524adantl 487 . . . . . . . . . . 11 (((𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin) ∧ 𝑛 = 0) → {𝑛} = {0})
2625uneq2d 4118 . . . . . . . . . 10 (((𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin) ∧ 𝑛 = 0) → ((𝑦 ∪ {𝑧}) ∪ {𝑛}) = ((𝑦 ∪ {𝑧}) ∪ {0}))
2726fveq2d 6886 . . . . . . . . 9 (((𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin) ∧ 𝑛 = 0) → (lcm‘((𝑦 ∪ {𝑧}) ∪ {𝑛})) = (lcm‘((𝑦 ∪ {𝑧}) ∪ {0})))
28 oveq2 7425 . . . . . . . . . 10 (𝑛 = 0 → ((lcm‘(𝑦 ∪ {𝑧})) lcm 𝑛) = ((lcm‘(𝑦 ∪ {𝑧})) lcm 0))
29 snfi 9054 . . . . . . . . . . . . . . 15 {𝑧} ∈ Fin
30 unfi 9169 . . . . . . . . . . . . . . 15 ((𝑦 ∈ Fin ∧ {𝑧} ∈ Fin) → (𝑦 ∪ {𝑧}) ∈ Fin)
3129, 30mpan2 704 . . . . . . . . . . . . . 14 (𝑦 ∈ Fin → (𝑦 ∪ {𝑧}) ∈ Fin)
32313ad2ant3 1153 . . . . . . . . . . . . 13 ((𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin) → (𝑦 ∪ {𝑧}) ∈ Fin)
33 lcmfcl 16724 . . . . . . . . . . . . 13 (((𝑦 ∪ {𝑧}) ⊆ ℤ ∧ (𝑦 ∪ {𝑧}) ∈ Fin) → (lcm‘(𝑦 ∪ {𝑧})) ∈ ℕ0)
3412, 32, 33syl2anc 596 . . . . . . . . . . . 12 ((𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin) → (lcm‘(𝑦 ∪ {𝑧})) ∈ ℕ0)
3534nn0zd 12644 . . . . . . . . . . 11 ((𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin) → (lcm‘(𝑦 ∪ {𝑧})) ∈ ℤ)
36 lcm0val 16690 . . . . . . . . . . 11 ((lcm‘(𝑦 ∪ {𝑧})) ∈ ℤ → ((lcm‘(𝑦 ∪ {𝑧})) lcm 0) = 0)
3735, 36syl 18 . . . . . . . . . 10 ((𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin) → ((lcm‘(𝑦 ∪ {𝑧})) lcm 0) = 0)
3828, 37sylan9eqr 2819 . . . . . . . . 9 (((𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin) ∧ 𝑛 = 0) → ((lcm‘(𝑦 ∪ {𝑧})) lcm 𝑛) = 0)
3923, 27, 383eqtr4d 2807 . . . . . . . 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 4141 . . . . . . . . . . . . 13 (((0 ∈ 𝑦𝑛 ∈ (ℤ ∖ {0})) ∧ (𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin)) → (𝑦 ∪ {𝑧}) ⊆ ℤ)
46 elun1 4131 . . . . . . . . . . . . . 14 (0 ∈ 𝑦 → 0 ∈ (𝑦 ∪ {𝑧}))
4746ad2antrr 739 . . . . . . . . . . . . 13 (((0 ∈ 𝑦𝑛 ∈ (ℤ ∖ {0})) ∧ (𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin)) → 0 ∈ (𝑦 ∪ {𝑧}))
48 lcmf0val 16718 . . . . . . . . . . . . 13 (((𝑦 ∪ {𝑧}) ⊆ ℤ ∧ 0 ∈ (𝑦 ∪ {𝑧})) → (lcm‘(𝑦 ∪ {𝑧})) = 0)
4945, 47, 48syl2anc 596 . . . . . . . . . . . 12 (((0 ∈ 𝑦𝑛 ∈ (ℤ ∖ {0})) ∧ (𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin)) → (lcm‘(𝑦 ∪ {𝑧})) = 0)
5049oveq2d 7433 . . . . . . . . . . 11 (((0 ∈ 𝑦𝑛 ∈ (ℤ ∖ {0})) ∧ (𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin)) → (𝑛 lcm (lcm‘(𝑦 ∪ {𝑧}))) = (𝑛 lcm 0))
51 eldifi 4081 . . . . . . . . . . . . 13 (𝑛 ∈ (ℤ ∖ {0}) → 𝑛 ∈ ℤ)
52 lcm0val 16690 . . . . . . . . . . . . 13 (𝑛 ∈ ℤ → (𝑛 lcm 0) = 0)
5351, 52syl 18 . . . . . . . . . . . 12 (𝑛 ∈ (ℤ ∖ {0}) → (𝑛 lcm 0) = 0)
5453ad2antlr 740 . . . . . . . . . . 11 (((0 ∈ 𝑦𝑛 ∈ (ℤ ∖ {0})) ∧ (𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin)) → (𝑛 lcm 0) = 0)
5550, 54eqtrd 2797 . . . . . . . . . 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 12644 . . . . . . . . . . 11 ((𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin) → (lcm‘(𝑦 ∪ {𝑧})) ∈ ℤ)
6051adantl 487 . . . . . . . . . . 11 ((0 ∈ 𝑦𝑛 ∈ (ℤ ∖ {0})) → 𝑛 ∈ ℤ)
61 lcmcom 16689 . . . . . . . . . . 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 4750 . . . . . . . . . . . . 13 (𝑛 ∈ (ℤ ∖ {0}) → {𝑛} ⊆ ℤ)
6564ad2antlr 740 . . . . . . . . . . . 12 (((0 ∈ 𝑦𝑛 ∈ (ℤ ∖ {0})) ∧ (𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin)) → {𝑛} ⊆ ℤ)
6663, 65unssd 4141 . . . . . . . . . . 11 (((0 ∈ 𝑦𝑛 ∈ (ℤ ∖ {0})) ∧ (𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin)) → ((𝑦 ∪ {𝑧}) ∪ {𝑛}) ⊆ ℤ)
6746orcd 887 . . . . . . . . . . . . 13 (0 ∈ 𝑦 → (0 ∈ (𝑦 ∪ {𝑧}) ∨ 0 ∈ {𝑛}))
68 elun 4103 . . . . . . . . . . . . 13 (0 ∈ ((𝑦 ∪ {𝑧}) ∪ {𝑛}) ↔ (0 ∈ (𝑦 ∪ {𝑧}) ∨ 0 ∈ {𝑛}))
6967, 68sylibr 237 . . . . . . . . . . . 12 (0 ∈ 𝑦 → 0 ∈ ((𝑦 ∪ {𝑧}) ∪ {𝑛}))
7069ad2antrr 739 . . . . . . . . . . 11 (((0 ∈ 𝑦𝑛 ∈ (ℤ ∖ {0})) ∧ (𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin)) → 0 ∈ ((𝑦 ∪ {𝑧}) ∪ {𝑛}))
71 lcmf0val 16718 . . . . . . . . . . 11 ((((𝑦 ∪ {𝑧}) ∪ {𝑛}) ⊆ ℤ ∧ 0 ∈ ((𝑦 ∪ {𝑧}) ∪ {𝑛})) → (lcm‘((𝑦 ∪ {𝑧}) ∪ {𝑛})) = 0)
7266, 70, 71syl2anc 596 . . . . . . . . . 10 (((0 ∈ 𝑦𝑛 ∈ (ℤ ∖ {0})) ∧ (𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin)) → (lcm‘((𝑦 ∪ {𝑧}) ∪ {𝑛})) = 0)
7355, 62, 723eqtr4rd 2808 . . . . . . . . 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 4601 . . . . . . . . . . . . . . . . . . 19 (0 ∈ ℤ → (0 ∈ {𝑧} ↔ 0 = 𝑧))
78 eqcom 2769 . . . . . . . . . . . . . . . . . . 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 4103 . . . . . . . . . . . . . 14 (0 ∈ (𝑦 ∪ {𝑧}) ↔ (0 ∈ 𝑦 ∨ 0 ∈ {𝑧}))
8583, 84sylibr 237 . . . . . . . . . . . . 13 (((𝑧 = 0 ∧ 𝑛 ∈ (ℤ ∖ {0})) ∧ (𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin)) → 0 ∈ (𝑦 ∪ {𝑧}))
8612, 85, 48syl2an2 699 . . . . . . . . . . . 12 (((𝑧 = 0 ∧ 𝑛 ∈ (ℤ ∖ {0})) ∧ (𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin)) → (lcm‘(𝑦 ∪ {𝑧})) = 0)
8786oveq2d 7433 . . . . . . . . . . 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 2797 . . . . . . . . . 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 4141 . . . . . . . . . . 11 (((𝑧 = 0 ∧ 𝑛 ∈ (ℤ ∖ {0})) ∧ (𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin)) → ((𝑦 ∪ {𝑧}) ∪ {𝑛}) ⊆ ℤ)
95 sneq 4597 . . . . . . . . . . . . . . . . 17 (𝑧 = 0 → {𝑧} = {0})
9617, 95eleqtrrid 2869 . . . . . . . . . . . . . . . 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 2808 . . . . . . . . 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 3064 . . . . . . . . 9 (0 ∉ 𝑦 ↔ ¬ 0 ∈ 𝑦)
109 df-ne 2958 . . . . . . . . 9 (𝑧 ≠ 0 ↔ ¬ 𝑧 = 0)
110108, 109anbi12i 640 . . . . . . . 8 ((0 ∉ 𝑦𝑧 ≠ 0) ↔ (¬ 0 ∈ 𝑦 ∧ ¬ 𝑧 = 0))
111107, 110bitr4i 281 . . . . . . 7 (¬ (0 ∈ 𝑦𝑧 = 0) ↔ (0 ∉ 𝑦𝑧 ≠ 0))
112 eldif 3912 . . . . . . . 8 (𝑛 ∈ (ℤ ∖ {0}) ↔ (𝑛 ∈ ℤ ∧ ¬ 𝑛 ∈ {0}))
113 velsn 4603 . . . . . . . . . . . 12 (𝑛 ∈ {0} ↔ 𝑛 = 0)
114113bicomi 227 . . . . . . . . . . 11 (𝑛 = 0 ↔ 𝑛 ∈ {0})
115114necon3abii 3003 . . . . . . . . . 10 (𝑛 ≠ 0 ↔ ¬ 𝑛 ∈ {0})
116 lcmfunsnlem2lem2 16735 . . . . . . . . . . . 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 3262 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 2145  wne 2957  wnel 3063  wral 3078  cdif 3899  cun 3900  wss 3902  {csn 4587   class class class wbr 5107  cfv 6537  (class class class)co 7417  Fincfn 8956  0cc0 11128  0cn0 12532  cz 12619  cdvds 16348   lcm clcm 16684  lcmclcmf 16685
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 2147  ax-9 2155  ax-10 2178  ax-11 2194  ax-12 2215  ax-ext 2734  ax-rep 5236  ax-sep 5255  ax-nul 5267  ax-pow 5334  ax-pr 5402  ax-un 7740  ax-inf2 9624  ax-cnex 11184  ax-resscn 11185  ax-1cn 11186  ax-icn 11187  ax-addcl 11188  ax-addrcl 11189  ax-mulcl 11190  ax-mulrcl 11191  ax-mulcom 11192  ax-addass 11193  ax-mulass 11194  ax-distr 11195  ax-i2m1 11196  ax-1ne0 11197  ax-1rid 11198  ax-rnegex 11199  ax-rrecex 11200  ax-cnre 11201  ax-pre-lttri 11202  ax-pre-lttrn 11203  ax-pre-ltadd 11204  ax-pre-mulgt0 11205  ax-pre-sup 11206
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 2566  df-eu 2596  df-clab 2741  df-cleq 2754  df-clel 2837  df-nfc 2911  df-ne 2958  df-nel 3064  df-ral 3079  df-rex 3089  df-rmo 3367  df-reu 3368  df-rab 3415  df-v 3455  df-sbc 3743  df-csb 3851  df-dif 3905  df-un 3907  df-in 3909  df-ss 3919  df-pss 3922  df-nul 4283  df-if 4486  df-pw 4562  df-sn 4588  df-pr 4590  df-op 4594  df-uni 4871  df-int 4911  df-iun 4956  df-br 5108  df-opab 5172  df-mpt 5191  df-tr 5217  df-id 5554  df-eprel 5559  df-po 5567  df-so 5568  df-fr 5612  df-se 5613  df-we 5614  df-xp 5665  df-rel 5666  df-cnv 5667  df-co 5668  df-dm 5669  df-rn 5670  df-res 5671  df-ima 5672  df-pred 6303  df-ord 6364  df-on 6365  df-lim 6366  df-suc 6367  df-iota 6493  df-fun 6539  df-fn 6540  df-f 6541  df-f1 6542  df-fo 6543  df-f1o 6544  df-fv 6545  df-isom 6546  df-riota 7374  df-ov 7420  df-oprab 7421  df-mpo 7422  df-om 7867  df-1st 7990  df-2nd 7991  df-frecs 8284  df-wrecs 8315  df-recs 8364  df-rdg 8403  df-1o 8459  df-er 8700  df-en 8957  df-dom 8958  df-sdom 8959  df-fin 8960  df-sup 9416  df-inf 9417  df-oi 9486  df-card 9948  df-pnf 11273  df-mnf 11274  df-xr 11275  df-ltxr 11276  df-le 11277  df-sub 11471  df-neg 11472  df-div 11900  df-nn 12262  df-2 12331  df-3 12332  df-n0 12533  df-z 12620  df-uz 12892  df-rp 13047  df-fz 13566  df-fzo 13714  df-fl 13857  df-mod 13935  df-seq 14070  df-exp 14130  df-hash 14399  df-cj 15190  df-re 15191  df-im 15192  df-sqrt 15326  df-abs 15327  df-clim 15579  df-prod 15997  df-dvds 16349  df-gcd 16591  df-lcm 16686  df-lcmf 16687
This theorem is used by:  lcmfunsnlem  16737
  Copyright terms: Public domain W3C validator