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

Theorem lcmfun 15145
Description: The lcm function for a union of sets of integers. (Contributed by AV, 27-Aug-2020.)
Assertion
Ref Expression
lcmfun (((𝑌 ⊆ ℤ ∧ 𝑌 ∈ Fin) ∧ (𝑍 ⊆ ℤ ∧ 𝑍 ∈ Fin)) → (lcm‘(𝑌𝑍)) = ((lcm𝑌) lcm (lcm𝑍)))

Proof of Theorem lcmfun
Dummy variables 𝑥 𝑦 𝑧 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 cleq1lem 13518 . . . . . 6 (𝑥 = ∅ → ((𝑥 ⊆ ℤ ∧ (𝑌 ⊆ ℤ ∧ 𝑌 ∈ Fin)) ↔ (∅ ⊆ ℤ ∧ (𝑌 ⊆ ℤ ∧ 𝑌 ∈ Fin))))
2 uneq2 3723 . . . . . . . . 9 (𝑥 = ∅ → (𝑌𝑥) = (𝑌 ∪ ∅))
3 un0 3919 . . . . . . . . 9 (𝑌 ∪ ∅) = 𝑌
42, 3syl6eq 2660 . . . . . . . 8 (𝑥 = ∅ → (𝑌𝑥) = 𝑌)
54fveq2d 6092 . . . . . . 7 (𝑥 = ∅ → (lcm‘(𝑌𝑥)) = (lcm𝑌))
6 fveq2 6088 . . . . . . . . 9 (𝑥 = ∅ → (lcm𝑥) = (lcm‘∅))
7 lcmf0 15134 . . . . . . . . 9 (lcm‘∅) = 1
86, 7syl6eq 2660 . . . . . . . 8 (𝑥 = ∅ → (lcm𝑥) = 1)
98oveq2d 6543 . . . . . . 7 (𝑥 = ∅ → ((lcm𝑌) lcm (lcm𝑥)) = ((lcm𝑌) lcm 1))
105, 9eqeq12d 2625 . . . . . 6 (𝑥 = ∅ → ((lcm‘(𝑌𝑥)) = ((lcm𝑌) lcm (lcm𝑥)) ↔ (lcm𝑌) = ((lcm𝑌) lcm 1)))
111, 10imbi12d 333 . . . . 5 (𝑥 = ∅ → (((𝑥 ⊆ ℤ ∧ (𝑌 ⊆ ℤ ∧ 𝑌 ∈ Fin)) → (lcm‘(𝑌𝑥)) = ((lcm𝑌) lcm (lcm𝑥))) ↔ ((∅ ⊆ ℤ ∧ (𝑌 ⊆ ℤ ∧ 𝑌 ∈ Fin)) → (lcm𝑌) = ((lcm𝑌) lcm 1))))
12 cleq1lem 13518 . . . . . 6 (𝑥 = 𝑦 → ((𝑥 ⊆ ℤ ∧ (𝑌 ⊆ ℤ ∧ 𝑌 ∈ Fin)) ↔ (𝑦 ⊆ ℤ ∧ (𝑌 ⊆ ℤ ∧ 𝑌 ∈ Fin))))
13 uneq2 3723 . . . . . . . 8 (𝑥 = 𝑦 → (𝑌𝑥) = (𝑌𝑦))
1413fveq2d 6092 . . . . . . 7 (𝑥 = 𝑦 → (lcm‘(𝑌𝑥)) = (lcm‘(𝑌𝑦)))
15 fveq2 6088 . . . . . . . 8 (𝑥 = 𝑦 → (lcm𝑥) = (lcm𝑦))
1615oveq2d 6543 . . . . . . 7 (𝑥 = 𝑦 → ((lcm𝑌) lcm (lcm𝑥)) = ((lcm𝑌) lcm (lcm𝑦)))
1714, 16eqeq12d 2625 . . . . . 6 (𝑥 = 𝑦 → ((lcm‘(𝑌𝑥)) = ((lcm𝑌) lcm (lcm𝑥)) ↔ (lcm‘(𝑌𝑦)) = ((lcm𝑌) lcm (lcm𝑦))))
1812, 17imbi12d 333 . . . . 5 (𝑥 = 𝑦 → (((𝑥 ⊆ ℤ ∧ (𝑌 ⊆ ℤ ∧ 𝑌 ∈ Fin)) → (lcm‘(𝑌𝑥)) = ((lcm𝑌) lcm (lcm𝑥))) ↔ ((𝑦 ⊆ ℤ ∧ (𝑌 ⊆ ℤ ∧ 𝑌 ∈ Fin)) → (lcm‘(𝑌𝑦)) = ((lcm𝑌) lcm (lcm𝑦)))))
19 cleq1lem 13518 . . . . . 6 (𝑥 = (𝑦 ∪ {𝑧}) → ((𝑥 ⊆ ℤ ∧ (𝑌 ⊆ ℤ ∧ 𝑌 ∈ Fin)) ↔ ((𝑦 ∪ {𝑧}) ⊆ ℤ ∧ (𝑌 ⊆ ℤ ∧ 𝑌 ∈ Fin))))
20 uneq2 3723 . . . . . . . 8 (𝑥 = (𝑦 ∪ {𝑧}) → (𝑌𝑥) = (𝑌 ∪ (𝑦 ∪ {𝑧})))
2120fveq2d 6092 . . . . . . 7 (𝑥 = (𝑦 ∪ {𝑧}) → (lcm‘(𝑌𝑥)) = (lcm‘(𝑌 ∪ (𝑦 ∪ {𝑧}))))
22 fveq2 6088 . . . . . . . 8 (𝑥 = (𝑦 ∪ {𝑧}) → (lcm𝑥) = (lcm‘(𝑦 ∪ {𝑧})))
2322oveq2d 6543 . . . . . . 7 (𝑥 = (𝑦 ∪ {𝑧}) → ((lcm𝑌) lcm (lcm𝑥)) = ((lcm𝑌) lcm (lcm‘(𝑦 ∪ {𝑧}))))
2421, 23eqeq12d 2625 . . . . . 6 (𝑥 = (𝑦 ∪ {𝑧}) → ((lcm‘(𝑌𝑥)) = ((lcm𝑌) lcm (lcm𝑥)) ↔ (lcm‘(𝑌 ∪ (𝑦 ∪ {𝑧}))) = ((lcm𝑌) lcm (lcm‘(𝑦 ∪ {𝑧})))))
2519, 24imbi12d 333 . . . . 5 (𝑥 = (𝑦 ∪ {𝑧}) → (((𝑥 ⊆ ℤ ∧ (𝑌 ⊆ ℤ ∧ 𝑌 ∈ Fin)) → (lcm‘(𝑌𝑥)) = ((lcm𝑌) lcm (lcm𝑥))) ↔ (((𝑦 ∪ {𝑧}) ⊆ ℤ ∧ (𝑌 ⊆ ℤ ∧ 𝑌 ∈ Fin)) → (lcm‘(𝑌 ∪ (𝑦 ∪ {𝑧}))) = ((lcm𝑌) lcm (lcm‘(𝑦 ∪ {𝑧}))))))
26 cleq1lem 13518 . . . . . 6 (𝑥 = 𝑍 → ((𝑥 ⊆ ℤ ∧ (𝑌 ⊆ ℤ ∧ 𝑌 ∈ Fin)) ↔ (𝑍 ⊆ ℤ ∧ (𝑌 ⊆ ℤ ∧ 𝑌 ∈ Fin))))
27 uneq2 3723 . . . . . . . 8 (𝑥 = 𝑍 → (𝑌𝑥) = (𝑌𝑍))
2827fveq2d 6092 . . . . . . 7 (𝑥 = 𝑍 → (lcm‘(𝑌𝑥)) = (lcm‘(𝑌𝑍)))
29 fveq2 6088 . . . . . . . 8 (𝑥 = 𝑍 → (lcm𝑥) = (lcm𝑍))
3029oveq2d 6543 . . . . . . 7 (𝑥 = 𝑍 → ((lcm𝑌) lcm (lcm𝑥)) = ((lcm𝑌) lcm (lcm𝑍)))
3128, 30eqeq12d 2625 . . . . . 6 (𝑥 = 𝑍 → ((lcm‘(𝑌𝑥)) = ((lcm𝑌) lcm (lcm𝑥)) ↔ (lcm‘(𝑌𝑍)) = ((lcm𝑌) lcm (lcm𝑍))))
3226, 31imbi12d 333 . . . . 5 (𝑥 = 𝑍 → (((𝑥 ⊆ ℤ ∧ (𝑌 ⊆ ℤ ∧ 𝑌 ∈ Fin)) → (lcm‘(𝑌𝑥)) = ((lcm𝑌) lcm (lcm𝑥))) ↔ ((𝑍 ⊆ ℤ ∧ (𝑌 ⊆ ℤ ∧ 𝑌 ∈ Fin)) → (lcm‘(𝑌𝑍)) = ((lcm𝑌) lcm (lcm𝑍)))))
33 lcmfcl 15128 . . . . . . . . . 10 ((𝑌 ⊆ ℤ ∧ 𝑌 ∈ Fin) → (lcm𝑌) ∈ ℕ0)
3433nn0zd 11315 . . . . . . . . 9 ((𝑌 ⊆ ℤ ∧ 𝑌 ∈ Fin) → (lcm𝑌) ∈ ℤ)
35 lcm1 15110 . . . . . . . . 9 ((lcm𝑌) ∈ ℤ → ((lcm𝑌) lcm 1) = (abs‘(lcm𝑌)))
3634, 35syl 17 . . . . . . . 8 ((𝑌 ⊆ ℤ ∧ 𝑌 ∈ Fin) → ((lcm𝑌) lcm 1) = (abs‘(lcm𝑌)))
37 nn0re 11151 . . . . . . . . . . 11 ((lcm𝑌) ∈ ℕ0 → (lcm𝑌) ∈ ℝ)
38 nn0ge0 11168 . . . . . . . . . . 11 ((lcm𝑌) ∈ ℕ0 → 0 ≤ (lcm𝑌))
3937, 38jca 553 . . . . . . . . . 10 ((lcm𝑌) ∈ ℕ0 → ((lcm𝑌) ∈ ℝ ∧ 0 ≤ (lcm𝑌)))
4033, 39syl 17 . . . . . . . . 9 ((𝑌 ⊆ ℤ ∧ 𝑌 ∈ Fin) → ((lcm𝑌) ∈ ℝ ∧ 0 ≤ (lcm𝑌)))
41 absid 13833 . . . . . . . . 9 (((lcm𝑌) ∈ ℝ ∧ 0 ≤ (lcm𝑌)) → (abs‘(lcm𝑌)) = (lcm𝑌))
4240, 41syl 17 . . . . . . . 8 ((𝑌 ⊆ ℤ ∧ 𝑌 ∈ Fin) → (abs‘(lcm𝑌)) = (lcm𝑌))
4336, 42eqtrd 2644 . . . . . . 7 ((𝑌 ⊆ ℤ ∧ 𝑌 ∈ Fin) → ((lcm𝑌) lcm 1) = (lcm𝑌))
4443adantl 481 . . . . . 6 ((∅ ⊆ ℤ ∧ (𝑌 ⊆ ℤ ∧ 𝑌 ∈ Fin)) → ((lcm𝑌) lcm 1) = (lcm𝑌))
4544eqcomd 2616 . . . . 5 ((∅ ⊆ ℤ ∧ (𝑌 ⊆ ℤ ∧ 𝑌 ∈ Fin)) → (lcm𝑌) = ((lcm𝑌) lcm 1))
46 unass 3732 . . . . . . . . . . . . . 14 ((𝑌𝑦) ∪ {𝑧}) = (𝑌 ∪ (𝑦 ∪ {𝑧}))
4746eqcomi 2619 . . . . . . . . . . . . 13 (𝑌 ∪ (𝑦 ∪ {𝑧})) = ((𝑌𝑦) ∪ {𝑧})
4847a1i 11 . . . . . . . . . . . 12 ((𝑦 ∈ Fin ∧ ((𝑦 ∪ {𝑧}) ⊆ ℤ ∧ (𝑌 ⊆ ℤ ∧ 𝑌 ∈ Fin))) → (𝑌 ∪ (𝑦 ∪ {𝑧})) = ((𝑌𝑦) ∪ {𝑧}))
4948fveq2d 6092 . . . . . . . . . . 11 ((𝑦 ∈ Fin ∧ ((𝑦 ∪ {𝑧}) ⊆ ℤ ∧ (𝑌 ⊆ ℤ ∧ 𝑌 ∈ Fin))) → (lcm‘(𝑌 ∪ (𝑦 ∪ {𝑧}))) = (lcm‘((𝑌𝑦) ∪ {𝑧})))
50 simpl 472 . . . . . . . . . . . . . . 15 ((𝑌 ⊆ ℤ ∧ 𝑌 ∈ Fin) → 𝑌 ⊆ ℤ)
5150adantl 481 . . . . . . . . . . . . . 14 (((𝑦 ∪ {𝑧}) ⊆ ℤ ∧ (𝑌 ⊆ ℤ ∧ 𝑌 ∈ Fin)) → 𝑌 ⊆ ℤ)
52 unss 3749 . . . . . . . . . . . . . . . 16 ((𝑦 ⊆ ℤ ∧ {𝑧} ⊆ ℤ) ↔ (𝑦 ∪ {𝑧}) ⊆ ℤ)
53 simpl 472 . . . . . . . . . . . . . . . 16 ((𝑦 ⊆ ℤ ∧ {𝑧} ⊆ ℤ) → 𝑦 ⊆ ℤ)
5452, 53sylbir 224 . . . . . . . . . . . . . . 15 ((𝑦 ∪ {𝑧}) ⊆ ℤ → 𝑦 ⊆ ℤ)
5554adantr 480 . . . . . . . . . . . . . 14 (((𝑦 ∪ {𝑧}) ⊆ ℤ ∧ (𝑌 ⊆ ℤ ∧ 𝑌 ∈ Fin)) → 𝑦 ⊆ ℤ)
5651, 55unssd 3751 . . . . . . . . . . . . 13 (((𝑦 ∪ {𝑧}) ⊆ ℤ ∧ (𝑌 ⊆ ℤ ∧ 𝑌 ∈ Fin)) → (𝑌𝑦) ⊆ ℤ)
5756adantl 481 . . . . . . . . . . . 12 ((𝑦 ∈ Fin ∧ ((𝑦 ∪ {𝑧}) ⊆ ℤ ∧ (𝑌 ⊆ ℤ ∧ 𝑌 ∈ Fin))) → (𝑌𝑦) ⊆ ℤ)
58 unfi 8090 . . . . . . . . . . . . . . . 16 ((𝑌 ∈ Fin ∧ 𝑦 ∈ Fin) → (𝑌𝑦) ∈ Fin)
5958ex 449 . . . . . . . . . . . . . . 15 (𝑌 ∈ Fin → (𝑦 ∈ Fin → (𝑌𝑦) ∈ Fin))
6059adantl 481 . . . . . . . . . . . . . 14 ((𝑌 ⊆ ℤ ∧ 𝑌 ∈ Fin) → (𝑦 ∈ Fin → (𝑌𝑦) ∈ Fin))
6160adantl 481 . . . . . . . . . . . . 13 (((𝑦 ∪ {𝑧}) ⊆ ℤ ∧ (𝑌 ⊆ ℤ ∧ 𝑌 ∈ Fin)) → (𝑦 ∈ Fin → (𝑌𝑦) ∈ Fin))
6261impcom 445 . . . . . . . . . . . 12 ((𝑦 ∈ Fin ∧ ((𝑦 ∪ {𝑧}) ⊆ ℤ ∧ (𝑌 ⊆ ℤ ∧ 𝑌 ∈ Fin))) → (𝑌𝑦) ∈ Fin)
63 vex 3176 . . . . . . . . . . . . . . . . . 18 𝑧 ∈ V
6463snss 4259 . . . . . . . . . . . . . . . . 17 (𝑧 ∈ ℤ ↔ {𝑧} ⊆ ℤ)
6564biimpri 217 . . . . . . . . . . . . . . . 16 ({𝑧} ⊆ ℤ → 𝑧 ∈ ℤ)
6665adantl 481 . . . . . . . . . . . . . . 15 ((𝑦 ⊆ ℤ ∧ {𝑧} ⊆ ℤ) → 𝑧 ∈ ℤ)
6752, 66sylbir 224 . . . . . . . . . . . . . 14 ((𝑦 ∪ {𝑧}) ⊆ ℤ → 𝑧 ∈ ℤ)
6867adantr 480 . . . . . . . . . . . . 13 (((𝑦 ∪ {𝑧}) ⊆ ℤ ∧ (𝑌 ⊆ ℤ ∧ 𝑌 ∈ Fin)) → 𝑧 ∈ ℤ)
6968adantl 481 . . . . . . . . . . . 12 ((𝑦 ∈ Fin ∧ ((𝑦 ∪ {𝑧}) ⊆ ℤ ∧ (𝑌 ⊆ ℤ ∧ 𝑌 ∈ Fin))) → 𝑧 ∈ ℤ)
70 lcmfunsn 15144 . . . . . . . . . . . 12 (((𝑌𝑦) ⊆ ℤ ∧ (𝑌𝑦) ∈ Fin ∧ 𝑧 ∈ ℤ) → (lcm‘((𝑌𝑦) ∪ {𝑧})) = ((lcm‘(𝑌𝑦)) lcm 𝑧))
7157, 62, 69, 70syl3anc 1318 . . . . . . . . . . 11 ((𝑦 ∈ Fin ∧ ((𝑦 ∪ {𝑧}) ⊆ ℤ ∧ (𝑌 ⊆ ℤ ∧ 𝑌 ∈ Fin))) → (lcm‘((𝑌𝑦) ∪ {𝑧})) = ((lcm‘(𝑌𝑦)) lcm 𝑧))
7249, 71eqtrd 2644 . . . . . . . . . 10 ((𝑦 ∈ Fin ∧ ((𝑦 ∪ {𝑧}) ⊆ ℤ ∧ (𝑌 ⊆ ℤ ∧ 𝑌 ∈ Fin))) → (lcm‘(𝑌 ∪ (𝑦 ∪ {𝑧}))) = ((lcm‘(𝑌𝑦)) lcm 𝑧))
7372adantr 480 . . . . . . . . 9 (((𝑦 ∈ Fin ∧ ((𝑦 ∪ {𝑧}) ⊆ ℤ ∧ (𝑌 ⊆ ℤ ∧ 𝑌 ∈ Fin))) ∧ ((𝑦 ⊆ ℤ ∧ (𝑌 ⊆ ℤ ∧ 𝑌 ∈ Fin)) → (lcm‘(𝑌𝑦)) = ((lcm𝑌) lcm (lcm𝑦)))) → (lcm‘(𝑌 ∪ (𝑦 ∪ {𝑧}))) = ((lcm‘(𝑌𝑦)) lcm 𝑧))
7454anim1i 590 . . . . . . . . . . . . 13 (((𝑦 ∪ {𝑧}) ⊆ ℤ ∧ (𝑌 ⊆ ℤ ∧ 𝑌 ∈ Fin)) → (𝑦 ⊆ ℤ ∧ (𝑌 ⊆ ℤ ∧ 𝑌 ∈ Fin)))
7574adantl 481 . . . . . . . . . . . 12 ((𝑦 ∈ Fin ∧ ((𝑦 ∪ {𝑧}) ⊆ ℤ ∧ (𝑌 ⊆ ℤ ∧ 𝑌 ∈ Fin))) → (𝑦 ⊆ ℤ ∧ (𝑌 ⊆ ℤ ∧ 𝑌 ∈ Fin)))
76 id 22 . . . . . . . . . . . 12 (((𝑦 ⊆ ℤ ∧ (𝑌 ⊆ ℤ ∧ 𝑌 ∈ Fin)) → (lcm‘(𝑌𝑦)) = ((lcm𝑌) lcm (lcm𝑦))) → ((𝑦 ⊆ ℤ ∧ (𝑌 ⊆ ℤ ∧ 𝑌 ∈ Fin)) → (lcm‘(𝑌𝑦)) = ((lcm𝑌) lcm (lcm𝑦))))
7775, 76mpan9 485 . . . . . . . . . . 11 (((𝑦 ∈ Fin ∧ ((𝑦 ∪ {𝑧}) ⊆ ℤ ∧ (𝑌 ⊆ ℤ ∧ 𝑌 ∈ Fin))) ∧ ((𝑦 ⊆ ℤ ∧ (𝑌 ⊆ ℤ ∧ 𝑌 ∈ Fin)) → (lcm‘(𝑌𝑦)) = ((lcm𝑌) lcm (lcm𝑦)))) → (lcm‘(𝑌𝑦)) = ((lcm𝑌) lcm (lcm𝑦)))
7877oveq1d 6542 . . . . . . . . . 10 (((𝑦 ∈ Fin ∧ ((𝑦 ∪ {𝑧}) ⊆ ℤ ∧ (𝑌 ⊆ ℤ ∧ 𝑌 ∈ Fin))) ∧ ((𝑦 ⊆ ℤ ∧ (𝑌 ⊆ ℤ ∧ 𝑌 ∈ Fin)) → (lcm‘(𝑌𝑦)) = ((lcm𝑌) lcm (lcm𝑦)))) → ((lcm‘(𝑌𝑦)) lcm 𝑧) = (((lcm𝑌) lcm (lcm𝑦)) lcm 𝑧))
7934adantl 481 . . . . . . . . . . . . 13 (((𝑦 ∪ {𝑧}) ⊆ ℤ ∧ (𝑌 ⊆ ℤ ∧ 𝑌 ∈ Fin)) → (lcm𝑌) ∈ ℤ)
8079adantl 481 . . . . . . . . . . . 12 ((𝑦 ∈ Fin ∧ ((𝑦 ∪ {𝑧}) ⊆ ℤ ∧ (𝑌 ⊆ ℤ ∧ 𝑌 ∈ Fin))) → (lcm𝑌) ∈ ℤ)
8155anim2i 591 . . . . . . . . . . . . . . 15 ((𝑦 ∈ Fin ∧ ((𝑦 ∪ {𝑧}) ⊆ ℤ ∧ (𝑌 ⊆ ℤ ∧ 𝑌 ∈ Fin))) → (𝑦 ∈ Fin ∧ 𝑦 ⊆ ℤ))
8281ancomd 466 . . . . . . . . . . . . . 14 ((𝑦 ∈ Fin ∧ ((𝑦 ∪ {𝑧}) ⊆ ℤ ∧ (𝑌 ⊆ ℤ ∧ 𝑌 ∈ Fin))) → (𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin))
83 lcmfcl 15128 . . . . . . . . . . . . . 14 ((𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin) → (lcm𝑦) ∈ ℕ0)
8482, 83syl 17 . . . . . . . . . . . . 13 ((𝑦 ∈ Fin ∧ ((𝑦 ∪ {𝑧}) ⊆ ℤ ∧ (𝑌 ⊆ ℤ ∧ 𝑌 ∈ Fin))) → (lcm𝑦) ∈ ℕ0)
8584nn0zd 11315 . . . . . . . . . . . 12 ((𝑦 ∈ Fin ∧ ((𝑦 ∪ {𝑧}) ⊆ ℤ ∧ (𝑌 ⊆ ℤ ∧ 𝑌 ∈ Fin))) → (lcm𝑦) ∈ ℤ)
86 lcmass 15114 . . . . . . . . . . . 12 (((lcm𝑌) ∈ ℤ ∧ (lcm𝑦) ∈ ℤ ∧ 𝑧 ∈ ℤ) → (((lcm𝑌) lcm (lcm𝑦)) lcm 𝑧) = ((lcm𝑌) lcm ((lcm𝑦) lcm 𝑧)))
8780, 85, 69, 86syl3anc 1318 . . . . . . . . . . 11 ((𝑦 ∈ Fin ∧ ((𝑦 ∪ {𝑧}) ⊆ ℤ ∧ (𝑌 ⊆ ℤ ∧ 𝑌 ∈ Fin))) → (((lcm𝑌) lcm (lcm𝑦)) lcm 𝑧) = ((lcm𝑌) lcm ((lcm𝑦) lcm 𝑧)))
8887adantr 480 . . . . . . . . . 10 (((𝑦 ∈ Fin ∧ ((𝑦 ∪ {𝑧}) ⊆ ℤ ∧ (𝑌 ⊆ ℤ ∧ 𝑌 ∈ Fin))) ∧ ((𝑦 ⊆ ℤ ∧ (𝑌 ⊆ ℤ ∧ 𝑌 ∈ Fin)) → (lcm‘(𝑌𝑦)) = ((lcm𝑌) lcm (lcm𝑦)))) → (((lcm𝑌) lcm (lcm𝑦)) lcm 𝑧) = ((lcm𝑌) lcm ((lcm𝑦) lcm 𝑧)))
8978, 88eqtrd 2644 . . . . . . . . 9 (((𝑦 ∈ Fin ∧ ((𝑦 ∪ {𝑧}) ⊆ ℤ ∧ (𝑌 ⊆ ℤ ∧ 𝑌 ∈ Fin))) ∧ ((𝑦 ⊆ ℤ ∧ (𝑌 ⊆ ℤ ∧ 𝑌 ∈ Fin)) → (lcm‘(𝑌𝑦)) = ((lcm𝑌) lcm (lcm𝑦)))) → ((lcm‘(𝑌𝑦)) lcm 𝑧) = ((lcm𝑌) lcm ((lcm𝑦) lcm 𝑧)))
9073, 89eqtrd 2644 . . . . . . . 8 (((𝑦 ∈ Fin ∧ ((𝑦 ∪ {𝑧}) ⊆ ℤ ∧ (𝑌 ⊆ ℤ ∧ 𝑌 ∈ Fin))) ∧ ((𝑦 ⊆ ℤ ∧ (𝑌 ⊆ ℤ ∧ 𝑌 ∈ Fin)) → (lcm‘(𝑌𝑦)) = ((lcm𝑌) lcm (lcm𝑦)))) → (lcm‘(𝑌 ∪ (𝑦 ∪ {𝑧}))) = ((lcm𝑌) lcm ((lcm𝑦) lcm 𝑧)))
9153adantr 480 . . . . . . . . . . . . . . . . 17 (((𝑦 ⊆ ℤ ∧ {𝑧} ⊆ ℤ) ∧ 𝑦 ∈ Fin) → 𝑦 ⊆ ℤ)
92 simpr 476 . . . . . . . . . . . . . . . . 17 (((𝑦 ⊆ ℤ ∧ {𝑧} ⊆ ℤ) ∧ 𝑦 ∈ Fin) → 𝑦 ∈ Fin)
9366adantr 480 . . . . . . . . . . . . . . . . 17 (((𝑦 ⊆ ℤ ∧ {𝑧} ⊆ ℤ) ∧ 𝑦 ∈ Fin) → 𝑧 ∈ ℤ)
9491, 92, 933jca 1235 . . . . . . . . . . . . . . . 16 (((𝑦 ⊆ ℤ ∧ {𝑧} ⊆ ℤ) ∧ 𝑦 ∈ Fin) → (𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin ∧ 𝑧 ∈ ℤ))
9594ex 449 . . . . . . . . . . . . . . 15 ((𝑦 ⊆ ℤ ∧ {𝑧} ⊆ ℤ) → (𝑦 ∈ Fin → (𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin ∧ 𝑧 ∈ ℤ)))
9652, 95sylbir 224 . . . . . . . . . . . . . 14 ((𝑦 ∪ {𝑧}) ⊆ ℤ → (𝑦 ∈ Fin → (𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin ∧ 𝑧 ∈ ℤ)))
9796adantr 480 . . . . . . . . . . . . 13 (((𝑦 ∪ {𝑧}) ⊆ ℤ ∧ (𝑌 ⊆ ℤ ∧ 𝑌 ∈ Fin)) → (𝑦 ∈ Fin → (𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin ∧ 𝑧 ∈ ℤ)))
9897impcom 445 . . . . . . . . . . . 12 ((𝑦 ∈ Fin ∧ ((𝑦 ∪ {𝑧}) ⊆ ℤ ∧ (𝑌 ⊆ ℤ ∧ 𝑌 ∈ Fin))) → (𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin ∧ 𝑧 ∈ ℤ))
99 lcmfunsn 15144 . . . . . . . . . . . 12 ((𝑦 ⊆ ℤ ∧ 𝑦 ∈ Fin ∧ 𝑧 ∈ ℤ) → (lcm‘(𝑦 ∪ {𝑧})) = ((lcm𝑦) lcm 𝑧))
10098, 99syl 17 . . . . . . . . . . 11 ((𝑦 ∈ Fin ∧ ((𝑦 ∪ {𝑧}) ⊆ ℤ ∧ (𝑌 ⊆ ℤ ∧ 𝑌 ∈ Fin))) → (lcm‘(𝑦 ∪ {𝑧})) = ((lcm𝑦) lcm 𝑧))
101100oveq2d 6543 . . . . . . . . . 10 ((𝑦 ∈ Fin ∧ ((𝑦 ∪ {𝑧}) ⊆ ℤ ∧ (𝑌 ⊆ ℤ ∧ 𝑌 ∈ Fin))) → ((lcm𝑌) lcm (lcm‘(𝑦 ∪ {𝑧}))) = ((lcm𝑌) lcm ((lcm𝑦) lcm 𝑧)))
102101eqeq2d 2620 . . . . . . . . 9 ((𝑦 ∈ Fin ∧ ((𝑦 ∪ {𝑧}) ⊆ ℤ ∧ (𝑌 ⊆ ℤ ∧ 𝑌 ∈ Fin))) → ((lcm‘(𝑌 ∪ (𝑦 ∪ {𝑧}))) = ((lcm𝑌) lcm (lcm‘(𝑦 ∪ {𝑧}))) ↔ (lcm‘(𝑌 ∪ (𝑦 ∪ {𝑧}))) = ((lcm𝑌) lcm ((lcm𝑦) lcm 𝑧))))
103102adantr 480 . . . . . . . 8 (((𝑦 ∈ Fin ∧ ((𝑦 ∪ {𝑧}) ⊆ ℤ ∧ (𝑌 ⊆ ℤ ∧ 𝑌 ∈ Fin))) ∧ ((𝑦 ⊆ ℤ ∧ (𝑌 ⊆ ℤ ∧ 𝑌 ∈ Fin)) → (lcm‘(𝑌𝑦)) = ((lcm𝑌) lcm (lcm𝑦)))) → ((lcm‘(𝑌 ∪ (𝑦 ∪ {𝑧}))) = ((lcm𝑌) lcm (lcm‘(𝑦 ∪ {𝑧}))) ↔ (lcm‘(𝑌 ∪ (𝑦 ∪ {𝑧}))) = ((lcm𝑌) lcm ((lcm𝑦) lcm 𝑧))))
10490, 103mpbird 246 . . . . . . 7 (((𝑦 ∈ Fin ∧ ((𝑦 ∪ {𝑧}) ⊆ ℤ ∧ (𝑌 ⊆ ℤ ∧ 𝑌 ∈ Fin))) ∧ ((𝑦 ⊆ ℤ ∧ (𝑌 ⊆ ℤ ∧ 𝑌 ∈ Fin)) → (lcm‘(𝑌𝑦)) = ((lcm𝑌) lcm (lcm𝑦)))) → (lcm‘(𝑌 ∪ (𝑦 ∪ {𝑧}))) = ((lcm𝑌) lcm (lcm‘(𝑦 ∪ {𝑧}))))
105104exp31 628 . . . . . 6 (𝑦 ∈ Fin → (((𝑦 ∪ {𝑧}) ⊆ ℤ ∧ (𝑌 ⊆ ℤ ∧ 𝑌 ∈ Fin)) → (((𝑦 ⊆ ℤ ∧ (𝑌 ⊆ ℤ ∧ 𝑌 ∈ Fin)) → (lcm‘(𝑌𝑦)) = ((lcm𝑌) lcm (lcm𝑦))) → (lcm‘(𝑌 ∪ (𝑦 ∪ {𝑧}))) = ((lcm𝑌) lcm (lcm‘(𝑦 ∪ {𝑧}))))))
106105com23 84 . . . . 5 (𝑦 ∈ Fin → (((𝑦 ⊆ ℤ ∧ (𝑌 ⊆ ℤ ∧ 𝑌 ∈ Fin)) → (lcm‘(𝑌𝑦)) = ((lcm𝑌) lcm (lcm𝑦))) → (((𝑦 ∪ {𝑧}) ⊆ ℤ ∧ (𝑌 ⊆ ℤ ∧ 𝑌 ∈ Fin)) → (lcm‘(𝑌 ∪ (𝑦 ∪ {𝑧}))) = ((lcm𝑌) lcm (lcm‘(𝑦 ∪ {𝑧}))))))
10711, 18, 25, 32, 45, 106findcard2 8063 . . . 4 (𝑍 ∈ Fin → ((𝑍 ⊆ ℤ ∧ (𝑌 ⊆ ℤ ∧ 𝑌 ∈ Fin)) → (lcm‘(𝑌𝑍)) = ((lcm𝑌) lcm (lcm𝑍))))
108107expd 451 . . 3 (𝑍 ∈ Fin → (𝑍 ⊆ ℤ → ((𝑌 ⊆ ℤ ∧ 𝑌 ∈ Fin) → (lcm‘(𝑌𝑍)) = ((lcm𝑌) lcm (lcm𝑍)))))
109108impcom 445 . 2 ((𝑍 ⊆ ℤ ∧ 𝑍 ∈ Fin) → ((𝑌 ⊆ ℤ ∧ 𝑌 ∈ Fin) → (lcm‘(𝑌𝑍)) = ((lcm𝑌) lcm (lcm𝑍))))
110109impcom 445 1 (((𝑌 ⊆ ℤ ∧ 𝑌 ∈ Fin) ∧ (𝑍 ⊆ ℤ ∧ 𝑍 ∈ Fin)) → (lcm‘(𝑌𝑍)) = ((lcm𝑌) lcm (lcm𝑍)))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 195  wa 383  w3a 1031   = wceq 1475  wcel 1977  cun 3538  wss 3540  c0 3874  {csn 4125   class class class wbr 4578  cfv 5790  (class class class)co 6527  Fincfn 7819  cr 9792  0cc0 9793  1c1 9794  cle 9932  0cn0 11142  cz 11213  abscabs 13771   lcm clcm 15088  lcmclcmf 15089
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1713  ax-4 1728  ax-5 1827  ax-6 1875  ax-7 1922  ax-8 1979  ax-9 1986  ax-10 2006  ax-11 2021  ax-12 2034  ax-13 2234  ax-ext 2590  ax-rep 4694  ax-sep 4704  ax-nul 4712  ax-pow 4764  ax-pr 4828  ax-un 6825  ax-inf2 8399  ax-cnex 9849  ax-resscn 9850  ax-1cn 9851  ax-icn 9852  ax-addcl 9853  ax-addrcl 9854  ax-mulcl 9855  ax-mulrcl 9856  ax-mulcom 9857  ax-addass 9858  ax-mulass 9859  ax-distr 9860  ax-i2m1 9861  ax-1ne0 9862  ax-1rid 9863  ax-rnegex 9864  ax-rrecex 9865  ax-cnre 9866  ax-pre-lttri 9867  ax-pre-lttrn 9868  ax-pre-ltadd 9869  ax-pre-mulgt0 9870  ax-pre-sup 9871
This theorem depends on definitions:  df-bi 196  df-or 384  df-an 385  df-3or 1032  df-3an 1033  df-tru 1478  df-fal 1481  df-ex 1696  df-nf 1701  df-sb 1868  df-eu 2462  df-mo 2463  df-clab 2597  df-cleq 2603  df-clel 2606  df-nfc 2740  df-ne 2782  df-nel 2783  df-ral 2901  df-rex 2902  df-reu 2903  df-rmo 2904  df-rab 2905  df-v 3175  df-sbc 3403  df-csb 3500  df-dif 3543  df-un 3545  df-in 3547  df-ss 3554  df-pss 3556  df-nul 3875  df-if 4037  df-pw 4110  df-sn 4126  df-pr 4128  df-tp 4130  df-op 4132  df-uni 4368  df-int 4406  df-iun 4452  df-br 4579  df-opab 4639  df-mpt 4640  df-tr 4676  df-eprel 4939  df-id 4943  df-po 4949  df-so 4950  df-fr 4987  df-se 4988  df-we 4989  df-xp 5034  df-rel 5035  df-cnv 5036  df-co 5037  df-dm 5038  df-rn 5039  df-res 5040  df-ima 5041  df-pred 5583  df-ord 5629  df-on 5630  df-lim 5631  df-suc 5632  df-iota 5754  df-fun 5792  df-fn 5793  df-f 5794  df-f1 5795  df-fo 5796  df-f1o 5797  df-fv 5798  df-isom 5799  df-riota 6489  df-ov 6530  df-oprab 6531  df-mpt2 6532  df-om 6936  df-1st 7037  df-2nd 7038  df-wrecs 7272  df-recs 7333  df-rdg 7371  df-1o 7425  df-oadd 7429  df-er 7607  df-en 7820  df-dom 7821  df-sdom 7822  df-fin 7823  df-sup 8209  df-inf 8210  df-oi 8276  df-card 8626  df-pnf 9933  df-mnf 9934  df-xr 9935  df-ltxr 9936  df-le 9937  df-sub 10120  df-neg 10121  df-div 10537  df-nn 10871  df-2 10929  df-3 10930  df-n0 11143  df-z 11214  df-uz 11523  df-rp 11668  df-fz 12156  df-fzo 12293  df-fl 12413  df-mod 12489  df-seq 12622  df-exp 12681  df-hash 12938  df-cj 13636  df-re 13637  df-im 13638  df-sqrt 13772  df-abs 13773  df-clim 14016  df-prod 14424  df-dvds 14771  df-gcd 15004  df-lcm 15090  df-lcmf 15091
This theorem is referenced by:  lcmfass  15146
  Copyright terms: Public domain W3C validator