Theorem ifcldadc 3667

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 3642	. . . 4 ⊢ (𝜓 → if(𝜓, 𝐴, 𝐵) = 𝐴)
2	1	adantl 277	. . 3 ⊢ ((𝜑 ∧ 𝜓) → if(𝜓, 𝐴, 𝐵) = 𝐴)
3		ifcldadc.1	. . 3 ⊢ ((𝜑 ∧ 𝜓) → 𝐴 ∈ 𝐶)
4	2, 3	eqeltrd 2315	. 2 ⊢ ((𝜑 ∧ 𝜓) → if(𝜓, 𝐴, 𝐵) ∈ 𝐶)
5		iffalse 3645	. . . 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(𝜓, 𝐴, 𝐵) ∈ 𝐶)

Syntax hints:  ¬ wn 3   → wi 4   ∧ wa 104   ∨ wo 720  DECID wdc 846   = wceq 1402   ∈ wcel 2209  ifcif 3635

This theorem was proved from 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 theorem 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 3636

This theorem is referenced by:  updjudhf  7409  omp1eomlem  7424  difinfsnlem  7429  ctmlemr  7438  ctssdclemn0  7440  ctssdc  7443  enumctlemm  7444  xaddf  10225  xaddval  10226  iseqf1olemqcl  10914  iseqf1olemnab  10916  iseqf1olemjpcl  10923  iseqf1olemqpcl  10924  seq3f1oleml  10931  seq3f1o  10932  exp3val  10956  ccatcl  11339  swrdclg  11400  xrmaxiflemcl  11989  summodclem2a  12126  zsumdc  12129  fsum3  12132  isumss  12136  fsum3cvg2  12139  fsum3ser  12142  fsumcl2lem  12143  fsumadd  12151  sumsnf  12154  sumsplitdc  12177  fsummulc2  12193  isumlessdc  12241  cvgratz  12277  prodmodclem3  12320  prodmodclem2a  12321  zproddc  12324  fprodseq  12328  fprodmul  12336  prodsnf  12337  eucalgval2  12809  lcmval  12819  pcmpt  13100  ballotfilemsv  13231  ballotfilemsdom  13233  ennnfonelemg  13272  mulgval  13902  mulgfng  13904  elplyd  15765  dvply1  15789  lgsval  16037  lgsfvalg  16038  lgsfcl2  16039  lgscllem  16040  lgsval2lem  16043  lgsdir  16068  lgsdilem2  16069  lgsdi  16070  lgsne0  16071  subctctexmid  16944