Theorem iss 3389

Description: A subclass of the identity function is the identity function restricted to its domain.

Assertion

Ref	Expression
iss	|- (A (_ I <-> A = (I |` dom A))

Proof of Theorem iss

Step	Hyp	Ref	Expression
1		ssel 2059	. . . . . . . 8 |- (A (_ I -> (<.x, y>. e. A -> <.x, y>. e. I))
2		df-br 2615	. . . . . . . . 9 |- (xIy <-> <.x, y>. e. I)
3		visset 1809	. . . . . . . . . 10 |- y e. V
4	3	ideq 3272	. . . . . . . . 9 |- (xIy <-> x = y)
5	2, 4	bitr3 175	. . . . . . . 8 |- (<.x, y>. e. I <-> x = y)
6	1, 5	syl6ib 212	. . . . . . 7 |- (A (_ I -> (<.x, y>. e. A -> x = y))
7	6	pm4.71rd 638	. . . . . 6 |- (A (_ I -> (<.x, y>. e. A <-> (x = y /\ <.x, y>. e. A)))
8		eqcom 1474	. . . . . . . . . . . . 13 |- (x = y <-> y = x)
9	8	anbi1i 481	. . . . . . . . . . . 12 |- ((x = y /\ <.x, y>. e. A) <-> (y = x /\ <.x, y>. e. A))
10	7, 9	syl6bb 535	. . . . . . . . . . 11 |- (A (_ I -> (<.x, y>. e. A <-> (y = x /\ <.x, y>. e. A)))
11	10	exbidv 1277	. . . . . . . . . 10 |- (A (_ I -> (E.y<.x, y>. e. A <-> E.y(y = x /\ <.x, y>. e. A)))
12		visset 1809	. . . . . . . . . . 11 |- x e. V
13		opeq2 2484	. . . . . . . . . . . 12 |- (y = x -> <.x, y>. = <.x, x>.)
14	13	eleq1d 1537	. . . . . . . . . . 11 |- (y = x -> (<.x, y>. e. A <-> <.x, x>. e. A))
15	12, 14	ceqsexv 1831	. . . . . . . . . 10 |- (E.y(y = x /\ <.x, y>. e. A) <-> <.x, x>. e. A)
16	11, 15	syl6bb 535	. . . . . . . . 9 |- (A (_ I -> (E.y<.x, y>. e. A <-> <.x, x>. e. A))
17	12	eldm2 3303	. . . . . . . . 9 |- (x e. dom A <-> E.y<.x, y>. e. A)
18	16, 17	syl5bb 531	. . . . . . . 8 |- (A (_ I -> (x e. dom A <-> <.x, x>. e. A))
19	18	anbi2d 615	. . . . . . 7 |- (A (_ I -> ((x = y /\ x e. dom A) <-> (x = y /\ <.x, x>. e. A)))
20		opeq2 2484	. . . . . . . . 9 |- (x = y -> <.x, x>. = <.x, y>.)
21	20	eleq1d 1537	. . . . . . . 8 |- (x = y -> (<.x, x>. e. A <-> <.x, y>. e. A))
22	21	pm5.32i 644	. . . . . . 7 |- ((x = y /\ <.x, x>. e. A) <-> (x = y /\ <.x, y>. e. A))
23	19, 22	syl6bb 535	. . . . . 6 |- (A (_ I -> ((x = y /\ x e. dom A) <-> (x = y /\ <.x, y>. e. A)))
24	7, 23	bitr4d 530	. . . . 5 |- (A (_ I -> (<.x, y>. e. A <-> (x = y /\ x e. dom A)))
25	3	opelres 3364	. . . . . 6 |- (<.x, y>. e. (I |` dom A) <-> (<.x, y>. e. I /\ x e. dom A))
26	5	anbi1i 481	. . . . . 6 |- ((<.x, y>. e. I /\ x e. dom A) <-> (x = y /\ x e. dom A))
27	25, 26	bitr2 174	. . . . 5 |- ((x = y /\ x e. dom A) <-> <.x, y>. e. (I |` dom A))
28	24, 27	syl6bb 535	. . . 4 |- (A (_ I -> (<.x, y>. e. A <-> <.x, y>. e. (I |` dom A)))
29	28	19.21aivv 1285	. . 3 |- (A (_ I -> A.xA.y(<.x, y>. e. A <-> <.x, y>. e. (I |` dom A)))
30		reli 3268	. . . . 5 |- Rel I
31		relss 3241	. . . . 5 |- (A (_ I -> (Rel I -> Rel A))
32	30, 31	mpi 44	. . . 4 |- (A (_ I -> Rel A)
33		relres 3379	. . . . 5 |- Rel (I |` dom A)
34		eqrel 3245	. . . . 5 |- ((Rel A /\ Rel (I |` dom A)) -> (A = (I |` dom A) <-> A.xA.y(<.x, y>. e. A <-> <.x, y>. e. (I |` dom A))))
35	33, 34	mpan2 695	. . . 4 |- (Rel A -> (A = (I |` dom A) <-> A.xA.y(<.x, y>. e. A <-> <.x, y>. e. (I |` dom A))))
36	32, 35	syl 10	. . 3 |- (A (_ I -> (A = (I |` dom A) <-> A.xA.y(<.x, y>. e. A <-> <.x, y>. e. (I |` dom A))))
37	29, 36	mpbird 196	. 2 |- (A (_ I -> A = (I |` dom A))
38		resss 3375	. . 3 |- (I |` dom A) (_ I
39		sseq1 2078	. . 3 |- (A = (I |` dom A) -> (A (_ I <-> (I |` dom A) (_ I))
40	38, 39	mpbiri 194	. 2 |- (A = (I |` dom A) -> A (_ I)
41	37, 40	impbi 157	1 |- (A (_ I <-> A = (I |` dom A))

Syntax hints:   <-> wb 146   /\ wa 223  A.wal 952   = wceq 954   e. wcel 956  E.wex 978   (_ wss 2043  <.cop 2407   class class class wbr 2614  Icid 2826  dom cdm 3165   |` cres 3167  Rel wrel 3170

This theorem is referenced by:  f1ococnv2 3699

This theorem was proved from axioms:  ax-1 4  ax-2 5  ax-3 6  ax-mp 7  ax-7 960  ax-gen 961  ax-8 962  ax-10 964  ax-11 965  ax-12 966  ax-13 967  ax-14 968  ax-17 969  ax-4 971  ax-5o 973  ax-6o 976  ax-9o 1121  ax-10o 1138  ax-16 1208  ax-11o 1216  ax-ext 1457  ax-sep 2698  ax-pow 2737  ax-pr 2774

This theorem depends on definitions:  df-bi 147  df-or 224  df-an 225  df-ex 979  df-sb 1170  df-eu 1380  df-mo 1381  df-clab 1462  df-cleq 1467  df-clel 1470  df-ne 1584  df-v 1808  df-dif 2045  df-un 2046  df-in 2047  df-ss 2049  df-nul 2277  df-pw 2398  df-sn 2408  df-pr 2409  df-op 2412  df-br 2615  df-opab 2662  df-id 2830  df-xp 3179  df-rel 3180  df-dm 3183  df-res 3185

Copyright terms: Public domain