Theorem ifcldadc 3633

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

Syntax hints:  ¬ wn 3   → wi 4   ∧ wa 104   ∨ wo 713  DECID wdc 839   = wceq 1395   ∈ wcel 2200  ifcif 3603

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 618  ax-io 714  ax-5 1493  ax-7 1494  ax-gen 1495  ax-ie1 1539  ax-ie2 1540  ax-8 1550  ax-11 1552  ax-4 1556  ax-17 1572  ax-i9 1576  ax-ial 1580  ax-i5r 1581  ax-ext 2211

This theorem depends on definitions:  df-bi 117  df-dc 840  df-nf 1507  df-sb 1809  df-clab 2216  df-cleq 2222  df-clel 2225  df-if 3604

This theorem is referenced by:  updjudhf  7269  omp1eomlem  7284  difinfsnlem  7289  ctmlemr  7298  ctssdclemn0  7300  ctssdc  7303  enumctlemm  7304  xaddf  10069  xaddval  10070  iseqf1olemqcl  10751  iseqf1olemnab  10753  iseqf1olemjpcl  10760  iseqf1olemqpcl  10761  seq3f1oleml  10768  seq3f1o  10769  exp3val  10793  ccatcl  11160  swrdclg  11221  xrmaxiflemcl  11796  summodclem2a  11932  zsumdc  11935  fsum3  11938  isumss  11942  fsum3cvg2  11945  fsum3ser  11948  fsumcl2lem  11949  fsumadd  11957  sumsnf  11960  sumsplitdc  11983  fsummulc2  11999  isumlessdc  12047  cvgratz  12083  prodmodclem3  12126  prodmodclem2a  12127  zproddc  12130  fprodseq  12134  fprodmul  12142  prodsnf  12143  eucalgval2  12615  lcmval  12625  pcmpt  12906  ennnfonelemg  13014  mulgval  13699  mulgfng  13701  elplyd  15455  dvply1  15479  lgsval  15723  lgsfvalg  15724  lgsfcl2  15725  lgscllem  15726  lgsval2lem  15729  lgsdir  15754  lgsdilem2  15755  lgsdi  15756  lgsne0  15757  subctctexmid  16537