Theorem frind 33198

Description: The principle of founded induction. Theorem 4.4 of Don Monk's notes (see frmin 33197). This principle states that if 𝐵 is a subclass of a founded class 𝐴 with the property that every element of 𝐵 whose initial segment is included in 𝐴 is itself equal to 𝐴. Compare wfi 6149 and tfi 7548, which are special cases of this theorem that do not require the axiom of infinity to prove. (Contributed by Scott Fenton, 6-Feb-2011.) (Revised by Mario Carneiro, 26-Jun-2015.)

Assertion

Ref	Expression
frind	⊢ (((𝑅 Fr 𝐴 ∧ 𝑅 Se 𝐴) ∧ (𝐵 ⊆ 𝐴 ∧ ∀𝑦 ∈ 𝐴 (Pred(𝑅, 𝐴, 𝑦) ⊆ 𝐵 → 𝑦 ∈ 𝐵))) → 𝐴 = 𝐵)

Distinct variable groups:   𝑦,𝐴   𝑦,𝐵   𝑦,𝑅

Proof of Theorem frind

Step	Hyp	Ref	Expression
1		ssdif0 4277	. . . . . . 7 ⊢ (𝐴 ⊆ 𝐵 ↔ (𝐴 ∖ 𝐵) = ∅)
2	1	necon3bbii 3034	. . . . . 6 ⊢ (¬ 𝐴 ⊆ 𝐵 ↔ (𝐴 ∖ 𝐵) ≠ ∅)
3		difss 4059	. . . . . . 7 ⊢ (𝐴 ∖ 𝐵) ⊆ 𝐴
4		frmin 33197	. . . . . . . . 9 ⊢ (((𝑅 Fr 𝐴 ∧ 𝑅 Se 𝐴) ∧ ((𝐴 ∖ 𝐵) ⊆ 𝐴 ∧ (𝐴 ∖ 𝐵) ≠ ∅)) → ∃𝑦 ∈ (𝐴 ∖ 𝐵)Pred(𝑅, (𝐴 ∖ 𝐵), 𝑦) = ∅)
5		eldif 3891	. . . . . . . . . . . . 13 ⊢ (𝑦 ∈ (𝐴 ∖ 𝐵) ↔ (𝑦 ∈ 𝐴 ∧ ¬ 𝑦 ∈ 𝐵))
6	5	anbi1i 626	. . . . . . . . . . . 12 ⊢ ((𝑦 ∈ (𝐴 ∖ 𝐵) ∧ Pred(𝑅, (𝐴 ∖ 𝐵), 𝑦) = ∅) ↔ ((𝑦 ∈ 𝐴 ∧ ¬ 𝑦 ∈ 𝐵) ∧ Pred(𝑅, (𝐴 ∖ 𝐵), 𝑦) = ∅))
7		anass 472	. . . . . . . . . . . 12 ⊢ (((𝑦 ∈ 𝐴 ∧ ¬ 𝑦 ∈ 𝐵) ∧ Pred(𝑅, (𝐴 ∖ 𝐵), 𝑦) = ∅) ↔ (𝑦 ∈ 𝐴 ∧ (¬ 𝑦 ∈ 𝐵 ∧ Pred(𝑅, (𝐴 ∖ 𝐵), 𝑦) = ∅)))
8		ancom 464	. . . . . . . . . . . . . 14 ⊢ ((¬ 𝑦 ∈ 𝐵 ∧ Pred(𝑅, (𝐴 ∖ 𝐵), 𝑦) = ∅) ↔ (Pred(𝑅, (𝐴 ∖ 𝐵), 𝑦) = ∅ ∧ ¬ 𝑦 ∈ 𝐵))
9		indif2 4197	. . . . . . . . . . . . . . . . . 18 ⊢ ((◡𝑅 “ {𝑦}) ∩ (𝐴 ∖ 𝐵)) = (((◡𝑅 “ {𝑦}) ∩ 𝐴) ∖ 𝐵)
10		df-pred 6116	. . . . . . . . . . . . . . . . . . 19 ⊢ Pred(𝑅, (𝐴 ∖ 𝐵), 𝑦) = ((𝐴 ∖ 𝐵) ∩ (◡𝑅 “ {𝑦}))
11		incom 4128	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝐴 ∖ 𝐵) ∩ (◡𝑅 “ {𝑦})) = ((◡𝑅 “ {𝑦}) ∩ (𝐴 ∖ 𝐵))
12	10, 11	eqtri 2821	. . . . . . . . . . . . . . . . . 18 ⊢ Pred(𝑅, (𝐴 ∖ 𝐵), 𝑦) = ((◡𝑅 “ {𝑦}) ∩ (𝐴 ∖ 𝐵))
13		df-pred 6116	. . . . . . . . . . . . . . . . . . . 20 ⊢ Pred(𝑅, 𝐴, 𝑦) = (𝐴 ∩ (◡𝑅 “ {𝑦}))
14		incom 4128	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝐴 ∩ (◡𝑅 “ {𝑦})) = ((◡𝑅 “ {𝑦}) ∩ 𝐴)
15	13, 14	eqtri 2821	. . . . . . . . . . . . . . . . . . 19 ⊢ Pred(𝑅, 𝐴, 𝑦) = ((◡𝑅 “ {𝑦}) ∩ 𝐴)
16	15	difeq1i 4046	. . . . . . . . . . . . . . . . . 18 ⊢ (Pred(𝑅, 𝐴, 𝑦) ∖ 𝐵) = (((◡𝑅 “ {𝑦}) ∩ 𝐴) ∖ 𝐵)
17	9, 12, 16	3eqtr4i 2831	. . . . . . . . . . . . . . . . 17 ⊢ Pred(𝑅, (𝐴 ∖ 𝐵), 𝑦) = (Pred(𝑅, 𝐴, 𝑦) ∖ 𝐵)
18	17	eqeq1i 2803	. . . . . . . . . . . . . . . 16 ⊢ (Pred(𝑅, (𝐴 ∖ 𝐵), 𝑦) = ∅ ↔ (Pred(𝑅, 𝐴, 𝑦) ∖ 𝐵) = ∅)
19		ssdif0 4277	. . . . . . . . . . . . . . . 16 ⊢ (Pred(𝑅, 𝐴, 𝑦) ⊆ 𝐵 ↔ (Pred(𝑅, 𝐴, 𝑦) ∖ 𝐵) = ∅)
20	18, 19	bitr4i 281	. . . . . . . . . . . . . . 15 ⊢ (Pred(𝑅, (𝐴 ∖ 𝐵), 𝑦) = ∅ ↔ Pred(𝑅, 𝐴, 𝑦) ⊆ 𝐵)
21	20	anbi1i 626	. . . . . . . . . . . . . 14 ⊢ ((Pred(𝑅, (𝐴 ∖ 𝐵), 𝑦) = ∅ ∧ ¬ 𝑦 ∈ 𝐵) ↔ (Pred(𝑅, 𝐴, 𝑦) ⊆ 𝐵 ∧ ¬ 𝑦 ∈ 𝐵))
22	8, 21	bitri 278	. . . . . . . . . . . . 13 ⊢ ((¬ 𝑦 ∈ 𝐵 ∧ Pred(𝑅, (𝐴 ∖ 𝐵), 𝑦) = ∅) ↔ (Pred(𝑅, 𝐴, 𝑦) ⊆ 𝐵 ∧ ¬ 𝑦 ∈ 𝐵))
23	22	anbi2i 625	. . . . . . . . . . . 12 ⊢ ((𝑦 ∈ 𝐴 ∧ (¬ 𝑦 ∈ 𝐵 ∧ Pred(𝑅, (𝐴 ∖ 𝐵), 𝑦) = ∅)) ↔ (𝑦 ∈ 𝐴 ∧ (Pred(𝑅, 𝐴, 𝑦) ⊆ 𝐵 ∧ ¬ 𝑦 ∈ 𝐵)))
24	6, 7, 23	3bitri 300	. . . . . . . . . . 11 ⊢ ((𝑦 ∈ (𝐴 ∖ 𝐵) ∧ Pred(𝑅, (𝐴 ∖ 𝐵), 𝑦) = ∅) ↔ (𝑦 ∈ 𝐴 ∧ (Pred(𝑅, 𝐴, 𝑦) ⊆ 𝐵 ∧ ¬ 𝑦 ∈ 𝐵)))
25	24	rexbii2 3208	. . . . . . . . . 10 ⊢ (∃𝑦 ∈ (𝐴 ∖ 𝐵)Pred(𝑅, (𝐴 ∖ 𝐵), 𝑦) = ∅ ↔ ∃𝑦 ∈ 𝐴 (Pred(𝑅, 𝐴, 𝑦) ⊆ 𝐵 ∧ ¬ 𝑦 ∈ 𝐵))
26		rexanali 3224	. . . . . . . . . 10 ⊢ (∃𝑦 ∈ 𝐴 (Pred(𝑅, 𝐴, 𝑦) ⊆ 𝐵 ∧ ¬ 𝑦 ∈ 𝐵) ↔ ¬ ∀𝑦 ∈ 𝐴 (Pred(𝑅, 𝐴, 𝑦) ⊆ 𝐵 → 𝑦 ∈ 𝐵))
27	25, 26	bitri 278	. . . . . . . . 9 ⊢ (∃𝑦 ∈ (𝐴 ∖ 𝐵)Pred(𝑅, (𝐴 ∖ 𝐵), 𝑦) = ∅ ↔ ¬ ∀𝑦 ∈ 𝐴 (Pred(𝑅, 𝐴, 𝑦) ⊆ 𝐵 → 𝑦 ∈ 𝐵))
28	4, 27	sylib 221	. . . . . . . 8 ⊢ (((𝑅 Fr 𝐴 ∧ 𝑅 Se 𝐴) ∧ ((𝐴 ∖ 𝐵) ⊆ 𝐴 ∧ (𝐴 ∖ 𝐵) ≠ ∅)) → ¬ ∀𝑦 ∈ 𝐴 (Pred(𝑅, 𝐴, 𝑦) ⊆ 𝐵 → 𝑦 ∈ 𝐵))
29	28	ex 416	. . . . . . 7 ⊢ ((𝑅 Fr 𝐴 ∧ 𝑅 Se 𝐴) → (((𝐴 ∖ 𝐵) ⊆ 𝐴 ∧ (𝐴 ∖ 𝐵) ≠ ∅) → ¬ ∀𝑦 ∈ 𝐴 (Pred(𝑅, 𝐴, 𝑦) ⊆ 𝐵 → 𝑦 ∈ 𝐵)))
30	3, 29	mpani 695	. . . . . 6 ⊢ ((𝑅 Fr 𝐴 ∧ 𝑅 Se 𝐴) → ((𝐴 ∖ 𝐵) ≠ ∅ → ¬ ∀𝑦 ∈ 𝐴 (Pred(𝑅, 𝐴, 𝑦) ⊆ 𝐵 → 𝑦 ∈ 𝐵)))
31	2, 30	syl5bi 245	. . . . 5 ⊢ ((𝑅 Fr 𝐴 ∧ 𝑅 Se 𝐴) → (¬ 𝐴 ⊆ 𝐵 → ¬ ∀𝑦 ∈ 𝐴 (Pred(𝑅, 𝐴, 𝑦) ⊆ 𝐵 → 𝑦 ∈ 𝐵)))
32	31	con4d 115	. . . 4 ⊢ ((𝑅 Fr 𝐴 ∧ 𝑅 Se 𝐴) → (∀𝑦 ∈ 𝐴 (Pred(𝑅, 𝐴, 𝑦) ⊆ 𝐵 → 𝑦 ∈ 𝐵) → 𝐴 ⊆ 𝐵))
33	32	imp 410	. . 3 ⊢ (((𝑅 Fr 𝐴 ∧ 𝑅 Se 𝐴) ∧ ∀𝑦 ∈ 𝐴 (Pred(𝑅, 𝐴, 𝑦) ⊆ 𝐵 → 𝑦 ∈ 𝐵)) → 𝐴 ⊆ 𝐵)
34	33	adantrl 715	. 2 ⊢ (((𝑅 Fr 𝐴 ∧ 𝑅 Se 𝐴) ∧ (𝐵 ⊆ 𝐴 ∧ ∀𝑦 ∈ 𝐴 (Pred(𝑅, 𝐴, 𝑦) ⊆ 𝐵 → 𝑦 ∈ 𝐵))) → 𝐴 ⊆ 𝐵)
35		simprl 770	. 2 ⊢ (((𝑅 Fr 𝐴 ∧ 𝑅 Se 𝐴) ∧ (𝐵 ⊆ 𝐴 ∧ ∀𝑦 ∈ 𝐴 (Pred(𝑅, 𝐴, 𝑦) ⊆ 𝐵 → 𝑦 ∈ 𝐵))) → 𝐵 ⊆ 𝐴)
36	34, 35	eqssd 3932	1 ⊢ (((𝑅 Fr 𝐴 ∧ 𝑅 Se 𝐴) ∧ (𝐵 ⊆ 𝐴 ∧ ∀𝑦 ∈ 𝐴 (Pred(𝑅, 𝐴, 𝑦) ⊆ 𝐵 → 𝑦 ∈ 𝐵))) → 𝐴 = 𝐵)

Syntax hints:  ¬ wn 3   → wi 4   ∧ wa 399   = wceq 1538   ∈ wcel 2111   ≠ wne 2987  ∀wral 3106  ∃wrex 3107   ∖ cdif 3878   ∩ cin 3880   ⊆ wss 3881  ∅c0 4243  {csn 4525   Fr wfr 5475   Se wse 5476  ^◡ccnv 5518   “ cima 5522  Predcpred 6115

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1797  ax-4 1811  ax-5 1911  ax-6 1970  ax-7 2015  ax-8 2113  ax-9 2121  ax-10 2142  ax-11 2158  ax-12 2175  ax-ext 2770  ax-rep 5154  ax-sep 5167  ax-nul 5174  ax-pow 5231  ax-pr 5295  ax-un 7441  ax-inf2 9088

This theorem depends on definitions:  df-bi 210  df-an 400  df-or 845  df-3or 1085  df-3an 1086  df-tru 1541  df-ex 1782  df-nf 1786  df-sb 2070  df-mo 2598  df-eu 2629  df-clab 2777  df-cleq 2791  df-clel 2870  df-nfc 2938  df-ne 2988  df-ral 3111  df-rex 3112  df-reu 3113  df-rab 3115  df-v 3443  df-sbc 3721  df-csb 3829  df-dif 3884  df-un 3886  df-in 3888  df-ss 3898  df-pss 3900  df-nul 4244  df-if 4426  df-pw 4499  df-sn 4526  df-pr 4528  df-tp 4530  df-op 4532  df-uni 4801  df-iun 4883  df-br 5031  df-opab 5093  df-mpt 5111  df-tr 5137  df-id 5425  df-eprel 5430  df-po 5438  df-so 5439  df-fr 5478  df-se 5479  df-we 5480  df-xp 5525  df-rel 5526  df-cnv 5527  df-co 5528  df-dm 5529  df-rn 5530  df-res 5531  df-ima 5532  df-pred 6116  df-ord 6162  df-on 6163  df-lim 6164  df-suc 6165  df-iota 6283  df-fun 6326  df-fn 6327  df-f 6328  df-f1 6329  df-fo 6330  df-f1o 6331  df-fv 6332  df-om 7561  df-wrecs 7930  df-recs 7991  df-rdg 8029  df-trpred 33170

This theorem is referenced by:  frindi  33199  frinsg  33200