Theorem nnwosdc 12042

Description: Well-ordering principle: any inhabited decidable set of positive integers has a least element (schema form). (Contributed by NM, 17-Aug-2001.) (Revised by Jim Kingdon, 25-Oct-2024.)

Hypothesis

Ref	Expression
nnwos.1	|- ( x = y -> ( ph <-> ps ) )

Assertion

Ref	Expression
nnwosdc	|- ( ( E. x e. NN ph /\ A. x e. NN DECID ph ) -> E. x e. NN ( ph /\ A. y e. NN ( ps -> x <_ y ) ) )

Distinct variable groups:   x, y   ph, y   ps, x

Allowed substitution hints:   ph( x)   ps( y)

Proof of Theorem nnwosdc

Dummy variables j w are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		rabn0m 3452	. . . . 5 |- ( E. w w e. { x e. NN | ph } <-> E. x e. NN ph )
2		ssrab2 3242	. . . . . 6 |- { x e. NN | ph } C_ NN
3	2	biantrur 303	. . . . 5 |- ( E. w w e. { x e. NN | ph } <-> ( { x e. NN | ph } C_ NN /\ E. w w e. { x e. NN | ph } ) )
4	1, 3	sylbb1 137	. . . 4 |- ( E. x e. NN ph -> ( { x e. NN | ph } C_ NN /\ E. w w e. { x e. NN | ph } ) )
5		animorrl 826	. . . . . . . 8 |- ( ( A. x e. NN DECID ph /\ j e. NN ) -> ( j e. NN \/ -. j e. NN ) )
6		df-dc 835	. . . . . . . 8 |- (DECID j e. NN <-> ( j e. NN \/ -. j e. NN ) )
7	5, 6	sylibr 134	. . . . . . 7 |- ( ( A. x e. NN DECID ph /\ j e. NN ) -> DECID j e. NN )
8		nfs1v 1939	. . . . . . . . . 10 |- F/ x [ j / x ] ph
9	8	nfdc 1659	. . . . . . . . 9 |- F/ xDECID [ j / x ] ph
10		sbequ12 1771	. . . . . . . . . 10 |- ( x = j -> ( ph <-> [ j / x ] ph ) )
11	10	dcbid 838	. . . . . . . . 9 |- ( x = j -> (DECID ph <-> DECID [ j / x ] ph ) )
12	9, 11	rspc 2837	. . . . . . . 8 |- ( j e. NN -> ( A. x e. NN DECID ph -> DECID [ j / x ] ph ) )
13	12	impcom 125	. . . . . . 7 |- ( ( A. x e. NN DECID ph /\ j e. NN ) -> DECID [ j / x ] ph )
14		dcan2 934	. . . . . . 7 |- (DECID j e. NN -> (DECID [ j / x ] ph -> DECID ( j e. NN /\ [ j / x ] ph ) ) )
15	7, 13, 14	sylc 62	. . . . . 6 |- ( ( A. x e. NN DECID ph /\ j e. NN ) -> DECID ( j e. NN /\ [ j / x ] ph ) )
16		nfcv 2319	. . . . . . . 8 |- F/_ x j
17		nfcv 2319	. . . . . . . 8 |- F/_ x NN
18	16, 17, 8, 10	elrabf 2893	. . . . . . 7 |- ( j e. { x e. NN | ph } <-> ( j e. NN /\ [ j / x ] ph ) )
19	18	dcbii 840	. . . . . 6 |- (DECID j e. { x e. NN | ph } <-> DECID ( j e. NN /\ [ j / x ] ph ) )
20	15, 19	sylibr 134	. . . . 5 |- ( ( A. x e. NN DECID ph /\ j e. NN ) -> DECID j e. { x e. NN | ph } )
21	20	ralrimiva 2550	. . . 4 |- ( A. x e. NN DECID ph -> A. j e. NN DECID j e. { x e. NN | ph } )
22	4, 21	anim12i 338	. . 3 |- ( ( E. x e. NN ph /\ A. x e. NN DECID ph ) -> ( ( { x e. NN | ph } C_ NN /\ E. w w e. { x e. NN | ph } ) /\ A. j e. NN DECID j e. { x e. NN | ph } ) )
23		df-3an 980	. . 3 |- ( ( { x e. NN | ph } C_ NN /\ E. w w e. { x e. NN | ph } /\ A. j e. NN DECID j e. { x e. NN | ph } ) <-> ( ( { x e. NN | ph } C_ NN /\ E. w w e. { x e. NN | ph } ) /\ A. j e. NN DECID j e. { x e. NN | ph } ) )
24	22, 23	sylibr 134	. 2 |- ( ( E. x e. NN ph /\ A. x e. NN DECID ph ) -> ( { x e. NN | ph } C_ NN /\ E. w w e. { x e. NN | ph } /\ A. j e. NN DECID j e. { x e. NN | ph } ) )
25		nfrab1 2657	. . . 4 |- F/_ x { x e. NN | ph }
26		nfcv 2319	. . . 4 |- F/_ y { x e. NN | ph }
27	25, 26	nnwofdc 12041	. . 3 |- ( ( { x e. NN | ph } C_ NN /\ E. w w e. { x e. NN | ph } /\ A. j e. NN DECID j e. { x e. NN | ph } ) -> E. x e. { x e. NN | ph } A. y e. { x e. NN | ph } x <_ y )
28		df-rex 2461	. . . 4 |- ( E. x e. { x e. NN | ph } A. y e. { x e. NN | ph } x <_ y <-> E. x ( x e. { x e. NN | ph } /\ A. y e. { x e. NN | ph } x <_ y ) )
29		rabid 2653	. . . . . 6 |- ( x e. { x e. NN | ph } <-> ( x e. NN /\ ph ) )
30		df-ral 2460	. . . . . . 7 |- ( A. y e. { x e. NN | ph } x <_ y <-> A. y ( y e. { x e. NN | ph } -> x <_ y ) )
31		nnwos.1	. . . . . . . . . . 11 |- ( x = y -> ( ph <-> ps ) )
32	31	elrab 2895	. . . . . . . . . 10 |- ( y e. { x e. NN | ph } <-> ( y e. NN /\ ps ) )
33	32	imbi1i 238	. . . . . . . . 9 |- ( ( y e. { x e. NN | ph } -> x <_ y ) <-> ( ( y e. NN /\ ps ) -> x <_ y ) )
34		impexp 263	. . . . . . . . 9 |- ( ( ( y e. NN /\ ps ) -> x <_ y ) <-> ( y e. NN -> ( ps -> x <_ y ) ) )
35	33, 34	bitri 184	. . . . . . . 8 |- ( ( y e. { x e. NN | ph } -> x <_ y ) <-> ( y e. NN -> ( ps -> x <_ y ) ) )
36	35	albii 1470	. . . . . . 7 |- ( A. y ( y e. { x e. NN | ph } -> x <_ y ) <-> A. y ( y e. NN -> ( ps -> x <_ y ) ) )
37	30, 36	bitri 184	. . . . . 6 |- ( A. y e. { x e. NN | ph } x <_ y <-> A. y ( y e. NN -> ( ps -> x <_ y ) ) )
38	29, 37	anbi12i 460	. . . . 5 |- ( ( x e. { x e. NN | ph } /\ A. y e. { x e. NN | ph } x <_ y ) <-> ( ( x e. NN /\ ph ) /\ A. y ( y e. NN -> ( ps -> x <_ y ) ) ) )
39	38	exbii 1605	. . . 4 |- ( E. x ( x e. { x e. NN | ph } /\ A. y e. { x e. NN | ph } x <_ y ) <-> E. x ( ( x e. NN /\ ph ) /\ A. y ( y e. NN -> ( ps -> x <_ y ) ) ) )
40		df-ral 2460	. . . . . . . 8 |- ( A. y e. NN ( ps -> x <_ y ) <-> A. y ( y e. NN -> ( ps -> x <_ y ) ) )
41	40	anbi2i 457	. . . . . . 7 |- ( ( ( x e. NN /\ ph ) /\ A. y e. NN ( ps -> x <_ y ) ) <-> ( ( x e. NN /\ ph ) /\ A. y ( y e. NN -> ( ps -> x <_ y ) ) ) )
42		anass 401	. . . . . . 7 |- ( ( ( x e. NN /\ ph ) /\ A. y e. NN ( ps -> x <_ y ) ) <-> ( x e. NN /\ ( ph /\ A. y e. NN ( ps -> x <_ y ) ) ) )
43	41, 42	bitr3i 186	. . . . . 6 |- ( ( ( x e. NN /\ ph ) /\ A. y ( y e. NN -> ( ps -> x <_ y ) ) ) <-> ( x e. NN /\ ( ph /\ A. y e. NN ( ps -> x <_ y ) ) ) )
44	43	exbii 1605	. . . . 5 |- ( E. x ( ( x e. NN /\ ph ) /\ A. y ( y e. NN -> ( ps -> x <_ y ) ) ) <-> E. x ( x e. NN /\ ( ph /\ A. y e. NN ( ps -> x <_ y ) ) ) )
45		df-rex 2461	. . . . 5 |- ( E. x e. NN ( ph /\ A. y e. NN ( ps -> x <_ y ) ) <-> E. x ( x e. NN /\ ( ph /\ A. y e. NN ( ps -> x <_ y ) ) ) )
46	44, 45	bitr4i 187	. . . 4 |- ( E. x ( ( x e. NN /\ ph ) /\ A. y ( y e. NN -> ( ps -> x <_ y ) ) ) <-> E. x e. NN ( ph /\ A. y e. NN ( ps -> x <_ y ) ) )
47	28, 39, 46	3bitri 206	. . 3 |- ( E. x e. { x e. NN | ph } A. y e. { x e. NN | ph } x <_ y <-> E. x e. NN ( ph /\ A. y e. NN ( ps -> x <_ y ) ) )
48	27, 47	sylib 122	. 2 |- ( ( { x e. NN | ph } C_ NN /\ E. w w e. { x e. NN | ph } /\ A. j e. NN DECID j e. { x e. NN | ph } ) -> E. x e. NN ( ph /\ A. y e. NN ( ps -> x <_ y ) ) )
49	24, 48	syl 14	1 |- ( ( E. x e. NN ph /\ A. x e. NN DECID ph ) -> E. x e. NN ( ph /\ A. y e. NN ( ps -> x <_ y ) ) )

Syntax hints:   -. wn 3   -> wi 4   /\ wa 104   <-> wb 105   \/ wo 708  DECID wdc 834   /\ w3a 978   A.wal 1351   E.wex 1492   [wsb 1762   e. wcel 2148   A.wral 2455   E.wrex 2456   {crab 2459   C_ wss 3131   class class class wbr 4005   <_ cle 7995   NNcn 8921

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-in1 614  ax-in2 615  ax-io 709  ax-5 1447  ax-7 1448  ax-gen 1449  ax-ie1 1493  ax-ie2 1494  ax-8 1504  ax-10 1505  ax-11 1506  ax-i12 1507  ax-bndl 1509  ax-4 1510  ax-17 1526  ax-i9 1530  ax-ial 1534  ax-i5r 1535  ax-13 2150  ax-14 2151  ax-ext 2159  ax-sep 4123  ax-pow 4176  ax-pr 4211  ax-un 4435  ax-setind 4538  ax-cnex 7904  ax-resscn 7905  ax-1cn 7906  ax-1re 7907  ax-icn 7908  ax-addcl 7909  ax-addrcl 7910  ax-mulcl 7911  ax-addcom 7913  ax-addass 7915  ax-distr 7917  ax-i2m1 7918  ax-0lt1 7919  ax-0id 7921  ax-rnegex 7922  ax-cnre 7924  ax-pre-ltirr 7925  ax-pre-ltwlin 7926  ax-pre-lttrn 7927  ax-pre-apti 7928  ax-pre-ltadd 7929

This theorem depends on definitions:  df-bi 117  df-dc 835  df-3or 979  df-3an 980  df-tru 1356  df-fal 1359  df-nf 1461  df-sb 1763  df-eu 2029  df-mo 2030  df-clab 2164  df-cleq 2170  df-clel 2173  df-nfc 2308  df-ne 2348  df-nel 2443  df-ral 2460  df-rex 2461  df-reu 2462  df-rmo 2463  df-rab 2464  df-v 2741  df-sbc 2965  df-csb 3060  df-dif 3133  df-un 3135  df-in 3137  df-ss 3144  df-pw 3579  df-sn 3600  df-pr 3601  df-op 3603  df-uni 3812  df-int 3847  df-iun 3890  df-br 4006  df-opab 4067  df-mpt 4068  df-id 4295  df-po 4298  df-iso 4299  df-xp 4634  df-rel 4635  df-cnv 4636  df-co 4637  df-dm 4638  df-rn 4639  df-res 4640  df-ima 4641  df-iota 5180  df-fun 5220  df-fn 5221  df-f 5222  df-f1 5223  df-fo 5224  df-f1o 5225  df-fv 5226  df-isom 5227  df-riota 5833  df-ov 5880  df-oprab 5881  df-mpo 5882  df-1st 6143  df-2nd 6144  df-sup 6985  df-inf 6986  df-pnf 7996  df-mnf 7997  df-xr 7998  df-ltxr 7999  df-le 8000  df-sub 8132  df-neg 8133  df-inn 8922  df-n0 9179  df-z 9256  df-uz 9531  df-fz 10011  df-fzo 10145

This theorem is referenced by:  infpnlem2  12360