Theorem ifcldadc 3670

Description: Conditional closure. (Contributed by Jim Kingdon, 11-Jan-2022.)

Hypotheses

Ref	Expression
ifcldadc.1	⊢ ((𝜑 ∧ 𝜓) → 𝐴 ∈ 𝐶)
ifcldadc.2	⊢ ((𝜑 ∧ ¬ 𝜓) → 𝐵 ∈ 𝐶)
ifcldadc.dc	⊢ (𝜑 → DECID 𝜓)

Assertion

Ref	Expression
ifcldadc	⊢ (𝜑 → if(𝜓, 𝐴, 𝐵) ∈ 𝐶)

Proof of Theorem ifcldadc

Step	Hyp	Ref	Expression
1		iftrue 3645	. . . 4 ⊢ (𝜓 → if(𝜓, 𝐴, 𝐵) = 𝐴)
2	1	adantl 277	. . 3 ⊢ ((𝜑 ∧ 𝜓) → if(𝜓, 𝐴, 𝐵) = 𝐴)
3		ifcldadc.1	. . 3 ⊢ ((𝜑 ∧ 𝜓) → 𝐴 ∈ 𝐶)
4	2, 3	eqeltrd 2315	. 2 ⊢ ((𝜑 ∧ 𝜓) → if(𝜓, 𝐴, 𝐵) ∈ 𝐶)
5		iffalse 3648	. . . 4 ⊢ (¬ 𝜓 → if(𝜓, 𝐴, 𝐵) = 𝐵)
6	5	adantl 277	. . 3 ⊢ ((𝜑 ∧ ¬ 𝜓) → if(𝜓, 𝐴, 𝐵) = 𝐵)
7		ifcldadc.2	. . 3 ⊢ ((𝜑 ∧ ¬ 𝜓) → 𝐵 ∈ 𝐶)
8	6, 7	eqeltrd 2315	. 2 ⊢ ((𝜑 ∧ ¬ 𝜓) → if(𝜓, 𝐴, 𝐵) ∈ 𝐶)
9		ifcldadc.dc	. . 3 ⊢ (𝜑 → DECID 𝜓)
10		exmiddc 848	. . 3 ⊢ (DECID 𝜓 → (𝜓 ∨ ¬ 𝜓))
11	9, 10	syl 14	. 2 ⊢ (𝜑 → (𝜓 ∨ ¬ 𝜓))
12	4, 8, 11	mpjaodan 810	1 ⊢ (𝜑 → if(𝜓, 𝐴, 𝐵) ∈ 𝐶)

This proof depends on syntax axioms:  ¬ wn 3   → wi 4   ∧ wa 104   ∨ wo 720  DECID wdc 846   = wceq 1402   ∈ wcel 2209  ifcif 3638

This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-ia1 106  ax-ia2 107  ax-ia3 108  ax-in2 624  ax-io 721  ax-5 1500  ax-7 1501  ax-gen 1502  ax-ie1 1546  ax-ie2 1547  ax-8 1557  ax-11 1559  ax-4 1563  ax-17 1579  ax-i9 1583  ax-ial 1587  ax-i5r 1588  ax-ext 2220

This proof depends on definitions:  df-bi 117  df-dc 847  df-nf 1514  df-sb 1816  df-clab 2225  df-cleq 2231  df-clel 2234  df-if 3639

This theorem is used by:  updjudhf  7425  omp1eomlem  7440  difinfsnlem  7445  ctmlemr  7454  ctssdclemn0  7456  ctssdc  7459  enumctlemm  7460  xaddf  10263  xaddval  10264  iseqf1olemqcl  10957  iseqf1olemnab  10959  iseqf1olemjpcl  10966  iseqf1olemqpcl  10967  seq3f1oleml  10974  seq3f1o  10975  exp3val  10999  ccatcl  11383  swrdclg  11444  xrmaxiflemcl  12036  summodclem2a  12173  zsumdc  12176  fsum3  12179  isumss  12183  fsum3cvg2  12186  fsum3ser  12189  fsumcl2lem  12190  fsumadd  12198  sumsnf  12201  sumsplitdc  12224  fsummulc2  12240  isumlessdc  12288  cvgratz  12324  prodmodclem3  12367  prodmodclem2a  12368  zproddc  12371  fprodseq  12375  fprodmul  12383  prodsnf  12384  eucalgval2  12856  lcmval  12866  pcmpt  13151  ballotfilemsv  13311  ballotfilemsdom  13313  ennnfonelemg  13352  mulgval  13984  mulgfng  13986  elplyd  15967  dvply1  15991  bposlem5  16315  lgsval  16328  lgsfvalg  16329  lgsfcl2  16330  lgscllem  16331  lgsval2lem  16334  lgsdir  16359  lgsdilem2  16360  lgsdi  16361  lgsne0  16362  subctctexmid  17235