Theorem smufval 16036

Description: The multiplication of two bit sequences as repeated sequence addition. (Contributed by Mario Carneiro, 9-Sep-2016.)

Hypotheses

Ref	Expression
smuval.a	⊢ (𝜑 → 𝐴 ⊆ ℕ0)
smuval.b	⊢ (𝜑 → 𝐵 ⊆ ℕ0)
smuval.p	⊢ 𝑃 = seq0((𝑝 ∈ 𝒫 ℕ0, 𝑚 ∈ ℕ0 ↦ (𝑝 sadd {𝑛 ∈ ℕ0 ∣ (𝑚 ∈ 𝐴 ∧ (𝑛 − 𝑚) ∈ 𝐵)})), (𝑛 ∈ ℕ0 ↦ if(𝑛 = 0, ∅, (𝑛 − 1))))

Assertion

Ref	Expression
smufval	⊢ (𝜑 → (𝐴 smul 𝐵) = {𝑘 ∈ ℕ0 ∣ 𝑘 ∈ (𝑃‘(𝑘 + 1))})

Distinct variable groups:   𝑘,𝑚,𝑛,𝑝,𝐴   𝜑,𝑘,𝑛   𝐵,𝑘,𝑚,𝑛,𝑝   𝑃,𝑘

Allowed substitution hints:   𝜑(𝑚,𝑝)   𝑃(𝑚,𝑛,𝑝)

Proof of Theorem smufval

Dummy variables 𝑥 𝑦 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		smuval.a	. . 3 ⊢ (𝜑 → 𝐴 ⊆ ℕ0)
2		nn0ex 12096	. . . 4 ⊢ ℕ0 ∈ V
3	2	elpw2 5238	. . 3 ⊢ (𝐴 ∈ 𝒫 ℕ0 ↔ 𝐴 ⊆ ℕ0)
4	1, 3	sylibr 237	. 2 ⊢ (𝜑 → 𝐴 ∈ 𝒫 ℕ0)
5		smuval.b	. . 3 ⊢ (𝜑 → 𝐵 ⊆ ℕ0)
6	2	elpw2 5238	. . 3 ⊢ (𝐵 ∈ 𝒫 ℕ0 ↔ 𝐵 ⊆ ℕ0)
7	5, 6	sylibr 237	. 2 ⊢ (𝜑 → 𝐵 ∈ 𝒫 ℕ0)
8		simp1l 1199	. . . . . . . . . . . . 13 ⊢ (((𝑥 = 𝐴 ∧ 𝑦 = 𝐵) ∧ 𝑝 ∈ 𝒫 ℕ0 ∧ 𝑚 ∈ ℕ0) → 𝑥 = 𝐴)
9	8	eleq2d 2823	. . . . . . . . . . . 12 ⊢ (((𝑥 = 𝐴 ∧ 𝑦 = 𝐵) ∧ 𝑝 ∈ 𝒫 ℕ0 ∧ 𝑚 ∈ ℕ0) → (𝑚 ∈ 𝑥 ↔ 𝑚 ∈ 𝐴))
10		simp1r 1200	. . . . . . . . . . . . 13 ⊢ (((𝑥 = 𝐴 ∧ 𝑦 = 𝐵) ∧ 𝑝 ∈ 𝒫 ℕ0 ∧ 𝑚 ∈ ℕ0) → 𝑦 = 𝐵)
11	10	eleq2d 2823	. . . . . . . . . . . 12 ⊢ (((𝑥 = 𝐴 ∧ 𝑦 = 𝐵) ∧ 𝑝 ∈ 𝒫 ℕ0 ∧ 𝑚 ∈ ℕ0) → ((𝑛 − 𝑚) ∈ 𝑦 ↔ (𝑛 − 𝑚) ∈ 𝐵))
12	9, 11	anbi12d 634	. . . . . . . . . . 11 ⊢ (((𝑥 = 𝐴 ∧ 𝑦 = 𝐵) ∧ 𝑝 ∈ 𝒫 ℕ0 ∧ 𝑚 ∈ ℕ0) → ((𝑚 ∈ 𝑥 ∧ (𝑛 − 𝑚) ∈ 𝑦) ↔ (𝑚 ∈ 𝐴 ∧ (𝑛 − 𝑚) ∈ 𝐵)))
13	12	rabbidv 3390	. . . . . . . . . 10 ⊢ (((𝑥 = 𝐴 ∧ 𝑦 = 𝐵) ∧ 𝑝 ∈ 𝒫 ℕ0 ∧ 𝑚 ∈ ℕ0) → {𝑛 ∈ ℕ0 ∣ (𝑚 ∈ 𝑥 ∧ (𝑛 − 𝑚) ∈ 𝑦)} = {𝑛 ∈ ℕ0 ∣ (𝑚 ∈ 𝐴 ∧ (𝑛 − 𝑚) ∈ 𝐵)})
14	13	oveq2d 7229	. . . . . . . . 9 ⊢ (((𝑥 = 𝐴 ∧ 𝑦 = 𝐵) ∧ 𝑝 ∈ 𝒫 ℕ0 ∧ 𝑚 ∈ ℕ0) → (𝑝 sadd {𝑛 ∈ ℕ0 ∣ (𝑚 ∈ 𝑥 ∧ (𝑛 − 𝑚) ∈ 𝑦)}) = (𝑝 sadd {𝑛 ∈ ℕ0 ∣ (𝑚 ∈ 𝐴 ∧ (𝑛 − 𝑚) ∈ 𝐵)}))
15	14	mpoeq3dva 7288	. . . . . . . 8 ⊢ ((𝑥 = 𝐴 ∧ 𝑦 = 𝐵) → (𝑝 ∈ 𝒫 ℕ0, 𝑚 ∈ ℕ0 ↦ (𝑝 sadd {𝑛 ∈ ℕ0 ∣ (𝑚 ∈ 𝑥 ∧ (𝑛 − 𝑚) ∈ 𝑦)})) = (𝑝 ∈ 𝒫 ℕ0, 𝑚 ∈ ℕ0 ↦ (𝑝 sadd {𝑛 ∈ ℕ0 ∣ (𝑚 ∈ 𝐴 ∧ (𝑛 − 𝑚) ∈ 𝐵)})))
16	15	seqeq2d 13581	. . . . . . 7 ⊢ ((𝑥 = 𝐴 ∧ 𝑦 = 𝐵) → seq0((𝑝 ∈ 𝒫 ℕ0, 𝑚 ∈ ℕ0 ↦ (𝑝 sadd {𝑛 ∈ ℕ0 ∣ (𝑚 ∈ 𝑥 ∧ (𝑛 − 𝑚) ∈ 𝑦)})), (𝑛 ∈ ℕ0 ↦ if(𝑛 = 0, ∅, (𝑛 − 1)))) = seq0((𝑝 ∈ 𝒫 ℕ0, 𝑚 ∈ ℕ0 ↦ (𝑝 sadd {𝑛 ∈ ℕ0 ∣ (𝑚 ∈ 𝐴 ∧ (𝑛 − 𝑚) ∈ 𝐵)})), (𝑛 ∈ ℕ0 ↦ if(𝑛 = 0, ∅, (𝑛 − 1)))))
17		smuval.p	. . . . . . 7 ⊢ 𝑃 = seq0((𝑝 ∈ 𝒫 ℕ0, 𝑚 ∈ ℕ0 ↦ (𝑝 sadd {𝑛 ∈ ℕ0 ∣ (𝑚 ∈ 𝐴 ∧ (𝑛 − 𝑚) ∈ 𝐵)})), (𝑛 ∈ ℕ0 ↦ if(𝑛 = 0, ∅, (𝑛 − 1))))
18	16, 17	eqtr4di 2796	. . . . . 6 ⊢ ((𝑥 = 𝐴 ∧ 𝑦 = 𝐵) → seq0((𝑝 ∈ 𝒫 ℕ0, 𝑚 ∈ ℕ0 ↦ (𝑝 sadd {𝑛 ∈ ℕ0 ∣ (𝑚 ∈ 𝑥 ∧ (𝑛 − 𝑚) ∈ 𝑦)})), (𝑛 ∈ ℕ0 ↦ if(𝑛 = 0, ∅, (𝑛 − 1)))) = 𝑃)
19	18	fveq1d 6719	. . . . 5 ⊢ ((𝑥 = 𝐴 ∧ 𝑦 = 𝐵) → (seq0((𝑝 ∈ 𝒫 ℕ0, 𝑚 ∈ ℕ0 ↦ (𝑝 sadd {𝑛 ∈ ℕ0 ∣ (𝑚 ∈ 𝑥 ∧ (𝑛 − 𝑚) ∈ 𝑦)})), (𝑛 ∈ ℕ0 ↦ if(𝑛 = 0, ∅, (𝑛 − 1))))‘(𝑘 + 1)) = (𝑃‘(𝑘 + 1)))
20	19	eleq2d 2823	. . . 4 ⊢ ((𝑥 = 𝐴 ∧ 𝑦 = 𝐵) → (𝑘 ∈ (seq0((𝑝 ∈ 𝒫 ℕ0, 𝑚 ∈ ℕ0 ↦ (𝑝 sadd {𝑛 ∈ ℕ0 ∣ (𝑚 ∈ 𝑥 ∧ (𝑛 − 𝑚) ∈ 𝑦)})), (𝑛 ∈ ℕ0 ↦ if(𝑛 = 0, ∅, (𝑛 − 1))))‘(𝑘 + 1)) ↔ 𝑘 ∈ (𝑃‘(𝑘 + 1))))
21	20	rabbidv 3390	. . 3 ⊢ ((𝑥 = 𝐴 ∧ 𝑦 = 𝐵) → {𝑘 ∈ ℕ0 ∣ 𝑘 ∈ (seq0((𝑝 ∈ 𝒫 ℕ0, 𝑚 ∈ ℕ0 ↦ (𝑝 sadd {𝑛 ∈ ℕ0 ∣ (𝑚 ∈ 𝑥 ∧ (𝑛 − 𝑚) ∈ 𝑦)})), (𝑛 ∈ ℕ0 ↦ if(𝑛 = 0, ∅, (𝑛 − 1))))‘(𝑘 + 1))} = {𝑘 ∈ ℕ0 ∣ 𝑘 ∈ (𝑃‘(𝑘 + 1))})
22		df-smu 16035	. . 3 ⊢ smul = (𝑥 ∈ 𝒫 ℕ0, 𝑦 ∈ 𝒫 ℕ0 ↦ {𝑘 ∈ ℕ0 ∣ 𝑘 ∈ (seq0((𝑝 ∈ 𝒫 ℕ0, 𝑚 ∈ ℕ0 ↦ (𝑝 sadd {𝑛 ∈ ℕ0 ∣ (𝑚 ∈ 𝑥 ∧ (𝑛 − 𝑚) ∈ 𝑦)})), (𝑛 ∈ ℕ0 ↦ if(𝑛 = 0, ∅, (𝑛 − 1))))‘(𝑘 + 1))})
23	2	rabex 5225	. . 3 ⊢ {𝑘 ∈ ℕ0 ∣ 𝑘 ∈ (𝑃‘(𝑘 + 1))} ∈ V
24	21, 22, 23	ovmpoa 7364	. 2 ⊢ ((𝐴 ∈ 𝒫 ℕ0 ∧ 𝐵 ∈ 𝒫 ℕ0) → (𝐴 smul 𝐵) = {𝑘 ∈ ℕ0 ∣ 𝑘 ∈ (𝑃‘(𝑘 + 1))})
25	4, 7, 24	syl2anc 587	1 ⊢ (𝜑 → (𝐴 smul 𝐵) = {𝑘 ∈ ℕ0 ∣ 𝑘 ∈ (𝑃‘(𝑘 + 1))})

Syntax hints:   → wi 4   ∧ wa 399   ∧ w3a 1089   = wceq 1543   ∈ wcel 2110  {crab 3065   ⊆ wss 3866  ∅c0 4237  ifcif 4439  𝒫 cpw 4513   ↦ cmpt 5135  ‘cfv 6380  (class class class)co 7213   ∈ cmpo 7215  0cc0 10729  1c1 10730   + caddc 10732   − cmin 11062  ℕ₀cn0 12090  seqcseq 13574   sadd csad 15979   smul csmu 15980

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1803  ax-4 1817  ax-5 1918  ax-6 1976  ax-7 2016  ax-8 2112  ax-9 2120  ax-10 2141  ax-11 2158  ax-12 2175  ax-ext 2708  ax-sep 5192  ax-nul 5199  ax-pr 5322  ax-un 7523  ax-cnex 10785  ax-1cn 10787  ax-addcl 10789

This theorem depends on definitions:  df-bi 210  df-an 400  df-or 848  df-3or 1090  df-3an 1091  df-tru 1546  df-fal 1556  df-ex 1788  df-nf 1792  df-sb 2071  df-mo 2539  df-eu 2568  df-clab 2715  df-cleq 2729  df-clel 2816  df-nfc 2886  df-ne 2941  df-ral 3066  df-rex 3067  df-reu 3068  df-rab 3070  df-v 3410  df-sbc 3695  df-csb 3812  df-dif 3869  df-un 3871  df-in 3873  df-ss 3883  df-pss 3885  df-nul 4238  df-if 4440  df-pw 4515  df-sn 4542  df-pr 4544  df-tp 4546  df-op 4548  df-uni 4820  df-iun 4906  df-br 5054  df-opab 5116  df-mpt 5136  df-tr 5162  df-id 5455  df-eprel 5460  df-po 5468  df-so 5469  df-fr 5509  df-we 5511  df-xp 5557  df-rel 5558  df-cnv 5559  df-co 5560  df-dm 5561  df-rn 5562  df-res 5563  df-ima 5564  df-pred 6160  df-ord 6216  df-on 6217  df-lim 6218  df-suc 6219  df-iota 6338  df-fun 6382  df-fn 6383  df-f 6384  df-f1 6385  df-fo 6386  df-f1o 6387  df-fv 6388  df-ov 7216  df-oprab 7217  df-mpo 7218  df-om 7645  df-wrecs 8047  df-recs 8108  df-rdg 8146  df-nn 11831  df-n0 12091  df-seq 13575  df-smu 16035

This theorem is referenced by:  smuval  16040  smupvallem  16042  smucl  16043