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

Theorem lcmfunsnlem2 16582
Description: Lemma for lcmfunsn 16586 and lcmfunsnlem 16583 (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 1916 . . 3 𝑛(𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin)
2 nfv 1916 . . . 4 𝑛𝑘 ∈ ℤ (∀𝑚𝑦 𝑚𝑘 → (lcm𝑦) ∥ 𝑘)
3 nfra1 3280 . . . 4 𝑛𝑛 ∈ ℤ (lcm‘(𝑦 ∪ {𝑛})) = ((lcm𝑦) lcm 𝑛)
42, 3nfan 1901 . . 3 𝑛(∀𝑘 ∈ ℤ (∀𝑚𝑦 𝑚𝑘 → (lcm𝑦) ∥ 𝑘) ∧ ∀𝑛 ∈ ℤ (lcm‘(𝑦 ∪ {𝑛})) = ((lcm𝑦) lcm 𝑛))
51, 4nfan 1901 . 2 𝑛((𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin) ∧ (∀𝑘 ∈ ℤ (∀𝑚𝑦 𝑚𝑘 → (lcm𝑦) ∥ 𝑘) ∧ ∀𝑛 ∈ ℤ (lcm‘(𝑦 ∪ {𝑛})) = ((lcm𝑦) lcm 𝑛)))
6 0z 12574 . . . . 5 0 ∈ ℤ
7 eqoreldif 4689 . . . . 5 (0 ∈ ℤ → (𝑛 ∈ ℤ ↔ (𝑛 = 0 ∨ 𝑛 ∈ (ℤ ∖ {0}))))
86, 7ax-mp 5 . . . 4 (𝑛 ∈ ℤ ↔ (𝑛 = 0 ∨ 𝑛 ∈ (ℤ ∖ {0})))
9 simp2 1136 . . . . . . . . . . . . 13 ((𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin) → 𝑦 ⊆ ℤ)
10 snssi 4812 . . . . . . . . . . . . . 14 (𝑧 ∈ ℤ → {𝑧} ⊆ ℤ)
11103ad2ant1 1132 . . . . . . . . . . . . 13 ((𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin) → {𝑧} ⊆ ℤ)
129, 11unssd 4187 . . . . . . . . . . . 12 ((𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin) → (𝑦 ∪ {𝑧}) ⊆ ℤ)
13 snssi 4812 . . . . . . . . . . . . 13 (0 ∈ ℤ → {0} ⊆ ℤ)
146, 13mp1i 13 . . . . . . . . . . . 12 ((𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin) → {0} ⊆ ℤ)
1512, 14unssd 4187 . . . . . . . . . . 11 ((𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin) → ((𝑦 ∪ {𝑧}) ∪ {0}) ⊆ ℤ)
16 c0ex 11213 . . . . . . . . . . . . . 14 0 ∈ V
1716snid 4665 . . . . . . . . . . . . 13 0 ∈ {0}
1817olci 863 . . . . . . . . . . . 12 (0 ∈ (𝑦 ∪ {𝑧}) ∨ 0 ∈ {0})
19 elun 4149 . . . . . . . . . . . 12 (0 ∈ ((𝑦 ∪ {𝑧}) ∪ {0}) ↔ (0 ∈ (𝑦 ∪ {𝑧}) ∨ 0 ∈ {0}))
2018, 19mpbir 230 . . . . . . . . . . 11 0 ∈ ((𝑦 ∪ {𝑧}) ∪ {0})
21 lcmf0val 16564 . . . . . . . . . . 11 ((((𝑦 ∪ {𝑧}) ∪ {0}) ⊆ ℤ ∧ 0 ∈ ((𝑦 ∪ {𝑧}) ∪ {0})) → (lcm‘((𝑦 ∪ {𝑧}) ∪ {0})) = 0)
2215, 20, 21sylancl 585 . . . . . . . . . 10 ((𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin) → (lcm‘((𝑦 ∪ {𝑧}) ∪ {0})) = 0)
2322adantr 480 . . . . . . . . 9 (((𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin) ∧ 𝑛 = 0) → (lcm‘((𝑦 ∪ {𝑧}) ∪ {0})) = 0)
24 sneq 4639 . . . . . . . . . . . 12 (𝑛 = 0 → {𝑛} = {0})
2524adantl 481 . . . . . . . . . . 11 (((𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin) ∧ 𝑛 = 0) → {𝑛} = {0})
2625uneq2d 4164 . . . . . . . . . 10 (((𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin) ∧ 𝑛 = 0) → ((𝑦 ∪ {𝑧}) ∪ {𝑛}) = ((𝑦 ∪ {𝑧}) ∪ {0}))
2726fveq2d 6896 . . . . . . . . 9 (((𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin) ∧ 𝑛 = 0) → (lcm‘((𝑦 ∪ {𝑧}) ∪ {𝑛})) = (lcm‘((𝑦 ∪ {𝑧}) ∪ {0})))
28 oveq2 7420 . . . . . . . . . 10 (𝑛 = 0 → ((lcm‘(𝑦 ∪ {𝑧})) lcm 𝑛) = ((lcm‘(𝑦 ∪ {𝑧})) lcm 0))
29 snfi 9047 . . . . . . . . . . . . . . 15 {𝑧} ∈ Fin
30 unfi 9175 . . . . . . . . . . . . . . 15 ((𝑦 ∈ Fin ∧ {𝑧} ∈ Fin) → (𝑦 ∪ {𝑧}) ∈ Fin)
3129, 30mpan2 688 . . . . . . . . . . . . . 14 (𝑦 ∈ Fin → (𝑦 ∪ {𝑧}) ∈ Fin)
32313ad2ant3 1134 . . . . . . . . . . . . 13 ((𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin) → (𝑦 ∪ {𝑧}) ∈ Fin)
33 lcmfcl 16570 . . . . . . . . . . . . 13 (((𝑦 ∪ {𝑧}) ⊆ ℤ ∧ (𝑦 ∪ {𝑧}) ∈ Fin) → (lcm‘(𝑦 ∪ {𝑧})) ∈ ℕ0)
3412, 32, 33syl2anc 583 . . . . . . . . . . . 12 ((𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin) → (lcm‘(𝑦 ∪ {𝑧})) ∈ ℕ0)
3534nn0zd 12589 . . . . . . . . . . 11 ((𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin) → (lcm‘(𝑦 ∪ {𝑧})) ∈ ℤ)
36 lcm0val 16536 . . . . . . . . . . 11 ((lcm‘(𝑦 ∪ {𝑧})) ∈ ℤ → ((lcm‘(𝑦 ∪ {𝑧})) lcm 0) = 0)
3735, 36syl 17 . . . . . . . . . 10 ((𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin) → ((lcm‘(𝑦 ∪ {𝑧})) lcm 0) = 0)
3828, 37sylan9eqr 2793 . . . . . . . . 9 (((𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin) ∧ 𝑛 = 0) → ((lcm‘(𝑦 ∪ {𝑧})) lcm 𝑛) = 0)
3923, 27, 383eqtr4d 2781 . . . . . . . 8 (((𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin) ∧ 𝑛 = 0) → (lcm‘((𝑦 ∪ {𝑧}) ∪ {𝑛})) = ((lcm‘(𝑦 ∪ {𝑧})) lcm 𝑛))
4039ex 412 . . . . . . 7 ((𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin) → (𝑛 = 0 → (lcm‘((𝑦 ∪ {𝑧}) ∪ {𝑛})) = ((lcm‘(𝑦 ∪ {𝑧})) lcm 𝑛)))
4140adantr 480 . . . . . 6 (((𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin) ∧ (∀𝑘 ∈ ℤ (∀𝑚𝑦 𝑚𝑘 → (lcm𝑦) ∥ 𝑘) ∧ ∀𝑛 ∈ ℤ (lcm‘(𝑦 ∪ {𝑛})) = ((lcm𝑦) lcm 𝑛))) → (𝑛 = 0 → (lcm‘((𝑦 ∪ {𝑧}) ∪ {𝑛})) = ((lcm‘(𝑦 ∪ {𝑧})) lcm 𝑛)))
4241com12 32 . . . . 5 (𝑛 = 0 → (((𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin) ∧ (∀𝑘 ∈ ℤ (∀𝑚𝑦 𝑚𝑘 → (lcm𝑦) ∥ 𝑘) ∧ ∀𝑛 ∈ ℤ (lcm‘(𝑦 ∪ {𝑛})) = ((lcm𝑦) lcm 𝑛))) → (lcm‘((𝑦 ∪ {𝑧}) ∪ {𝑛})) = ((lcm‘(𝑦 ∪ {𝑧})) lcm 𝑛)))
439adantl 481 . . . . . . . . . . . . . 14 (((0 ∈ 𝑦𝑛 ∈ (ℤ ∖ {0})) ∧ (𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin)) → 𝑦 ⊆ ℤ)
4411adantl 481 . . . . . . . . . . . . . 14 (((0 ∈ 𝑦𝑛 ∈ (ℤ ∖ {0})) ∧ (𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin)) → {𝑧} ⊆ ℤ)
4543, 44unssd 4187 . . . . . . . . . . . . 13 (((0 ∈ 𝑦𝑛 ∈ (ℤ ∖ {0})) ∧ (𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin)) → (𝑦 ∪ {𝑧}) ⊆ ℤ)
46 elun1 4177 . . . . . . . . . . . . . 14 (0 ∈ 𝑦 → 0 ∈ (𝑦 ∪ {𝑧}))
4746ad2antrr 723 . . . . . . . . . . . . 13 (((0 ∈ 𝑦𝑛 ∈ (ℤ ∖ {0})) ∧ (𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin)) → 0 ∈ (𝑦 ∪ {𝑧}))
48 lcmf0val 16564 . . . . . . . . . . . . 13 (((𝑦 ∪ {𝑧}) ⊆ ℤ ∧ 0 ∈ (𝑦 ∪ {𝑧})) → (lcm‘(𝑦 ∪ {𝑧})) = 0)
4945, 47, 48syl2anc 583 . . . . . . . . . . . 12 (((0 ∈ 𝑦𝑛 ∈ (ℤ ∖ {0})) ∧ (𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin)) → (lcm‘(𝑦 ∪ {𝑧})) = 0)
5049oveq2d 7428 . . . . . . . . . . 11 (((0 ∈ 𝑦𝑛 ∈ (ℤ ∖ {0})) ∧ (𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin)) → (𝑛 lcm (lcm‘(𝑦 ∪ {𝑧}))) = (𝑛 lcm 0))
51 eldifi 4127 . . . . . . . . . . . . 13 (𝑛 ∈ (ℤ ∖ {0}) → 𝑛 ∈ ℤ)
52 lcm0val 16536 . . . . . . . . . . . . 13 (𝑛 ∈ ℤ → (𝑛 lcm 0) = 0)
5351, 52syl 17 . . . . . . . . . . . 12 (𝑛 ∈ (ℤ ∖ {0}) → (𝑛 lcm 0) = 0)
5453ad2antlr 724 . . . . . . . . . . 11 (((0 ∈ 𝑦𝑛 ∈ (ℤ ∖ {0})) ∧ (𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin)) → (𝑛 lcm 0) = 0)
5550, 54eqtrd 2771 . . . . . . . . . 10 (((0 ∈ 𝑦𝑛 ∈ (ℤ ∖ {0})) ∧ (𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin)) → (𝑛 lcm (lcm‘(𝑦 ∪ {𝑧}))) = 0)
56 simp3 1137 . . . . . . . . . . . . . 14 ((𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin) → 𝑦 ∈ Fin)
5756, 29, 30sylancl 585 . . . . . . . . . . . . 13 ((𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin) → (𝑦 ∪ {𝑧}) ∈ Fin)
5812, 57, 33syl2anc 583 . . . . . . . . . . . 12 ((𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin) → (lcm‘(𝑦 ∪ {𝑧})) ∈ ℕ0)
5958nn0zd 12589 . . . . . . . . . . 11 ((𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin) → (lcm‘(𝑦 ∪ {𝑧})) ∈ ℤ)
6051adantl 481 . . . . . . . . . . 11 ((0 ∈ 𝑦𝑛 ∈ (ℤ ∖ {0})) → 𝑛 ∈ ℤ)
61 lcmcom 16535 . . . . . . . . . . 11 (((lcm‘(𝑦 ∪ {𝑧})) ∈ ℤ ∧ 𝑛 ∈ ℤ) → ((lcm‘(𝑦 ∪ {𝑧})) lcm 𝑛) = (𝑛 lcm (lcm‘(𝑦 ∪ {𝑧}))))
6259, 60, 61syl2anr 596 . . . . . . . . . 10 (((0 ∈ 𝑦𝑛 ∈ (ℤ ∖ {0})) ∧ (𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin)) → ((lcm‘(𝑦 ∪ {𝑧})) lcm 𝑛) = (𝑛 lcm (lcm‘(𝑦 ∪ {𝑧}))))
6312adantl 481 . . . . . . . . . . . 12 (((0 ∈ 𝑦𝑛 ∈ (ℤ ∖ {0})) ∧ (𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin)) → (𝑦 ∪ {𝑧}) ⊆ ℤ)
6451snssd 4813 . . . . . . . . . . . . 13 (𝑛 ∈ (ℤ ∖ {0}) → {𝑛} ⊆ ℤ)
6564ad2antlr 724 . . . . . . . . . . . 12 (((0 ∈ 𝑦𝑛 ∈ (ℤ ∖ {0})) ∧ (𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin)) → {𝑛} ⊆ ℤ)
6663, 65unssd 4187 . . . . . . . . . . 11 (((0 ∈ 𝑦𝑛 ∈ (ℤ ∖ {0})) ∧ (𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin)) → ((𝑦 ∪ {𝑧}) ∪ {𝑛}) ⊆ ℤ)
6746orcd 870 . . . . . . . . . . . . 13 (0 ∈ 𝑦 → (0 ∈ (𝑦 ∪ {𝑧}) ∨ 0 ∈ {𝑛}))
68 elun 4149 . . . . . . . . . . . . 13 (0 ∈ ((𝑦 ∪ {𝑧}) ∪ {𝑛}) ↔ (0 ∈ (𝑦 ∪ {𝑧}) ∨ 0 ∈ {𝑛}))
6967, 68sylibr 233 . . . . . . . . . . . 12 (0 ∈ 𝑦 → 0 ∈ ((𝑦 ∪ {𝑧}) ∪ {𝑛}))
7069ad2antrr 723 . . . . . . . . . . 11 (((0 ∈ 𝑦𝑛 ∈ (ℤ ∖ {0})) ∧ (𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin)) → 0 ∈ ((𝑦 ∪ {𝑧}) ∪ {𝑛}))
71 lcmf0val 16564 . . . . . . . . . . 11 ((((𝑦 ∪ {𝑧}) ∪ {𝑛}) ⊆ ℤ ∧ 0 ∈ ((𝑦 ∪ {𝑧}) ∪ {𝑛})) → (lcm‘((𝑦 ∪ {𝑧}) ∪ {𝑛})) = 0)
7266, 70, 71syl2anc 583 . . . . . . . . . 10 (((0 ∈ 𝑦𝑛 ∈ (ℤ ∖ {0})) ∧ (𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin)) → (lcm‘((𝑦 ∪ {𝑧}) ∪ {𝑛})) = 0)
7355, 62, 723eqtr4rd 2782 . . . . . . . . 9 (((0 ∈ 𝑦𝑛 ∈ (ℤ ∖ {0})) ∧ (𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin)) → (lcm‘((𝑦 ∪ {𝑧}) ∪ {𝑛})) = ((lcm‘(𝑦 ∪ {𝑧})) lcm 𝑛))
7473a1d 25 . . . . . . . 8 (((0 ∈ 𝑦𝑛 ∈ (ℤ ∖ {0})) ∧ (𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin)) → ((∀𝑘 ∈ ℤ (∀𝑚𝑦 𝑚𝑘 → (lcm𝑦) ∥ 𝑘) ∧ ∀𝑛 ∈ ℤ (lcm‘(𝑦 ∪ {𝑛})) = ((lcm𝑦) lcm 𝑛)) → (lcm‘((𝑦 ∪ {𝑧}) ∪ {𝑛})) = ((lcm‘(𝑦 ∪ {𝑧})) lcm 𝑛)))
7574expimpd 453 . . . . . . 7 ((0 ∈ 𝑦𝑛 ∈ (ℤ ∖ {0})) → (((𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin) ∧ (∀𝑘 ∈ ℤ (∀𝑚𝑦 𝑚𝑘 → (lcm𝑦) ∥ 𝑘) ∧ ∀𝑛 ∈ ℤ (lcm‘(𝑦 ∪ {𝑛})) = ((lcm𝑦) lcm 𝑛))) → (lcm‘((𝑦 ∪ {𝑧}) ∪ {𝑛})) = ((lcm‘(𝑦 ∪ {𝑧})) lcm 𝑛)))
7675ex 412 . . . . . 6 (0 ∈ 𝑦 → (𝑛 ∈ (ℤ ∖ {0}) → (((𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin) ∧ (∀𝑘 ∈ ℤ (∀𝑚𝑦 𝑚𝑘 → (lcm𝑦) ∥ 𝑘) ∧ ∀𝑛 ∈ ℤ (lcm‘(𝑦 ∪ {𝑛})) = ((lcm𝑦) lcm 𝑛))) → (lcm‘((𝑦 ∪ {𝑧}) ∪ {𝑛})) = ((lcm‘(𝑦 ∪ {𝑧})) lcm 𝑛))))
77 elsng 4643 . . . . . . . . . . . . . . . . . . 19 (0 ∈ ℤ → (0 ∈ {𝑧} ↔ 0 = 𝑧))
78 eqcom 2738 . . . . . . . . . . . . . . . . . . 19 (0 = 𝑧𝑧 = 0)
7977, 78bitrdi 286 . . . . . . . . . . . . . . . . . 18 (0 ∈ ℤ → (0 ∈ {𝑧} ↔ 𝑧 = 0))
806, 79ax-mp 5 . . . . . . . . . . . . . . . . 17 (0 ∈ {𝑧} ↔ 𝑧 = 0)
8180biimpri 227 . . . . . . . . . . . . . . . 16 (𝑧 = 0 → 0 ∈ {𝑧})
8281ad2antrr 723 . . . . . . . . . . . . . . 15 (((𝑧 = 0 ∧ 𝑛 ∈ (ℤ ∖ {0})) ∧ (𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin)) → 0 ∈ {𝑧})
8382olcd 871 . . . . . . . . . . . . . 14 (((𝑧 = 0 ∧ 𝑛 ∈ (ℤ ∖ {0})) ∧ (𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin)) → (0 ∈ 𝑦 ∨ 0 ∈ {𝑧}))
84 elun 4149 . . . . . . . . . . . . . 14 (0 ∈ (𝑦 ∪ {𝑧}) ↔ (0 ∈ 𝑦 ∨ 0 ∈ {𝑧}))
8583, 84sylibr 233 . . . . . . . . . . . . 13 (((𝑧 = 0 ∧ 𝑛 ∈ (ℤ ∖ {0})) ∧ (𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin)) → 0 ∈ (𝑦 ∪ {𝑧}))
8612, 85, 48syl2an2 683 . . . . . . . . . . . 12 (((𝑧 = 0 ∧ 𝑛 ∈ (ℤ ∖ {0})) ∧ (𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin)) → (lcm‘(𝑦 ∪ {𝑧})) = 0)
8786oveq2d 7428 . . . . . . . . . . 11 (((𝑧 = 0 ∧ 𝑛 ∈ (ℤ ∖ {0})) ∧ (𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin)) → (𝑛 lcm (lcm‘(𝑦 ∪ {𝑧}))) = (𝑛 lcm 0))
8851ad2antlr 724 . . . . . . . . . . . 12 (((𝑧 = 0 ∧ 𝑛 ∈ (ℤ ∖ {0})) ∧ (𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin)) → 𝑛 ∈ ℤ)
8988, 52syl 17 . . . . . . . . . . 11 (((𝑧 = 0 ∧ 𝑛 ∈ (ℤ ∖ {0})) ∧ (𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin)) → (𝑛 lcm 0) = 0)
9087, 89eqtrd 2771 . . . . . . . . . 10 (((𝑧 = 0 ∧ 𝑛 ∈ (ℤ ∖ {0})) ∧ (𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin)) → (𝑛 lcm (lcm‘(𝑦 ∪ {𝑧}))) = 0)
9159, 88, 61syl2an2 683 . . . . . . . . . 10 (((𝑧 = 0 ∧ 𝑛 ∈ (ℤ ∖ {0})) ∧ (𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin)) → ((lcm‘(𝑦 ∪ {𝑧})) lcm 𝑛) = (𝑛 lcm (lcm‘(𝑦 ∪ {𝑧}))))
9212adantl 481 . . . . . . . . . . . 12 (((𝑧 = 0 ∧ 𝑛 ∈ (ℤ ∖ {0})) ∧ (𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin)) → (𝑦 ∪ {𝑧}) ⊆ ℤ)
9364ad2antlr 724 . . . . . . . . . . . 12 (((𝑧 = 0 ∧ 𝑛 ∈ (ℤ ∖ {0})) ∧ (𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin)) → {𝑛} ⊆ ℤ)
9492, 93unssd 4187 . . . . . . . . . . 11 (((𝑧 = 0 ∧ 𝑛 ∈ (ℤ ∖ {0})) ∧ (𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin)) → ((𝑦 ∪ {𝑧}) ∪ {𝑛}) ⊆ ℤ)
95 sneq 4639 . . . . . . . . . . . . . . . . 17 (𝑧 = 0 → {𝑧} = {0})
9617, 95eleqtrrid 2839 . . . . . . . . . . . . . . . 16 (𝑧 = 0 → 0 ∈ {𝑧})
9796ad2antrr 723 . . . . . . . . . . . . . . 15 (((𝑧 = 0 ∧ 𝑛 ∈ (ℤ ∖ {0})) ∧ (𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin)) → 0 ∈ {𝑧})
9897olcd 871 . . . . . . . . . . . . . 14 (((𝑧 = 0 ∧ 𝑛 ∈ (ℤ ∖ {0})) ∧ (𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin)) → (0 ∈ 𝑦 ∨ 0 ∈ {𝑧}))
9998, 84sylibr 233 . . . . . . . . . . . . 13 (((𝑧 = 0 ∧ 𝑛 ∈ (ℤ ∖ {0})) ∧ (𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin)) → 0 ∈ (𝑦 ∪ {𝑧}))
10099orcd 870 . . . . . . . . . . . 12 (((𝑧 = 0 ∧ 𝑛 ∈ (ℤ ∖ {0})) ∧ (𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin)) → (0 ∈ (𝑦 ∪ {𝑧}) ∨ 0 ∈ {𝑛}))
101100, 68sylibr 233 . . . . . . . . . . 11 (((𝑧 = 0 ∧ 𝑛 ∈ (ℤ ∖ {0})) ∧ (𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin)) → 0 ∈ ((𝑦 ∪ {𝑧}) ∪ {𝑛}))
10294, 101, 71syl2anc 583 . . . . . . . . . 10 (((𝑧 = 0 ∧ 𝑛 ∈ (ℤ ∖ {0})) ∧ (𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin)) → (lcm‘((𝑦 ∪ {𝑧}) ∪ {𝑛})) = 0)
10390, 91, 1023eqtr4rd 2782 . . . . . . . . 9 (((𝑧 = 0 ∧ 𝑛 ∈ (ℤ ∖ {0})) ∧ (𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin)) → (lcm‘((𝑦 ∪ {𝑧}) ∪ {𝑛})) = ((lcm‘(𝑦 ∪ {𝑧})) lcm 𝑛))
104103a1d 25 . . . . . . . 8 (((𝑧 = 0 ∧ 𝑛 ∈ (ℤ ∖ {0})) ∧ (𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin)) → ((∀𝑘 ∈ ℤ (∀𝑚𝑦 𝑚𝑘 → (lcm𝑦) ∥ 𝑘) ∧ ∀𝑛 ∈ ℤ (lcm‘(𝑦 ∪ {𝑛})) = ((lcm𝑦) lcm 𝑛)) → (lcm‘((𝑦 ∪ {𝑧}) ∪ {𝑛})) = ((lcm‘(𝑦 ∪ {𝑧})) lcm 𝑛)))
105104expimpd 453 . . . . . . 7 ((𝑧 = 0 ∧ 𝑛 ∈ (ℤ ∖ {0})) → (((𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin) ∧ (∀𝑘 ∈ ℤ (∀𝑚𝑦 𝑚𝑘 → (lcm𝑦) ∥ 𝑘) ∧ ∀𝑛 ∈ ℤ (lcm‘(𝑦 ∪ {𝑛})) = ((lcm𝑦) lcm 𝑛))) → (lcm‘((𝑦 ∪ {𝑧}) ∪ {𝑛})) = ((lcm‘(𝑦 ∪ {𝑧})) lcm 𝑛)))
106105ex 412 . . . . . 6 (𝑧 = 0 → (𝑛 ∈ (ℤ ∖ {0}) → (((𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin) ∧ (∀𝑘 ∈ ℤ (∀𝑚𝑦 𝑚𝑘 → (lcm𝑦) ∥ 𝑘) ∧ ∀𝑛 ∈ ℤ (lcm‘(𝑦 ∪ {𝑛})) = ((lcm𝑦) lcm 𝑛))) → (lcm‘((𝑦 ∪ {𝑧}) ∪ {𝑛})) = ((lcm‘(𝑦 ∪ {𝑧})) lcm 𝑛))))
107 ioran 981 . . . . . . . 8 (¬ (0 ∈ 𝑦𝑧 = 0) ↔ (¬ 0 ∈ 𝑦 ∧ ¬ 𝑧 = 0))
108 df-nel 3046 . . . . . . . . 9 (0 ∉ 𝑦 ↔ ¬ 0 ∈ 𝑦)
109 df-ne 2940 . . . . . . . . 9 (𝑧 ≠ 0 ↔ ¬ 𝑧 = 0)
110108, 109anbi12i 626 . . . . . . . 8 ((0 ∉ 𝑦𝑧 ≠ 0) ↔ (¬ 0 ∈ 𝑦 ∧ ¬ 𝑧 = 0))
111107, 110bitr4i 277 . . . . . . 7 (¬ (0 ∈ 𝑦𝑧 = 0) ↔ (0 ∉ 𝑦𝑧 ≠ 0))
112 eldif 3959 . . . . . . . 8 (𝑛 ∈ (ℤ ∖ {0}) ↔ (𝑛 ∈ ℤ ∧ ¬ 𝑛 ∈ {0}))
113 velsn 4645 . . . . . . . . . . . 12 (𝑛 ∈ {0} ↔ 𝑛 = 0)
114113bicomi 223 . . . . . . . . . . 11 (𝑛 = 0 ↔ 𝑛 ∈ {0})
115114necon3abii 2986 . . . . . . . . . 10 (𝑛 ≠ 0 ↔ ¬ 𝑛 ∈ {0})
116 lcmfunsnlem2lem2 16581 . . . . . . . . . . . 12 (((0 ∉ 𝑦𝑧 ≠ 0 ∧ 𝑛 ≠ 0) ∧ (𝑛 ∈ ℤ ∧ ((𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin) ∧ (∀𝑘 ∈ ℤ (∀𝑚𝑦 𝑚𝑘 → (lcm𝑦) ∥ 𝑘) ∧ ∀𝑛 ∈ ℤ (lcm‘(𝑦 ∪ {𝑛})) = ((lcm𝑦) lcm 𝑛))))) → (lcm‘((𝑦 ∪ {𝑧}) ∪ {𝑛})) = ((lcm‘(𝑦 ∪ {𝑧})) lcm 𝑛))
117116exp520 1356 . . . . . . . . . . 11 (0 ∉ 𝑦 → (𝑧 ≠ 0 → (𝑛 ≠ 0 → (𝑛 ∈ ℤ → (((𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin) ∧ (∀𝑘 ∈ ℤ (∀𝑚𝑦 𝑚𝑘 → (lcm𝑦) ∥ 𝑘) ∧ ∀𝑛 ∈ ℤ (lcm‘(𝑦 ∪ {𝑛})) = ((lcm𝑦) lcm 𝑛))) → (lcm‘((𝑦 ∪ {𝑧}) ∪ {𝑛})) = ((lcm‘(𝑦 ∪ {𝑧})) lcm 𝑛))))))
118117imp 406 . . . . . . . . . 10 ((0 ∉ 𝑦𝑧 ≠ 0) → (𝑛 ≠ 0 → (𝑛 ∈ ℤ → (((𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin) ∧ (∀𝑘 ∈ ℤ (∀𝑚𝑦 𝑚𝑘 → (lcm𝑦) ∥ 𝑘) ∧ ∀𝑛 ∈ ℤ (lcm‘(𝑦 ∪ {𝑛})) = ((lcm𝑦) lcm 𝑛))) → (lcm‘((𝑦 ∪ {𝑧}) ∪ {𝑛})) = ((lcm‘(𝑦 ∪ {𝑧})) lcm 𝑛)))))
119115, 118biimtrrid 242 . . . . . . . . 9 ((0 ∉ 𝑦𝑧 ≠ 0) → (¬ 𝑛 ∈ {0} → (𝑛 ∈ ℤ → (((𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin) ∧ (∀𝑘 ∈ ℤ (∀𝑚𝑦 𝑚𝑘 → (lcm𝑦) ∥ 𝑘) ∧ ∀𝑛 ∈ ℤ (lcm‘(𝑦 ∪ {𝑛})) = ((lcm𝑦) lcm 𝑛))) → (lcm‘((𝑦 ∪ {𝑧}) ∪ {𝑛})) = ((lcm‘(𝑦 ∪ {𝑧})) lcm 𝑛)))))
120119impcomd 411 . . . . . . . 8 ((0 ∉ 𝑦𝑧 ≠ 0) → ((𝑛 ∈ ℤ ∧ ¬ 𝑛 ∈ {0}) → (((𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin) ∧ (∀𝑘 ∈ ℤ (∀𝑚𝑦 𝑚𝑘 → (lcm𝑦) ∥ 𝑘) ∧ ∀𝑛 ∈ ℤ (lcm‘(𝑦 ∪ {𝑛})) = ((lcm𝑦) lcm 𝑛))) → (lcm‘((𝑦 ∪ {𝑧}) ∪ {𝑛})) = ((lcm‘(𝑦 ∪ {𝑧})) lcm 𝑛))))
121112, 120biimtrid 241 . . . . . . 7 ((0 ∉ 𝑦𝑧 ≠ 0) → (𝑛 ∈ (ℤ ∖ {0}) → (((𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin) ∧ (∀𝑘 ∈ ℤ (∀𝑚𝑦 𝑚𝑘 → (lcm𝑦) ∥ 𝑘) ∧ ∀𝑛 ∈ ℤ (lcm‘(𝑦 ∪ {𝑛})) = ((lcm𝑦) lcm 𝑛))) → (lcm‘((𝑦 ∪ {𝑧}) ∪ {𝑛})) = ((lcm‘(𝑦 ∪ {𝑧})) lcm 𝑛))))
122111, 121sylbi 216 . . . . . 6 (¬ (0 ∈ 𝑦𝑧 = 0) → (𝑛 ∈ (ℤ ∖ {0}) → (((𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin) ∧ (∀𝑘 ∈ ℤ (∀𝑚𝑦 𝑚𝑘 → (lcm𝑦) ∥ 𝑘) ∧ ∀𝑛 ∈ ℤ (lcm‘(𝑦 ∪ {𝑛})) = ((lcm𝑦) lcm 𝑛))) → (lcm‘((𝑦 ∪ {𝑧}) ∪ {𝑛})) = ((lcm‘(𝑦 ∪ {𝑧})) lcm 𝑛))))
12376, 106, 122ecase3 1029 . . . . 5 (𝑛 ∈ (ℤ ∖ {0}) → (((𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin) ∧ (∀𝑘 ∈ ℤ (∀𝑚𝑦 𝑚𝑘 → (lcm𝑦) ∥ 𝑘) ∧ ∀𝑛 ∈ ℤ (lcm‘(𝑦 ∪ {𝑛})) = ((lcm𝑦) lcm 𝑛))) → (lcm‘((𝑦 ∪ {𝑧}) ∪ {𝑛})) = ((lcm‘(𝑦 ∪ {𝑧})) lcm 𝑛)))
12442, 123jaoi 854 . . . 4 ((𝑛 = 0 ∨ 𝑛 ∈ (ℤ ∖ {0})) → (((𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin) ∧ (∀𝑘 ∈ ℤ (∀𝑚𝑦 𝑚𝑘 → (lcm𝑦) ∥ 𝑘) ∧ ∀𝑛 ∈ ℤ (lcm‘(𝑦 ∪ {𝑛})) = ((lcm𝑦) lcm 𝑛))) → (lcm‘((𝑦 ∪ {𝑧}) ∪ {𝑛})) = ((lcm‘(𝑦 ∪ {𝑧})) lcm 𝑛)))
1258, 124sylbi 216 . . 3 (𝑛 ∈ ℤ → (((𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin) ∧ (∀𝑘 ∈ ℤ (∀𝑚𝑦 𝑚𝑘 → (lcm𝑦) ∥ 𝑘) ∧ ∀𝑛 ∈ ℤ (lcm‘(𝑦 ∪ {𝑛})) = ((lcm𝑦) lcm 𝑛))) → (lcm‘((𝑦 ∪ {𝑧}) ∪ {𝑛})) = ((lcm‘(𝑦 ∪ {𝑧})) lcm 𝑛)))
126125com12 32 . 2 (((𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin) ∧ (∀𝑘 ∈ ℤ (∀𝑚𝑦 𝑚𝑘 → (lcm𝑦) ∥ 𝑘) ∧ ∀𝑛 ∈ ℤ (lcm‘(𝑦 ∪ {𝑛})) = ((lcm𝑦) lcm 𝑛))) → (𝑛 ∈ ℤ → (lcm‘((𝑦 ∪ {𝑧}) ∪ {𝑛})) = ((lcm‘(𝑦 ∪ {𝑧})) lcm 𝑛)))
1275, 126ralrimi 3253 1 (((𝑧 ∈ ℤ ∧ 𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin) ∧ (∀𝑘 ∈ ℤ (∀𝑚𝑦 𝑚𝑘 → (lcm𝑦) ∥ 𝑘) ∧ ∀𝑛 ∈ ℤ (lcm‘(𝑦 ∪ {𝑛})) = ((lcm𝑦) lcm 𝑛))) → ∀𝑛 ∈ ℤ (lcm‘((𝑦 ∪ {𝑧}) ∪ {𝑛})) = ((lcm‘(𝑦 ∪ {𝑧})) lcm 𝑛))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 205  wa 395  wo 844  w3a 1086   = wceq 1540  wcel 2105  wne 2939  wnel 3045  wral 3060  cdif 3946  cun 3947  wss 3949  {csn 4629   class class class wbr 5149  cfv 6544  (class class class)co 7412  Fincfn 8942  0cc0 11113  0cn0 12477  cz 12563  cdvds 16202   lcm clcm 16530  lcmclcmf 16531
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1796  ax-4 1810  ax-5 1912  ax-6 1970  ax-7 2010  ax-8 2107  ax-9 2115  ax-10 2136  ax-11 2153  ax-12 2170  ax-ext 2702  ax-rep 5286  ax-sep 5300  ax-nul 5307  ax-pow 5364  ax-pr 5428  ax-un 7728  ax-inf2 9639  ax-cnex 11169  ax-resscn 11170  ax-1cn 11171  ax-icn 11172  ax-addcl 11173  ax-addrcl 11174  ax-mulcl 11175  ax-mulrcl 11176  ax-mulcom 11177  ax-addass 11178  ax-mulass 11179  ax-distr 11180  ax-i2m1 11181  ax-1ne0 11182  ax-1rid 11183  ax-rnegex 11184  ax-rrecex 11185  ax-cnre 11186  ax-pre-lttri 11187  ax-pre-lttrn 11188  ax-pre-ltadd 11189  ax-pre-mulgt0 11190  ax-pre-sup 11191
This theorem depends on definitions:  df-bi 206  df-an 396  df-or 845  df-3or 1087  df-3an 1088  df-tru 1543  df-fal 1553  df-ex 1781  df-nf 1785  df-sb 2067  df-mo 2533  df-eu 2562  df-clab 2709  df-cleq 2723  df-clel 2809  df-nfc 2884  df-ne 2940  df-nel 3046  df-ral 3061  df-rex 3070  df-rmo 3375  df-reu 3376  df-rab 3432  df-v 3475  df-sbc 3779  df-csb 3895  df-dif 3952  df-un 3954  df-in 3956  df-ss 3966  df-pss 3968  df-nul 4324  df-if 4530  df-pw 4605  df-sn 4630  df-pr 4632  df-op 4636  df-uni 4910  df-int 4952  df-iun 5000  df-br 5150  df-opab 5212  df-mpt 5233  df-tr 5267  df-id 5575  df-eprel 5581  df-po 5589  df-so 5590  df-fr 5632  df-se 5633  df-we 5634  df-xp 5683  df-rel 5684  df-cnv 5685  df-co 5686  df-dm 5687  df-rn 5688  df-res 5689  df-ima 5690  df-pred 6301  df-ord 6368  df-on 6369  df-lim 6370  df-suc 6371  df-iota 6496  df-fun 6546  df-fn 6547  df-f 6548  df-f1 6549  df-fo 6550  df-f1o 6551  df-fv 6552  df-isom 6553  df-riota 7368  df-ov 7415  df-oprab 7416  df-mpo 7417  df-om 7859  df-1st 7978  df-2nd 7979  df-frecs 8269  df-wrecs 8300  df-recs 8374  df-rdg 8413  df-1o 8469  df-er 8706  df-en 8943  df-dom 8944  df-sdom 8945  df-fin 8946  df-sup 9440  df-inf 9441  df-oi 9508  df-card 9937  df-pnf 11255  df-mnf 11256  df-xr 11257  df-ltxr 11258  df-le 11259  df-sub 11451  df-neg 11452  df-div 11877  df-nn 12218  df-2 12280  df-3 12281  df-n0 12478  df-z 12564  df-uz 12828  df-rp 12980  df-fz 13490  df-fzo 13633  df-fl 13762  df-mod 13840  df-seq 13972  df-exp 14033  df-hash 14296  df-cj 15051  df-re 15052  df-im 15053  df-sqrt 15187  df-abs 15188  df-clim 15437  df-prod 15855  df-dvds 16203  df-gcd 16441  df-lcm 16532  df-lcmf 16533
This theorem is referenced by:  lcmfunsnlem  16583
  Copyright terms: Public domain W3C validator