Theorem ifcldadc 3639

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

Syntax hints:  ¬ wn 3   → wi 4   ∧ wa 104   ∨ wo 716  DECID wdc 842   = wceq 1398   ∈ wcel 2202  ifcif 3607

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 717  ax-5 1496  ax-7 1497  ax-gen 1498  ax-ie1 1542  ax-ie2 1543  ax-8 1553  ax-11 1555  ax-4 1559  ax-17 1575  ax-i9 1579  ax-ial 1583  ax-i5r 1584  ax-ext 2213

This theorem depends on definitions:  df-bi 117  df-dc 843  df-nf 1510  df-sb 1811  df-clab 2218  df-cleq 2224  df-clel 2227  df-if 3608

This theorem is referenced by:  updjudhf  7321  omp1eomlem  7336  difinfsnlem  7341  ctmlemr  7350  ctssdclemn0  7352  ctssdc  7355  enumctlemm  7356  xaddf  10122  xaddval  10123  iseqf1olemqcl  10805  iseqf1olemnab  10807  iseqf1olemjpcl  10814  iseqf1olemqpcl  10815  seq3f1oleml  10822  seq3f1o  10823  exp3val  10847  ccatcl  11217  swrdclg  11278  xrmaxiflemcl  11866  summodclem2a  12003  zsumdc  12006  fsum3  12009  isumss  12013  fsum3cvg2  12016  fsum3ser  12019  fsumcl2lem  12020  fsumadd  12028  sumsnf  12031  sumsplitdc  12054  fsummulc2  12070  isumlessdc  12118  cvgratz  12154  prodmodclem3  12197  prodmodclem2a  12198  zproddc  12201  fprodseq  12205  fprodmul  12213  prodsnf  12214  eucalgval2  12686  lcmval  12696  pcmpt  12977  ennnfonelemg  13085  mulgval  13770  mulgfng  13772  elplyd  15532  dvply1  15556  lgsval  15803  lgsfvalg  15804  lgsfcl2  15805  lgscllem  15806  lgsval2lem  15809  lgsdir  15834  lgsdilem2  15835  lgsdi  15836  lgsne0  15837  subctctexmid  16702