Theorem ifcldadc 3605

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

Syntax hints:  ¬ wn 3   → wi 4   ∧ wa 104   ∨ wo 710  DECID wdc 836   = wceq 1373   ∈ wcel 2177  ifcif 3575

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 616  ax-io 711  ax-5 1471  ax-7 1472  ax-gen 1473  ax-ie1 1517  ax-ie2 1518  ax-8 1528  ax-11 1530  ax-4 1534  ax-17 1550  ax-i9 1554  ax-ial 1558  ax-i5r 1559  ax-ext 2188

This theorem depends on definitions:  df-bi 117  df-dc 837  df-nf 1485  df-sb 1787  df-clab 2193  df-cleq 2199  df-clel 2202  df-if 3576

This theorem is referenced by:  updjudhf  7196  omp1eomlem  7211  difinfsnlem  7216  ctmlemr  7225  ctssdclemn0  7227  ctssdc  7230  enumctlemm  7231  xaddf  9986  xaddval  9987  iseqf1olemqcl  10666  iseqf1olemnab  10668  iseqf1olemjpcl  10675  iseqf1olemqpcl  10676  seq3f1oleml  10683  seq3f1o  10684  exp3val  10708  ccatcl  11072  swrdclg  11126  xrmaxiflemcl  11631  summodclem2a  11767  zsumdc  11770  fsum3  11773  isumss  11777  fsum3cvg2  11780  fsum3ser  11783  fsumcl2lem  11784  fsumadd  11792  sumsnf  11795  sumsplitdc  11818  fsummulc2  11834  isumlessdc  11882  cvgratz  11918  prodmodclem3  11961  prodmodclem2a  11962  zproddc  11965  fprodseq  11969  fprodmul  11977  prodsnf  11978  eucalgval2  12450  lcmval  12460  pcmpt  12741  ennnfonelemg  12849  mulgval  13533  mulgfng  13535  elplyd  15288  dvply1  15312  lgsval  15556  lgsfvalg  15557  lgsfcl2  15558  lgscllem  15559  lgsval2lem  15562  lgsdir  15587  lgsdilem2  15588  lgsdi  15589  lgsne0  15590  subctctexmid  16078