Theorem findset 16598

Description: Bounded induction (principle of induction when A is assumed to be a set) allowing a proof from basic constructive axioms. See find 4696 for a nonconstructive proof of the general case. See bdfind 16599 for a proof when A is assumed to be bounded. (Contributed by BJ, 22-Nov-2019.) (Proof modification is discouraged.)

Assertion

Ref	Expression
findset	|- ( A e. V -> ( ( A C_ om /\ (/) e. A /\ A. x e. A suc x e. A ) -> A = om ) )

Distinct variable group:   x, A

Allowed substitution hint:   V( x)

Proof of Theorem findset

Step	Hyp	Ref	Expression
1		simpr1 1029	. . 3 |- ( ( A e. V /\ ( A C_ om /\ (/) e. A /\ A. x e. A suc x e. A ) ) -> A C_ om )
2		simp2 1024	. . . . . 6 |- ( ( A C_ om /\ (/) e. A /\ A. x e. A suc x e. A ) -> (/) e. A )
3		df-ral 2514	. . . . . . . 8 |- ( A. x e. A suc x e. A <-> A. x ( x e. A -> suc x e. A ) )
4		alral 2576	. . . . . . . 8 |- ( A. x ( x e. A -> suc x e. A ) -> A. x e. om ( x e. A -> suc x e. A ) )
5	3, 4	sylbi 121	. . . . . . 7 |- ( A. x e. A suc x e. A -> A. x e. om ( x e. A -> suc x e. A ) )
6	5	3ad2ant3 1046	. . . . . 6 |- ( ( A C_ om /\ (/) e. A /\ A. x e. A suc x e. A ) -> A. x e. om ( x e. A -> suc x e. A ) )
7	2, 6	jca 306	. . . . 5 |- ( ( A C_ om /\ (/) e. A /\ A. x e. A suc x e. A ) -> ( (/) e. A /\ A. x e. om ( x e. A -> suc x e. A ) ) )
8		3anass 1008	. . . . . 6 |- ( ( A e. V /\ (/) e. A /\ A. x e. om ( x e. A -> suc x e. A ) ) <-> ( A e. V /\ ( (/) e. A /\ A. x e. om ( x e. A -> suc x e. A ) ) ) )
9	8	biimpri 133	. . . . 5 |- ( ( A e. V /\ ( (/) e. A /\ A. x e. om ( x e. A -> suc x e. A ) ) ) -> ( A e. V /\ (/) e. A /\ A. x e. om ( x e. A -> suc x e. A ) ) )
10	7, 9	sylan2 286	. . . 4 |- ( ( A e. V /\ ( A C_ om /\ (/) e. A /\ A. x e. A suc x e. A ) ) -> ( A e. V /\ (/) e. A /\ A. x e. om ( x e. A -> suc x e. A ) ) )
11		speano5 16597	. . . 4 |- ( ( A e. V /\ (/) e. A /\ A. x e. om ( x e. A -> suc x e. A ) ) -> om C_ A )
12	10, 11	syl 14	. . 3 |- ( ( A e. V /\ ( A C_ om /\ (/) e. A /\ A. x e. A suc x e. A ) ) -> om C_ A )
13	1, 12	eqssd 3243	. 2 |- ( ( A e. V /\ ( A C_ om /\ (/) e. A /\ A. x e. A suc x e. A ) ) -> A = om )
14	13	ex 115	1 |- ( A e. V -> ( ( A C_ om /\ (/) e. A /\ A. x e. A suc x e. A ) -> A = om ) )

Syntax hints:   -> wi 4   /\ wa 104   /\ w3a 1004   A.wal 1395   = wceq 1397   e. wcel 2201   A.wral 2509   C_ wss 3199   (/)c0 3493   suc csuc 4461   omcom 4687

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 619  ax-in2 620  ax-io 716  ax-5 1495  ax-7 1496  ax-gen 1497  ax-ie1 1541  ax-ie2 1542  ax-8 1552  ax-10 1553  ax-11 1554  ax-i12 1555  ax-bndl 1557  ax-4 1558  ax-17 1574  ax-i9 1578  ax-ial 1582  ax-i5r 1583  ax-13 2203  ax-14 2204  ax-ext 2212  ax-nul 4214  ax-pr 4298  ax-un 4529  ax-bd0 16466  ax-bdan 16468  ax-bdor 16469  ax-bdex 16472  ax-bdeq 16473  ax-bdel 16474  ax-bdsb 16475  ax-bdsep 16537  ax-infvn 16594

This theorem depends on definitions:  df-bi 117  df-3an 1006  df-tru 1400  df-nf 1509  df-sb 1810  df-clab 2217  df-cleq 2223  df-clel 2226  df-nfc 2362  df-ral 2514  df-rex 2515  df-rab 2518  df-v 2803  df-dif 3201  df-un 3203  df-in 3205  df-ss 3212  df-nul 3494  df-sn 3674  df-pr 3675  df-uni 3893  df-int 3928  df-suc 4467  df-iom 4688  df-bdc 16494  df-bj-ind 16580

This theorem is referenced by:  bdfind  16599