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  7278  omp1eomlem  7293  difinfsnlem  7298  ctmlemr  7307  ctssdclemn0  7309  ctssdc  7312  enumctlemm  7313  xaddf  10079  xaddval  10080  iseqf1olemqcl  10762  iseqf1olemnab  10764  iseqf1olemjpcl  10771  iseqf1olemqpcl  10772  seq3f1oleml  10779  seq3f1o  10780  exp3val  10804  ccatcl  11174  swrdclg  11235  xrmaxiflemcl  11810  summodclem2a  11947  zsumdc  11950  fsum3  11953  isumss  11957  fsum3cvg2  11960  fsum3ser  11963  fsumcl2lem  11964  fsumadd  11972  sumsnf  11975  sumsplitdc  11998  fsummulc2  12014  isumlessdc  12062  cvgratz  12098  prodmodclem3  12141  prodmodclem2a  12142  zproddc  12145  fprodseq  12149  fprodmul  12157  prodsnf  12158  eucalgval2  12630  lcmval  12640  pcmpt  12921  ennnfonelemg  13029  mulgval  13714  mulgfng  13716  elplyd  15471  dvply1  15495  lgsval  15739  lgsfvalg  15740  lgsfcl2  15741  lgscllem  15742  lgsval2lem  15745  lgsdir  15770  lgsdilem2  15771  lgsdi  15772  lgsne0  15773  subctctexmid  16627