Theorem ifcldadc 3635

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 3610	. . . 4 ⊢ (𝜓 → if(𝜓, 𝐴, 𝐵) = 𝐴)
2	1	adantl 277	. . 3 ⊢ ((𝜑 ∧ 𝜓) → if(𝜓, 𝐴, 𝐵) = 𝐴)
3		ifcldadc.1	. . 3 ⊢ ((𝜑 ∧ 𝜓) → 𝐴 ∈ 𝐶)
4	2, 3	eqeltrd 2308	. 2 ⊢ ((𝜑 ∧ 𝜓) → if(𝜓, 𝐴, 𝐵) ∈ 𝐶)
5		iffalse 3613	. . . 4 ⊢ (¬ 𝜓 → if(𝜓, 𝐴, 𝐵) = 𝐵)
6	5	adantl 277	. . 3 ⊢ ((𝜑 ∧ ¬ 𝜓) → if(𝜓, 𝐴, 𝐵) = 𝐵)
7		ifcldadc.2	. . 3 ⊢ ((𝜑 ∧ ¬ 𝜓) → 𝐵 ∈ 𝐶)
8	6, 7	eqeltrd 2308	. 2 ⊢ ((𝜑 ∧ ¬ 𝜓) → if(𝜓, 𝐴, 𝐵) ∈ 𝐶)
9		ifcldadc.dc	. . 3 ⊢ (𝜑 → DECID 𝜓)
10		exmiddc 843	. . 3 ⊢ (DECID 𝜓 → (𝜓 ∨ ¬ 𝜓))
11	9, 10	syl 14	. 2 ⊢ (𝜑 → (𝜓 ∨ ¬ 𝜓))
12	4, 8, 11	mpjaodan 805	1 ⊢ (𝜑 → if(𝜓, 𝐴, 𝐵) ∈ 𝐶)

Syntax hints:  ¬ wn 3   → wi 4   ∧ wa 104   ∨ wo 715  DECID wdc 841   = wceq 1397   ∈ wcel 2202  ifcif 3605

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 620  ax-io 716  ax-5 1495  ax-7 1496  ax-gen 1497  ax-ie1 1541  ax-ie2 1542  ax-8 1552  ax-11 1554  ax-4 1558  ax-17 1574  ax-i9 1578  ax-ial 1582  ax-i5r 1583  ax-ext 2213

This theorem depends on definitions:  df-bi 117  df-dc 842  df-nf 1509  df-sb 1811  df-clab 2218  df-cleq 2224  df-clel 2227  df-if 3606

This theorem is referenced by:  updjudhf  7277  omp1eomlem  7292  difinfsnlem  7297  ctmlemr  7306  ctssdclemn0  7308  ctssdc  7311  enumctlemm  7312  xaddf  10078  xaddval  10079  iseqf1olemqcl  10760  iseqf1olemnab  10762  iseqf1olemjpcl  10769  iseqf1olemqpcl  10770  seq3f1oleml  10777  seq3f1o  10778  exp3val  10802  ccatcl  11169  swrdclg  11230  xrmaxiflemcl  11805  summodclem2a  11941  zsumdc  11944  fsum3  11947  isumss  11951  fsum3cvg2  11954  fsum3ser  11957  fsumcl2lem  11958  fsumadd  11966  sumsnf  11969  sumsplitdc  11992  fsummulc2  12008  isumlessdc  12056  cvgratz  12092  prodmodclem3  12135  prodmodclem2a  12136  zproddc  12139  fprodseq  12143  fprodmul  12151  prodsnf  12152  eucalgval2  12624  lcmval  12634  pcmpt  12915  ennnfonelemg  13023  mulgval  13708  mulgfng  13710  elplyd  15464  dvply1  15488  lgsval  15732  lgsfvalg  15733  lgsfcl2  15734  lgscllem  15735  lgsval2lem  15738  lgsdir  15763  lgsdilem2  15764  lgsdi  15765  lgsne0  15766  subctctexmid  16601