Theorem ifcldadc 3670

Description: Conditional closure. (Contributed by Jim Kingdon, 11-Jan-2022.)

Hypotheses

Ref	Expression
ifcldadc.1	|- ( ( ph /\ ps ) -> A e. C )
ifcldadc.2	|- ( ( ph /\ -. ps ) -> B e. C )
ifcldadc.dc	|- ( ph -> DECID ps )

Assertion

Ref	Expression
ifcldadc	|- ( ph -> if ( ps , A , B ) e. C )

Proof of Theorem ifcldadc

Step	Hyp	Ref	Expression
1		iftrue 3645	. . . 4 |- ( ps -> if ( ps , A , B ) = A )
2	1	adantl 277	. . 3 |- ( ( ph /\ ps ) -> if ( ps , A , B ) = A )
3		ifcldadc.1	. . 3 |- ( ( ph /\ ps ) -> A e. C )
4	2, 3	eqeltrd 2315	. 2 |- ( ( ph /\ ps ) -> if ( ps , A , B ) e. C )
5		iffalse 3648	. . . 4 |- ( -. ps -> if ( ps , A , B ) = B )
6	5	adantl 277	. . 3 |- ( ( ph /\ -. ps ) -> if ( ps , A , B ) = B )
7		ifcldadc.2	. . 3 |- ( ( ph /\ -. ps ) -> B e. C )
8	6, 7	eqeltrd 2315	. 2 |- ( ( ph /\ -. ps ) -> if ( ps , A , B ) e. C )
9		ifcldadc.dc	. . 3 |- ( ph -> DECID ps )
10		exmiddc 848	. . 3 |- (DECID ps -> ( ps \/ -. ps ) )
11	9, 10	syl 14	. 2 |- ( ph -> ( ps \/ -. ps ) )
12	4, 8, 11	mpjaodan 810	1 |- ( ph -> if ( ps , A , B ) e. C )

This proof depends on syntax axioms:   -. wn 3   -> wi 4   /\ wa 104   \/ wo 720  DECID wdc 846   = wceq 1402   e. wcel 2209   ifcif 3638

This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-ia1 106  ax-ia2 107  ax-ia3 108  ax-in2 624  ax-io 721  ax-5 1500  ax-7 1501  ax-gen 1502  ax-ie1 1546  ax-ie2 1547  ax-8 1557  ax-11 1559  ax-4 1563  ax-17 1579  ax-i9 1583  ax-ial 1587  ax-i5r 1588  ax-ext 2220

This proof depends on definitions:  df-bi 117  df-dc 847  df-nf 1514  df-sb 1816  df-clab 2225  df-cleq 2231  df-clel 2234  df-if 3639

This theorem is used by:  updjudhf  7419  omp1eomlem  7434  difinfsnlem  7439  ctmlemr  7448  ctssdclemn0  7450  ctssdc  7453  enumctlemm  7454  xaddf  10256  xaddval  10257  iseqf1olemqcl  10949  iseqf1olemnab  10951  iseqf1olemjpcl  10958  iseqf1olemqpcl  10959  seq3f1oleml  10966  seq3f1o  10967  exp3val  10991  ccatcl  11375  swrdclg  11436  xrmaxiflemcl  12027  summodclem2a  12164  zsumdc  12167  fsum3  12170  isumss  12174  fsum3cvg2  12177  fsum3ser  12180  fsumcl2lem  12181  fsumadd  12189  sumsnf  12192  sumsplitdc  12215  fsummulc2  12231  isumlessdc  12279  cvgratz  12315  prodmodclem3  12358  prodmodclem2a  12359  zproddc  12362  fprodseq  12366  fprodmul  12374  prodsnf  12375  eucalgval2  12847  lcmval  12857  pcmpt  13142  ballotfilemsv  13302  ballotfilemsdom  13304  ennnfonelemg  13343  mulgval  13974  mulgfng  13976  elplyd  15891  dvply1  15915  bposlem5  16213  lgsval  16221  lgsfvalg  16222  lgsfcl2  16223  lgscllem  16224  lgsval2lem  16227  lgsdir  16252  lgsdilem2  16253  lgsdi  16254  lgsne0  16255  subctctexmid  17128