Theorem findcard2d 9094

Description: Deduction version of findcard2 9092. (Contributed by SO, 16-Jul-2018.)

Hypotheses

Ref	Expression
findcard2d.ch	⊢ (𝑥 = ∅ → (𝜓 ↔ 𝜒))
findcard2d.th	⊢ (𝑥 = 𝑦 → (𝜓 ↔ 𝜃))
findcard2d.ta	⊢ (𝑥 = (𝑦 ∪ {𝑧}) → (𝜓 ↔ 𝜏))
findcard2d.et	⊢ (𝑥 = 𝐴 → (𝜓 ↔ 𝜂))
findcard2d.z	⊢ (𝜑 → 𝜒)
findcard2d.i	⊢ ((𝜑 ∧ (𝑦 ⊆ 𝐴 ∧ 𝑧 ∈ (𝐴 ∖ 𝑦))) → (𝜃 → 𝜏))
findcard2d.a	⊢ (𝜑 → 𝐴 ∈ Fin)

Assertion

Ref	Expression
findcard2d	⊢ (𝜑 → 𝜂)

Distinct variable groups:   𝑥,𝐴,𝑦,𝑧   𝜑,𝑥,𝑦,𝑧   𝜓,𝑦,𝑧   𝜒,𝑥   𝜃,𝑥   𝜏,𝑥   𝜂,𝑥

Allowed substitution hints:   𝜓(𝑥)   𝜒(𝑦,𝑧)   𝜃(𝑦,𝑧)   𝜏(𝑦,𝑧)   𝜂(𝑦,𝑧)

Proof of Theorem findcard2d

Step	Hyp	Ref	Expression
1		ssid 3945	. 2 ⊢ 𝐴 ⊆ 𝐴
2		findcard2d.a	. . . 4 ⊢ (𝜑 → 𝐴 ∈ Fin)
3	2	adantr 480	. . 3 ⊢ ((𝜑 ∧ 𝐴 ⊆ 𝐴) → 𝐴 ∈ Fin)
4		sseq1 3948	. . . . . 6 ⊢ (𝑥 = ∅ → (𝑥 ⊆ 𝐴 ↔ ∅ ⊆ 𝐴))
5	4	anbi2d 631	. . . . 5 ⊢ (𝑥 = ∅ → ((𝜑 ∧ 𝑥 ⊆ 𝐴) ↔ (𝜑 ∧ ∅ ⊆ 𝐴)))
6		findcard2d.ch	. . . . 5 ⊢ (𝑥 = ∅ → (𝜓 ↔ 𝜒))
7	5, 6	imbi12d 344	. . . 4 ⊢ (𝑥 = ∅ → (((𝜑 ∧ 𝑥 ⊆ 𝐴) → 𝜓) ↔ ((𝜑 ∧ ∅ ⊆ 𝐴) → 𝜒)))
8		sseq1 3948	. . . . . 6 ⊢ (𝑥 = 𝑦 → (𝑥 ⊆ 𝐴 ↔ 𝑦 ⊆ 𝐴))
9	8	anbi2d 631	. . . . 5 ⊢ (𝑥 = 𝑦 → ((𝜑 ∧ 𝑥 ⊆ 𝐴) ↔ (𝜑 ∧ 𝑦 ⊆ 𝐴)))
10		findcard2d.th	. . . . 5 ⊢ (𝑥 = 𝑦 → (𝜓 ↔ 𝜃))
11	9, 10	imbi12d 344	. . . 4 ⊢ (𝑥 = 𝑦 → (((𝜑 ∧ 𝑥 ⊆ 𝐴) → 𝜓) ↔ ((𝜑 ∧ 𝑦 ⊆ 𝐴) → 𝜃)))
12		sseq1 3948	. . . . . 6 ⊢ (𝑥 = (𝑦 ∪ {𝑧}) → (𝑥 ⊆ 𝐴 ↔ (𝑦 ∪ {𝑧}) ⊆ 𝐴))
13	12	anbi2d 631	. . . . 5 ⊢ (𝑥 = (𝑦 ∪ {𝑧}) → ((𝜑 ∧ 𝑥 ⊆ 𝐴) ↔ (𝜑 ∧ (𝑦 ∪ {𝑧}) ⊆ 𝐴)))
14		findcard2d.ta	. . . . 5 ⊢ (𝑥 = (𝑦 ∪ {𝑧}) → (𝜓 ↔ 𝜏))
15	13, 14	imbi12d 344	. . . 4 ⊢ (𝑥 = (𝑦 ∪ {𝑧}) → (((𝜑 ∧ 𝑥 ⊆ 𝐴) → 𝜓) ↔ ((𝜑 ∧ (𝑦 ∪ {𝑧}) ⊆ 𝐴) → 𝜏)))
16		sseq1 3948	. . . . . 6 ⊢ (𝑥 = 𝐴 → (𝑥 ⊆ 𝐴 ↔ 𝐴 ⊆ 𝐴))
17	16	anbi2d 631	. . . . 5 ⊢ (𝑥 = 𝐴 → ((𝜑 ∧ 𝑥 ⊆ 𝐴) ↔ (𝜑 ∧ 𝐴 ⊆ 𝐴)))
18		findcard2d.et	. . . . 5 ⊢ (𝑥 = 𝐴 → (𝜓 ↔ 𝜂))
19	17, 18	imbi12d 344	. . . 4 ⊢ (𝑥 = 𝐴 → (((𝜑 ∧ 𝑥 ⊆ 𝐴) → 𝜓) ↔ ((𝜑 ∧ 𝐴 ⊆ 𝐴) → 𝜂)))
20		findcard2d.z	. . . . 5 ⊢ (𝜑 → 𝜒)
21	20	adantr 480	. . . 4 ⊢ ((𝜑 ∧ ∅ ⊆ 𝐴) → 𝜒)
22		simprl 771	. . . . . . . 8 ⊢ (((𝑦 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑦) ∧ (𝜑 ∧ (𝑦 ∪ {𝑧}) ⊆ 𝐴)) → 𝜑)
23		simprr 773	. . . . . . . . 9 ⊢ (((𝑦 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑦) ∧ (𝜑 ∧ (𝑦 ∪ {𝑧}) ⊆ 𝐴)) → (𝑦 ∪ {𝑧}) ⊆ 𝐴)
24	23	unssad 4134	. . . . . . . 8 ⊢ (((𝑦 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑦) ∧ (𝜑 ∧ (𝑦 ∪ {𝑧}) ⊆ 𝐴)) → 𝑦 ⊆ 𝐴)
25	22, 24	jca 511	. . . . . . 7 ⊢ (((𝑦 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑦) ∧ (𝜑 ∧ (𝑦 ∪ {𝑧}) ⊆ 𝐴)) → (𝜑 ∧ 𝑦 ⊆ 𝐴))
26		id 22	. . . . . . . . . . 11 ⊢ ((𝑦 ∪ {𝑧}) ⊆ 𝐴 → (𝑦 ∪ {𝑧}) ⊆ 𝐴)
27		vsnid 4608	. . . . . . . . . . . 12 ⊢ 𝑧 ∈ {𝑧}
28		elun2 4124	. . . . . . . . . . . 12 ⊢ (𝑧 ∈ {𝑧} → 𝑧 ∈ (𝑦 ∪ {𝑧}))
29	27, 28	mp1i 13	. . . . . . . . . . 11 ⊢ ((𝑦 ∪ {𝑧}) ⊆ 𝐴 → 𝑧 ∈ (𝑦 ∪ {𝑧}))
30	26, 29	sseldd 3923	. . . . . . . . . 10 ⊢ ((𝑦 ∪ {𝑧}) ⊆ 𝐴 → 𝑧 ∈ 𝐴)
31	30	ad2antll 730	. . . . . . . . 9 ⊢ (((𝑦 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑦) ∧ (𝜑 ∧ (𝑦 ∪ {𝑧}) ⊆ 𝐴)) → 𝑧 ∈ 𝐴)
32		simplr 769	. . . . . . . . 9 ⊢ (((𝑦 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑦) ∧ (𝜑 ∧ (𝑦 ∪ {𝑧}) ⊆ 𝐴)) → ¬ 𝑧 ∈ 𝑦)
33	31, 32	eldifd 3901	. . . . . . . 8 ⊢ (((𝑦 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑦) ∧ (𝜑 ∧ (𝑦 ∪ {𝑧}) ⊆ 𝐴)) → 𝑧 ∈ (𝐴 ∖ 𝑦))
34		findcard2d.i	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑦 ⊆ 𝐴 ∧ 𝑧 ∈ (𝐴 ∖ 𝑦))) → (𝜃 → 𝜏))
35	22, 24, 33, 34	syl12anc 837	. . . . . . 7 ⊢ (((𝑦 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑦) ∧ (𝜑 ∧ (𝑦 ∪ {𝑧}) ⊆ 𝐴)) → (𝜃 → 𝜏))
36	25, 35	embantd 59	. . . . . 6 ⊢ (((𝑦 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑦) ∧ (𝜑 ∧ (𝑦 ∪ {𝑧}) ⊆ 𝐴)) → (((𝜑 ∧ 𝑦 ⊆ 𝐴) → 𝜃) → 𝜏))
37	36	ex 412	. . . . 5 ⊢ ((𝑦 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑦) → ((𝜑 ∧ (𝑦 ∪ {𝑧}) ⊆ 𝐴) → (((𝜑 ∧ 𝑦 ⊆ 𝐴) → 𝜃) → 𝜏)))
38	37	com23 86	. . . 4 ⊢ ((𝑦 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑦) → (((𝜑 ∧ 𝑦 ⊆ 𝐴) → 𝜃) → ((𝜑 ∧ (𝑦 ∪ {𝑧}) ⊆ 𝐴) → 𝜏)))
39	7, 11, 15, 19, 21, 38	findcard2s 9093	. . 3 ⊢ (𝐴 ∈ Fin → ((𝜑 ∧ 𝐴 ⊆ 𝐴) → 𝜂))
40	3, 39	mpcom 38	. 2 ⊢ ((𝜑 ∧ 𝐴 ⊆ 𝐴) → 𝜂)
41	1, 40	mpan2 692	1 ⊢ (𝜑 → 𝜂)

Syntax hints:  ¬ wn 3   → wi 4   ↔ wb 206   ∧ wa 395   = wceq 1542   ∈ wcel 2114   ∖ cdif 3887   ∪ cun 3888   ⊆ wss 3890  ∅c0 4274  {csn 4568  Fincfn 8886

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1797  ax-4 1811  ax-5 1912  ax-6 1969  ax-7 2010  ax-8 2116  ax-9 2124  ax-10 2147  ax-11 2163  ax-12 2185  ax-ext 2709  ax-sep 5231  ax-nul 5241  ax-pr 5370  ax-un 7682

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 849  df-3or 1088  df-3an 1089  df-tru 1545  df-fal 1555  df-ex 1782  df-nf 1786  df-sb 2069  df-mo 2540  df-eu 2570  df-clab 2716  df-cleq 2729  df-clel 2812  df-nfc 2886  df-ne 2934  df-ral 3053  df-rex 3063  df-reu 3344  df-rab 3391  df-v 3432  df-sbc 3730  df-dif 3893  df-un 3895  df-in 3897  df-ss 3907  df-pss 3910  df-nul 4275  df-if 4468  df-pw 4544  df-sn 4569  df-pr 4571  df-op 4575  df-uni 4852  df-br 5087  df-opab 5149  df-tr 5194  df-id 5519  df-eprel 5524  df-po 5532  df-so 5533  df-fr 5577  df-we 5579  df-xp 5630  df-rel 5631  df-cnv 5632  df-co 5633  df-dm 5634  df-rn 5635  df-res 5636  df-ima 5637  df-ord 6320  df-on 6321  df-lim 6322  df-suc 6323  df-iota 6448  df-fun 6494  df-fn 6495  df-f 6496  df-f1 6497  df-fo 6498  df-f1o 6499  df-fv 6500  df-om 7811  df-en 8887  df-fin 8890

This theorem is referenced by:  fprodmodd  15953  sumeven  16347  sumodd  16348  maducoeval2  22615  madugsum  22618  elrgspnlem4  33321  domnprodeq0  33352  rprmdvdsprod  33609  deg1prod  33658  psrgsum  33707  psrmonprod  33711  vieta  33739  constrextdg2lem  33908  constrfiss  33911  esum2dlem  34252  fiunelcarsg  34476  carsgclctunlem1  34477  evl1gprodd  42570  idomnnzgmulnz  42586  deg1gprod  42593  fiiuncl  45514  mpct  45648  fprodexp  46042  fprodabs2  46043  mccl  46046  fprodcn  46048  fprodcncf  46346  dvnprodlem3  46394  sge0iunmptlemfi  46859  hoidmvle  47046