Theorem sadadd3 15983

Description: Sum of initial segments of the sadd sequence. (Contributed by Mario Carneiro, 9-Sep-2016.)

Hypotheses

Ref	Expression
sadval.a	⊢ (𝜑 → 𝐴 ⊆ ℕ0)
sadval.b	⊢ (𝜑 → 𝐵 ⊆ ℕ0)
sadval.c	⊢ 𝐶 = seq0((𝑐 ∈ 2o, 𝑚 ∈ ℕ0 ↦ if(cadd(𝑚 ∈ 𝐴, 𝑚 ∈ 𝐵, ∅ ∈ 𝑐), 1o, ∅)), (𝑛 ∈ ℕ0 ↦ if(𝑛 = 0, ∅, (𝑛 − 1))))
sadcp1.n	⊢ (𝜑 → 𝑁 ∈ ℕ0)
sadcadd.k	⊢ 𝐾 = ◡(bits ↾ ℕ0)

Assertion

Ref	Expression
sadadd3	⊢ (𝜑 → ((𝐾‘((𝐴 sadd 𝐵) ∩ (0..^𝑁))) mod (2↑𝑁)) = (((𝐾‘(𝐴 ∩ (0..^𝑁))) + (𝐾‘(𝐵 ∩ (0..^𝑁)))) mod (2↑𝑁)))

Distinct variable groups:   𝑚,𝑐,𝑛   𝐴,𝑐,𝑚   𝐵,𝑐,𝑚   𝑛,𝑁

Allowed substitution hints:   𝜑(𝑚,𝑛,𝑐)   𝐴(𝑛)   𝐵(𝑛)   𝐶(𝑚,𝑛,𝑐)   𝐾(𝑚,𝑛,𝑐)   𝑁(𝑚,𝑐)

Proof of Theorem sadadd3

Dummy variable 𝑘 is distinct from all other variables.

Step	Hyp	Ref	Expression
1		2nn 11868	. . . . . . . . 9 ⊢ 2 ∈ ℕ
2	1	a1i 11	. . . . . . . 8 ⊢ (𝜑 → 2 ∈ ℕ)
3		sadcp1.n	. . . . . . . 8 ⊢ (𝜑 → 𝑁 ∈ ℕ0)
4	2, 3	nnexpcld 13777	. . . . . . 7 ⊢ (𝜑 → (2↑𝑁) ∈ ℕ)
5	4	nnzd 12246	. . . . . 6 ⊢ (𝜑 → (2↑𝑁) ∈ ℤ)
6		iddvds 15794	. . . . . 6 ⊢ ((2↑𝑁) ∈ ℤ → (2↑𝑁) ∥ (2↑𝑁))
7	5, 6	syl 17	. . . . 5 ⊢ (𝜑 → (2↑𝑁) ∥ (2↑𝑁))
8		dvds0 15796	. . . . . 6 ⊢ ((2↑𝑁) ∈ ℤ → (2↑𝑁) ∥ 0)
9	5, 8	syl 17	. . . . 5 ⊢ (𝜑 → (2↑𝑁) ∥ 0)
10		breq2 5043	. . . . . 6 ⊢ ((2↑𝑁) = if(∅ ∈ (𝐶‘𝑁), (2↑𝑁), 0) → ((2↑𝑁) ∥ (2↑𝑁) ↔ (2↑𝑁) ∥ if(∅ ∈ (𝐶‘𝑁), (2↑𝑁), 0)))
11		breq2 5043	. . . . . 6 ⊢ (0 = if(∅ ∈ (𝐶‘𝑁), (2↑𝑁), 0) → ((2↑𝑁) ∥ 0 ↔ (2↑𝑁) ∥ if(∅ ∈ (𝐶‘𝑁), (2↑𝑁), 0)))
12	10, 11	ifboth 4464	. . . . 5 ⊢ (((2↑𝑁) ∥ (2↑𝑁) ∧ (2↑𝑁) ∥ 0) → (2↑𝑁) ∥ if(∅ ∈ (𝐶‘𝑁), (2↑𝑁), 0))
13	7, 9, 12	syl2anc 587	. . . 4 ⊢ (𝜑 → (2↑𝑁) ∥ if(∅ ∈ (𝐶‘𝑁), (2↑𝑁), 0))
14		inss1 4129	. . . . . . . . 9 ⊢ ((𝐴 sadd 𝐵) ∩ (0..^𝑁)) ⊆ (𝐴 sadd 𝐵)
15		sadval.a	. . . . . . . . . . 11 ⊢ (𝜑 → 𝐴 ⊆ ℕ0)
16		sadval.b	. . . . . . . . . . 11 ⊢ (𝜑 → 𝐵 ⊆ ℕ0)
17		sadval.c	. . . . . . . . . . 11 ⊢ 𝐶 = seq0((𝑐 ∈ 2o, 𝑚 ∈ ℕ0 ↦ if(cadd(𝑚 ∈ 𝐴, 𝑚 ∈ 𝐵, ∅ ∈ 𝑐), 1o, ∅)), (𝑛 ∈ ℕ0 ↦ if(𝑛 = 0, ∅, (𝑛 − 1))))
18	15, 16, 17	sadfval 15974	. . . . . . . . . 10 ⊢ (𝜑 → (𝐴 sadd 𝐵) = {𝑘 ∈ ℕ0 ∣ hadd(𝑘 ∈ 𝐴, 𝑘 ∈ 𝐵, ∅ ∈ (𝐶‘𝑘))})
19		ssrab2 3979	. . . . . . . . . 10 ⊢ {𝑘 ∈ ℕ0 ∣ hadd(𝑘 ∈ 𝐴, 𝑘 ∈ 𝐵, ∅ ∈ (𝐶‘𝑘))} ⊆ ℕ0
20	18, 19	eqsstrdi 3941	. . . . . . . . 9 ⊢ (𝜑 → (𝐴 sadd 𝐵) ⊆ ℕ0)
21	14, 20	sstrid 3898	. . . . . . . 8 ⊢ (𝜑 → ((𝐴 sadd 𝐵) ∩ (0..^𝑁)) ⊆ ℕ0)
22		fzofi 13512	. . . . . . . . . 10 ⊢ (0..^𝑁) ∈ Fin
23	22	a1i 11	. . . . . . . . 9 ⊢ (𝜑 → (0..^𝑁) ∈ Fin)
24		inss2 4130	. . . . . . . . 9 ⊢ ((𝐴 sadd 𝐵) ∩ (0..^𝑁)) ⊆ (0..^𝑁)
25		ssfi 8829	. . . . . . . . 9 ⊢ (((0..^𝑁) ∈ Fin ∧ ((𝐴 sadd 𝐵) ∩ (0..^𝑁)) ⊆ (0..^𝑁)) → ((𝐴 sadd 𝐵) ∩ (0..^𝑁)) ∈ Fin)
26	23, 24, 25	sylancl 589	. . . . . . . 8 ⊢ (𝜑 → ((𝐴 sadd 𝐵) ∩ (0..^𝑁)) ∈ Fin)
27		elfpw 8956	. . . . . . . 8 ⊢ (((𝐴 sadd 𝐵) ∩ (0..^𝑁)) ∈ (𝒫 ℕ0 ∩ Fin) ↔ (((𝐴 sadd 𝐵) ∩ (0..^𝑁)) ⊆ ℕ0 ∧ ((𝐴 sadd 𝐵) ∩ (0..^𝑁)) ∈ Fin))
28	21, 26, 27	sylanbrc 586	. . . . . . 7 ⊢ (𝜑 → ((𝐴 sadd 𝐵) ∩ (0..^𝑁)) ∈ (𝒫 ℕ0 ∩ Fin))
29		bitsf1o 15967	. . . . . . . . . 10 ⊢ (bits ↾ ℕ0):ℕ0–1-1-onto→(𝒫 ℕ0 ∩ Fin)
30		f1ocnv 6651	. . . . . . . . . 10 ⊢ ((bits ↾ ℕ0):ℕ0–1-1-onto→(𝒫 ℕ0 ∩ Fin) → ◡(bits ↾ ℕ0):(𝒫 ℕ0 ∩ Fin)–1-1-onto→ℕ0)
31		f1of 6639	. . . . . . . . . 10 ⊢ (◡(bits ↾ ℕ0):(𝒫 ℕ0 ∩ Fin)–1-1-onto→ℕ0 → ◡(bits ↾ ℕ0):(𝒫 ℕ0 ∩ Fin)⟶ℕ0)
32	29, 30, 31	mp2b 10	. . . . . . . . 9 ⊢ ◡(bits ↾ ℕ0):(𝒫 ℕ0 ∩ Fin)⟶ℕ0
33		sadcadd.k	. . . . . . . . . 10 ⊢ 𝐾 = ◡(bits ↾ ℕ0)
34	33	feq1i 6514	. . . . . . . . 9 ⊢ (𝐾:(𝒫 ℕ0 ∩ Fin)⟶ℕ0 ↔ ◡(bits ↾ ℕ0):(𝒫 ℕ0 ∩ Fin)⟶ℕ0)
35	32, 34	mpbir 234	. . . . . . . 8 ⊢ 𝐾:(𝒫 ℕ0 ∩ Fin)⟶ℕ0
36	35	ffvelrni 6881	. . . . . . 7 ⊢ (((𝐴 sadd 𝐵) ∩ (0..^𝑁)) ∈ (𝒫 ℕ0 ∩ Fin) → (𝐾‘((𝐴 sadd 𝐵) ∩ (0..^𝑁))) ∈ ℕ0)
37	28, 36	syl 17	. . . . . 6 ⊢ (𝜑 → (𝐾‘((𝐴 sadd 𝐵) ∩ (0..^𝑁))) ∈ ℕ0)
38	37	nn0cnd 12117	. . . . 5 ⊢ (𝜑 → (𝐾‘((𝐴 sadd 𝐵) ∩ (0..^𝑁))) ∈ ℂ)
39	4	nncnd 11811	. . . . . 6 ⊢ (𝜑 → (2↑𝑁) ∈ ℂ)
40		0cn 10790	. . . . . 6 ⊢ 0 ∈ ℂ
41		ifcl 4470	. . . . . 6 ⊢ (((2↑𝑁) ∈ ℂ ∧ 0 ∈ ℂ) → if(∅ ∈ (𝐶‘𝑁), (2↑𝑁), 0) ∈ ℂ)
42	39, 40, 41	sylancl 589	. . . . 5 ⊢ (𝜑 → if(∅ ∈ (𝐶‘𝑁), (2↑𝑁), 0) ∈ ℂ)
43	38, 42	pncan2d 11156	. . . 4 ⊢ (𝜑 → (((𝐾‘((𝐴 sadd 𝐵) ∩ (0..^𝑁))) + if(∅ ∈ (𝐶‘𝑁), (2↑𝑁), 0)) − (𝐾‘((𝐴 sadd 𝐵) ∩ (0..^𝑁)))) = if(∅ ∈ (𝐶‘𝑁), (2↑𝑁), 0))
44	13, 43	breqtrrd 5067	. . 3 ⊢ (𝜑 → (2↑𝑁) ∥ (((𝐾‘((𝐴 sadd 𝐵) ∩ (0..^𝑁))) + if(∅ ∈ (𝐶‘𝑁), (2↑𝑁), 0)) − (𝐾‘((𝐴 sadd 𝐵) ∩ (0..^𝑁)))))
45	37	nn0zd 12245	. . . . 5 ⊢ (𝜑 → (𝐾‘((𝐴 sadd 𝐵) ∩ (0..^𝑁))) ∈ ℤ)
46	5	adantr 484	. . . . . 6 ⊢ ((𝜑 ∧ ∅ ∈ (𝐶‘𝑁)) → (2↑𝑁) ∈ ℤ)
47		0zd 12153	. . . . . 6 ⊢ ((𝜑 ∧ ¬ ∅ ∈ (𝐶‘𝑁)) → 0 ∈ ℤ)
48	46, 47	ifclda 4460	. . . . 5 ⊢ (𝜑 → if(∅ ∈ (𝐶‘𝑁), (2↑𝑁), 0) ∈ ℤ)
49	45, 48	zaddcld 12251	. . . 4 ⊢ (𝜑 → ((𝐾‘((𝐴 sadd 𝐵) ∩ (0..^𝑁))) + if(∅ ∈ (𝐶‘𝑁), (2↑𝑁), 0)) ∈ ℤ)
50		moddvds 15789	. . . 4 ⊢ (((2↑𝑁) ∈ ℕ ∧ ((𝐾‘((𝐴 sadd 𝐵) ∩ (0..^𝑁))) + if(∅ ∈ (𝐶‘𝑁), (2↑𝑁), 0)) ∈ ℤ ∧ (𝐾‘((𝐴 sadd 𝐵) ∩ (0..^𝑁))) ∈ ℤ) → ((((𝐾‘((𝐴 sadd 𝐵) ∩ (0..^𝑁))) + if(∅ ∈ (𝐶‘𝑁), (2↑𝑁), 0)) mod (2↑𝑁)) = ((𝐾‘((𝐴 sadd 𝐵) ∩ (0..^𝑁))) mod (2↑𝑁)) ↔ (2↑𝑁) ∥ (((𝐾‘((𝐴 sadd 𝐵) ∩ (0..^𝑁))) + if(∅ ∈ (𝐶‘𝑁), (2↑𝑁), 0)) − (𝐾‘((𝐴 sadd 𝐵) ∩ (0..^𝑁))))))
51	4, 49, 45, 50	syl3anc 1373	. . 3 ⊢ (𝜑 → ((((𝐾‘((𝐴 sadd 𝐵) ∩ (0..^𝑁))) + if(∅ ∈ (𝐶‘𝑁), (2↑𝑁), 0)) mod (2↑𝑁)) = ((𝐾‘((𝐴 sadd 𝐵) ∩ (0..^𝑁))) mod (2↑𝑁)) ↔ (2↑𝑁) ∥ (((𝐾‘((𝐴 sadd 𝐵) ∩ (0..^𝑁))) + if(∅ ∈ (𝐶‘𝑁), (2↑𝑁), 0)) − (𝐾‘((𝐴 sadd 𝐵) ∩ (0..^𝑁))))))
52	44, 51	mpbird 260	. 2 ⊢ (𝜑 → (((𝐾‘((𝐴 sadd 𝐵) ∩ (0..^𝑁))) + if(∅ ∈ (𝐶‘𝑁), (2↑𝑁), 0)) mod (2↑𝑁)) = ((𝐾‘((𝐴 sadd 𝐵) ∩ (0..^𝑁))) mod (2↑𝑁)))
53	15, 16, 17, 3, 33	sadadd2 15982	. . 3 ⊢ (𝜑 → ((𝐾‘((𝐴 sadd 𝐵) ∩ (0..^𝑁))) + if(∅ ∈ (𝐶‘𝑁), (2↑𝑁), 0)) = ((𝐾‘(𝐴 ∩ (0..^𝑁))) + (𝐾‘(𝐵 ∩ (0..^𝑁)))))
54	53	oveq1d 7206	. 2 ⊢ (𝜑 → (((𝐾‘((𝐴 sadd 𝐵) ∩ (0..^𝑁))) + if(∅ ∈ (𝐶‘𝑁), (2↑𝑁), 0)) mod (2↑𝑁)) = (((𝐾‘(𝐴 ∩ (0..^𝑁))) + (𝐾‘(𝐵 ∩ (0..^𝑁)))) mod (2↑𝑁)))
55	52, 54	eqtr3d 2773	1 ⊢ (𝜑 → ((𝐾‘((𝐴 sadd 𝐵) ∩ (0..^𝑁))) mod (2↑𝑁)) = (((𝐾‘(𝐴 ∩ (0..^𝑁))) + (𝐾‘(𝐵 ∩ (0..^𝑁)))) mod (2↑𝑁)))

Syntax hints:  ¬ wn 3   → wi 4   ↔ wb 209   ∧ wa 399   = wceq 1543  haddwhad 1599  caddwcad 1613   ∈ wcel 2112  {crab 3055   ∩ cin 3852   ⊆ wss 3853  ∅c0 4223  ifcif 4425  𝒫 cpw 4499   class class class wbr 5039   ↦ cmpt 5120  ^◡ccnv 5535   ↾ cres 5538  ⟶wf 6354  –1-1-onto→wf1o 6357  ‘cfv 6358  (class class class)co 7191   ∈ cmpo 7193  1_oc1o 8173  2_oc2o 8174  Fincfn 8604  ℂcc 10692  0cc0 10694  1c1 10695   + caddc 10697   − cmin 11027  ℕcn 11795  2c2 11850  ℕ₀cn0 12055  ℤcz 12141  ..^cfzo 13203   mod cmo 13407  seqcseq 13539  ↑cexp 13600   ∥ cdvds 15778  bitscbits 15941   sadd csad 15942

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 2018  ax-8 2114  ax-9 2122  ax-10 2143  ax-11 2160  ax-12 2177  ax-ext 2708  ax-rep 5164  ax-sep 5177  ax-nul 5184  ax-pow 5243  ax-pr 5307  ax-un 7501  ax-inf2 9234  ax-cnex 10750  ax-resscn 10751  ax-1cn 10752  ax-icn 10753  ax-addcl 10754  ax-addrcl 10755  ax-mulcl 10756  ax-mulrcl 10757  ax-mulcom 10758  ax-addass 10759  ax-mulass 10760  ax-distr 10761  ax-i2m1 10762  ax-1ne0 10763  ax-1rid 10764  ax-rnegex 10765  ax-rrecex 10766  ax-cnre 10767  ax-pre-lttri 10768  ax-pre-lttrn 10769  ax-pre-ltadd 10770  ax-pre-mulgt0 10771  ax-pre-sup 10772

This theorem depends on definitions:  df-bi 210  df-an 400  df-or 848  df-3or 1090  df-3an 1091  df-xor 1508  df-tru 1546  df-fal 1556  df-had 1600  df-cad 1614  df-ex 1788  df-nf 1792  df-sb 2073  df-mo 2539  df-eu 2568  df-clab 2715  df-cleq 2728  df-clel 2809  df-nfc 2879  df-ne 2933  df-nel 3037  df-ral 3056  df-rex 3057  df-reu 3058  df-rmo 3059  df-rab 3060  df-v 3400  df-sbc 3684  df-csb 3799  df-dif 3856  df-un 3858  df-in 3860  df-ss 3870  df-pss 3872  df-nul 4224  df-if 4426  df-pw 4501  df-sn 4528  df-pr 4530  df-tp 4532  df-op 4534  df-uni 4806  df-int 4846  df-iun 4892  df-disj 5005  df-br 5040  df-opab 5102  df-mpt 5121  df-tr 5147  df-id 5440  df-eprel 5445  df-po 5453  df-so 5454  df-fr 5494  df-se 5495  df-we 5496  df-xp 5542  df-rel 5543  df-cnv 5544  df-co 5545  df-dm 5546  df-rn 5547  df-res 5548  df-ima 5549  df-pred 6140  df-ord 6194  df-on 6195  df-lim 6196  df-suc 6197  df-iota 6316  df-fun 6360  df-fn 6361  df-f 6362  df-f1 6363  df-fo 6364  df-f1o 6365  df-fv 6366  df-isom 6367  df-riota 7148  df-ov 7194  df-oprab 7195  df-mpo 7196  df-om 7623  df-1st 7739  df-2nd 7740  df-wrecs 8025  df-recs 8086  df-rdg 8124  df-1o 8180  df-2o 8181  df-oadd 8184  df-er 8369  df-map 8488  df-pm 8489  df-en 8605  df-dom 8606  df-sdom 8607  df-fin 8608  df-sup 9036  df-inf 9037  df-oi 9104  df-dju 9482  df-card 9520  df-pnf 10834  df-mnf 10835  df-xr 10836  df-ltxr 10837  df-le 10838  df-sub 11029  df-neg 11030  df-div 11455  df-nn 11796  df-2 11858  df-3 11859  df-n0 12056  df-xnn0 12128  df-z 12142  df-uz 12404  df-rp 12552  df-fz 13061  df-fzo 13204  df-fl 13332  df-mod 13408  df-seq 13540  df-exp 13601  df-hash 13862  df-cj 14627  df-re 14628  df-im 14629  df-sqrt 14763  df-abs 14764  df-clim 15014  df-sum 15215  df-dvds 15779  df-bits 15944  df-sad 15973

This theorem is referenced by:  sadaddlem  15988  sadasslem  15992  sadeq  15994