Theorem en2lp 4552

Description: No class has 2-cycle membership loops. Theorem 7X(b) of [Enderton] p. 206. (Contributed by NM, 16-Oct-1996.) (Proof rewritten by Mario Carneiro and Jim Kingdon, 27-Nov-2018.)

Assertion

Ref	Expression
en2lp	|- -. ( A e. B /\ B e. A )

Proof of Theorem en2lp

Dummy variables x y are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		elex 2748	. . . . . . . . . . . 12 |- ( B e. A -> B e. _V )
2		prid2g 3697	. . . . . . . . . . . . 13 |- ( B e. _V -> B e. { A , B } )
3		eldif 3138	. . . . . . . . . . . . . . 15 |- ( B e. ( _V \ { A , B } ) <-> ( B e. _V /\ -. B e. { A , B } ) )
4		pm3.4 333	. . . . . . . . . . . . . . 15 |- ( ( B e. _V /\ -. B e. { A , B } ) -> ( B e. _V -> -. B e. { A , B } ) )
5	3, 4	sylbi 121	. . . . . . . . . . . . . 14 |- ( B e. ( _V \ { A , B } ) -> ( B e. _V -> -. B e. { A , B } ) )
6	5	com12 30	. . . . . . . . . . . . 13 |- ( B e. _V -> ( B e. ( _V \ { A , B } ) -> -. B e. { A , B } ) )
7	2, 6	mt2d 625	. . . . . . . . . . . 12 |- ( B e. _V -> -. B e. ( _V \ { A , B } ) )
8	1, 7	syl 14	. . . . . . . . . . 11 |- ( B e. A -> -. B e. ( _V \ { A , B } ) )
9	8	ad2antlr 489	. . . . . . . . . 10 |- ( ( ( A e. B /\ B e. A ) /\ A. y ( y e. x -> y e. ( _V \ { A , B } ) ) ) -> -. B e. ( _V \ { A , B } ) )
10		simp1r 1022	. . . . . . . . . . . 12 |- ( ( ( A e. B /\ B e. A ) /\ A. y ( y e. x -> y e. ( _V \ { A , B } ) ) /\ x = A ) -> B e. A )
11		eleq1 2240	. . . . . . . . . . . . . . . . 17 |- ( y = B -> ( y e. x <-> B e. x ) )
12		eleq1 2240	. . . . . . . . . . . . . . . . 17 |- ( y = B -> ( y e. ( _V \ { A , B } ) <-> B e. ( _V \ { A , B } ) ) )
13	11, 12	imbi12d 234	. . . . . . . . . . . . . . . 16 |- ( y = B -> ( ( y e. x -> y e. ( _V \ { A , B } ) ) <-> ( B e. x -> B e. ( _V \ { A , B } ) ) ) )
14	13	spcgv 2824	. . . . . . . . . . . . . . 15 |- ( B e. x -> ( A. y ( y e. x -> y e. ( _V \ { A , B } ) ) -> ( B e. x -> B e. ( _V \ { A , B } ) ) ) )
15	14	pm2.43b 52	. . . . . . . . . . . . . 14 |- ( A. y ( y e. x -> y e. ( _V \ { A , B } ) ) -> ( B e. x -> B e. ( _V \ { A , B } ) ) )
16	15	3ad2ant2 1019	. . . . . . . . . . . . 13 |- ( ( ( A e. B /\ B e. A ) /\ A. y ( y e. x -> y e. ( _V \ { A , B } ) ) /\ x = A ) -> ( B e. x -> B e. ( _V \ { A , B } ) ) )
17		eleq2 2241	. . . . . . . . . . . . . . 15 |- ( x = A -> ( B e. x <-> B e. A ) )
18	17	imbi1d 231	. . . . . . . . . . . . . 14 |- ( x = A -> ( ( B e. x -> B e. ( _V \ { A , B } ) ) <-> ( B e. A -> B e. ( _V \ { A , B } ) ) ) )
19	18	3ad2ant3 1020	. . . . . . . . . . . . 13 |- ( ( ( A e. B /\ B e. A ) /\ A. y ( y e. x -> y e. ( _V \ { A , B } ) ) /\ x = A ) -> ( ( B e. x -> B e. ( _V \ { A , B } ) ) <-> ( B e. A -> B e. ( _V \ { A , B } ) ) ) )
20	16, 19	mpbid 147	. . . . . . . . . . . 12 |- ( ( ( A e. B /\ B e. A ) /\ A. y ( y e. x -> y e. ( _V \ { A , B } ) ) /\ x = A ) -> ( B e. A -> B e. ( _V \ { A , B } ) ) )
21	10, 20	mpd 13	. . . . . . . . . . 11 |- ( ( ( A e. B /\ B e. A ) /\ A. y ( y e. x -> y e. ( _V \ { A , B } ) ) /\ x = A ) -> B e. ( _V \ { A , B } ) )
22	21	3expia 1205	. . . . . . . . . 10 |- ( ( ( A e. B /\ B e. A ) /\ A. y ( y e. x -> y e. ( _V \ { A , B } ) ) ) -> ( x = A -> B e. ( _V \ { A , B } ) ) )
23	9, 22	mtod 663	. . . . . . . . 9 |- ( ( ( A e. B /\ B e. A ) /\ A. y ( y e. x -> y e. ( _V \ { A , B } ) ) ) -> -. x = A )
24		elex 2748	. . . . . . . . . . . . 13 |- ( A e. B -> A e. _V )
25		prid1g 3696	. . . . . . . . . . . . . 14 |- ( A e. _V -> A e. { A , B } )
26		eldif 3138	. . . . . . . . . . . . . . . 16 |- ( A e. ( _V \ { A , B } ) <-> ( A e. _V /\ -. A e. { A , B } ) )
27		pm3.4 333	. . . . . . . . . . . . . . . 16 |- ( ( A e. _V /\ -. A e. { A , B } ) -> ( A e. _V -> -. A e. { A , B } ) )
28	26, 27	sylbi 121	. . . . . . . . . . . . . . 15 |- ( A e. ( _V \ { A , B } ) -> ( A e. _V -> -. A e. { A , B } ) )
29	28	com12 30	. . . . . . . . . . . . . 14 |- ( A e. _V -> ( A e. ( _V \ { A , B } ) -> -. A e. { A , B } ) )
30	25, 29	mt2d 625	. . . . . . . . . . . . 13 |- ( A e. _V -> -. A e. ( _V \ { A , B } ) )
31	24, 30	syl 14	. . . . . . . . . . . 12 |- ( A e. B -> -. A e. ( _V \ { A , B } ) )
32	31	adantr 276	. . . . . . . . . . 11 |- ( ( A e. B /\ B e. A ) -> -. A e. ( _V \ { A , B } ) )
33	32	adantr 276	. . . . . . . . . 10 |- ( ( ( A e. B /\ B e. A ) /\ A. y ( y e. x -> y e. ( _V \ { A , B } ) ) ) -> -. A e. ( _V \ { A , B } ) )
34		simp1l 1021	. . . . . . . . . . . 12 |- ( ( ( A e. B /\ B e. A ) /\ A. y ( y e. x -> y e. ( _V \ { A , B } ) ) /\ x = B ) -> A e. B )
35		eleq1 2240	. . . . . . . . . . . . . . . . 17 |- ( y = A -> ( y e. x <-> A e. x ) )
36		eleq1 2240	. . . . . . . . . . . . . . . . 17 |- ( y = A -> ( y e. ( _V \ { A , B } ) <-> A e. ( _V \ { A , B } ) ) )
37	35, 36	imbi12d 234	. . . . . . . . . . . . . . . 16 |- ( y = A -> ( ( y e. x -> y e. ( _V \ { A , B } ) ) <-> ( A e. x -> A e. ( _V \ { A , B } ) ) ) )
38	37	spcgv 2824	. . . . . . . . . . . . . . 15 |- ( A e. x -> ( A. y ( y e. x -> y e. ( _V \ { A , B } ) ) -> ( A e. x -> A e. ( _V \ { A , B } ) ) ) )
39	38	pm2.43b 52	. . . . . . . . . . . . . 14 |- ( A. y ( y e. x -> y e. ( _V \ { A , B } ) ) -> ( A e. x -> A e. ( _V \ { A , B } ) ) )
40	39	3ad2ant2 1019	. . . . . . . . . . . . 13 |- ( ( ( A e. B /\ B e. A ) /\ A. y ( y e. x -> y e. ( _V \ { A , B } ) ) /\ x = B ) -> ( A e. x -> A e. ( _V \ { A , B } ) ) )
41		eleq2 2241	. . . . . . . . . . . . . . 15 |- ( x = B -> ( A e. x <-> A e. B ) )
42	41	imbi1d 231	. . . . . . . . . . . . . 14 |- ( x = B -> ( ( A e. x -> A e. ( _V \ { A , B } ) ) <-> ( A e. B -> A e. ( _V \ { A , B } ) ) ) )
43	42	3ad2ant3 1020	. . . . . . . . . . . . 13 |- ( ( ( A e. B /\ B e. A ) /\ A. y ( y e. x -> y e. ( _V \ { A , B } ) ) /\ x = B ) -> ( ( A e. x -> A e. ( _V \ { A , B } ) ) <-> ( A e. B -> A e. ( _V \ { A , B } ) ) ) )
44	40, 43	mpbid 147	. . . . . . . . . . . 12 |- ( ( ( A e. B /\ B e. A ) /\ A. y ( y e. x -> y e. ( _V \ { A , B } ) ) /\ x = B ) -> ( A e. B -> A e. ( _V \ { A , B } ) ) )
45	34, 44	mpd 13	. . . . . . . . . . 11 |- ( ( ( A e. B /\ B e. A ) /\ A. y ( y e. x -> y e. ( _V \ { A , B } ) ) /\ x = B ) -> A e. ( _V \ { A , B } ) )
46	45	3expia 1205	. . . . . . . . . 10 |- ( ( ( A e. B /\ B e. A ) /\ A. y ( y e. x -> y e. ( _V \ { A , B } ) ) ) -> ( x = B -> A e. ( _V \ { A , B } ) ) )
47	33, 46	mtod 663	. . . . . . . . 9 |- ( ( ( A e. B /\ B e. A ) /\ A. y ( y e. x -> y e. ( _V \ { A , B } ) ) ) -> -. x = B )
48		ioran 752	. . . . . . . . 9 |- ( -. ( x = A \/ x = B ) <-> ( -. x = A /\ -. x = B ) )
49	23, 47, 48	sylanbrc 417	. . . . . . . 8 |- ( ( ( A e. B /\ B e. A ) /\ A. y ( y e. x -> y e. ( _V \ { A , B } ) ) ) -> -. ( x = A \/ x = B ) )
50		vex 2740	. . . . . . . . . 10 |- x e. _V
51		eldif 3138	. . . . . . . . . 10 |- ( x e. ( _V \ { A , B } ) <-> ( x e. _V /\ -. x e. { A , B } ) )
52	50, 51	mpbiran 940	. . . . . . . . 9 |- ( x e. ( _V \ { A , B } ) <-> -. x e. { A , B } )
53	50	elpr 3613	. . . . . . . . 9 |- ( x e. { A , B } <-> ( x = A \/ x = B ) )
54	52, 53	xchbinx 682	. . . . . . . 8 |- ( x e. ( _V \ { A , B } ) <-> -. ( x = A \/ x = B ) )
55	49, 54	sylibr 134	. . . . . . 7 |- ( ( ( A e. B /\ B e. A ) /\ A. y ( y e. x -> y e. ( _V \ { A , B } ) ) ) -> x e. ( _V \ { A , B } ) )
56	55	ex 115	. . . . . 6 |- ( ( A e. B /\ B e. A ) -> ( A. y ( y e. x -> y e. ( _V \ { A , B } ) ) -> x e. ( _V \ { A , B } ) ) )
57	56	alrimiv 1874	. . . . 5 |- ( ( A e. B /\ B e. A ) -> A. x ( A. y ( y e. x -> y e. ( _V \ { A , B } ) ) -> x e. ( _V \ { A , B } ) ) )
58		df-ral 2460	. . . . . . . 8 |- ( A. y e. x [ y / x ] x e. ( _V \ { A , B } ) <-> A. y ( y e. x -> [ y / x ] x e. ( _V \ { A , B } ) ) )
59		clelsb1 2282	. . . . . . . . . 10 |- ( [ y / x ] x e. ( _V \ { A , B } ) <-> y e. ( _V \ { A , B } ) )
60	59	imbi2i 226	. . . . . . . . 9 |- ( ( y e. x -> [ y / x ] x e. ( _V \ { A , B } ) ) <-> ( y e. x -> y e. ( _V \ { A , B } ) ) )
61	60	albii 1470	. . . . . . . 8 |- ( A. y ( y e. x -> [ y / x ] x e. ( _V \ { A , B } ) ) <-> A. y ( y e. x -> y e. ( _V \ { A , B } ) ) )
62	58, 61	bitri 184	. . . . . . 7 |- ( A. y e. x [ y / x ] x e. ( _V \ { A , B } ) <-> A. y ( y e. x -> y e. ( _V \ { A , B } ) ) )
63	62	imbi1i 238	. . . . . 6 |- ( ( A. y e. x [ y / x ] x e. ( _V \ { A , B } ) -> x e. ( _V \ { A , B } ) ) <-> ( A. y ( y e. x -> y e. ( _V \ { A , B } ) ) -> x e. ( _V \ { A , B } ) ) )
64	63	albii 1470	. . . . 5 |- ( A. x ( A. y e. x [ y / x ] x e. ( _V \ { A , B } ) -> x e. ( _V \ { A , B } ) ) <-> A. x ( A. y ( y e. x -> y e. ( _V \ { A , B } ) ) -> x e. ( _V \ { A , B } ) ) )
65	57, 64	sylibr 134	. . . 4 |- ( ( A e. B /\ B e. A ) -> A. x ( A. y e. x [ y / x ] x e. ( _V \ { A , B } ) -> x e. ( _V \ { A , B } ) ) )
66		ax-setind 4535	. . . 4 |- ( A. x ( A. y e. x [ y / x ] x e. ( _V \ { A , B } ) -> x e. ( _V \ { A , B } ) ) -> A. x x e. ( _V \ { A , B } ) )
67	65, 66	syl 14	. . 3 |- ( ( A e. B /\ B e. A ) -> A. x x e. ( _V \ { A , B } ) )
68		eleq1 2240	. . . . 5 |- ( x = A -> ( x e. ( _V \ { A , B } ) <-> A e. ( _V \ { A , B } ) ) )
69	68	spcgv 2824	. . . 4 |- ( A e. B -> ( A. x x e. ( _V \ { A , B } ) -> A e. ( _V \ { A , B } ) ) )
70	69	adantr 276	. . 3 |- ( ( A e. B /\ B e. A ) -> ( A. x x e. ( _V \ { A , B } ) -> A e. ( _V \ { A , B } ) ) )
71	67, 70	mpd 13	. 2 |- ( ( A e. B /\ B e. A ) -> A e. ( _V \ { A , B } ) )
72	71, 32	pm2.65i 639	1 |- -. ( A e. B /\ B e. A )

Syntax hints:   -. wn 3   -> wi 4   /\ wa 104   <-> wb 105   \/ wo 708   /\ w3a 978   A.wal 1351   = wceq 1353   [wsb 1762   e. wcel 2148   A.wral 2455   _Vcvv 2737   \ cdif 3126   {cpr 3593

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-ext 2159  ax-setind 4535

This theorem depends on definitions:  df-bi 117  df-3an 980  df-tru 1356  df-nf 1461  df-sb 1763  df-clab 2164  df-cleq 2170  df-clel 2173  df-nfc 2308  df-ral 2460  df-v 2739  df-dif 3131  df-un 3133  df-sn 3598  df-pr 3599

This theorem is referenced by:  preleq  4553  suc11g  4555  ordsuc  4561  2pwuninelg  6281  nntri2  6492  nndcel  6498