Theorem isstruct2im 13115

Description: The property of being a structure with components in ( 1st ` X ) ... ( 2nd ` X ). (Contributed by Mario Carneiro, 29-Aug-2015.) (Revised by Jim Kingdon, 18-Jan-2023.)

Assertion

Ref	Expression
isstruct2im	|- ( F Struct X -> ( X e. ( <_ i^i ( NN X. NN ) ) /\ Fun ( F \ { (/) } ) /\ dom F C_ ( ... ` X ) ) )

Proof of Theorem isstruct2im

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

Step	Hyp	Ref	Expression
1		brstruct 13114	. . . 4 |- Rel Struct
2	1	brrelex12i 4770	. . 3 |- ( F Struct X -> ( F e. _V /\ X e. _V ) )
3		simpr 110	. . . . . 6 |- ( ( f = F /\ x = X ) -> x = X )
4	3	eleq1d 2299	. . . . 5 |- ( ( f = F /\ x = X ) -> ( x e. ( <_ i^i ( NN X. NN ) ) <-> X e. ( <_ i^i ( NN X. NN ) ) ) )
5		simpl 109	. . . . . . 7 |- ( ( f = F /\ x = X ) -> f = F )
6	5	difeq1d 3323	. . . . . 6 |- ( ( f = F /\ x = X ) -> ( f \ { (/) } ) = ( F \ { (/) } ) )
7	6	funeqd 5350	. . . . 5 |- ( ( f = F /\ x = X ) -> ( Fun ( f \ { (/) } ) <-> Fun ( F \ { (/) } ) ) )
8	5	dmeqd 4935	. . . . . 6 |- ( ( f = F /\ x = X ) -> dom f = dom F )
9	3	fveq2d 5646	. . . . . 6 |- ( ( f = F /\ x = X ) -> ( ... ` x ) = ( ... ` X ) )
10	8, 9	sseq12d 3257	. . . . 5 |- ( ( f = F /\ x = X ) -> ( dom f C_ ( ... ` x ) <-> dom F C_ ( ... ` X ) ) )
11	4, 7, 10	3anbi123d 1348	. . . 4 |- ( ( f = F /\ x = X ) -> ( ( x e. ( <_ i^i ( NN X. NN ) ) /\ Fun ( f \ { (/) } ) /\ dom f C_ ( ... ` x ) ) <-> ( X e. ( <_ i^i ( NN X. NN ) ) /\ Fun ( F \ { (/) } ) /\ dom F C_ ( ... ` X ) ) ) )
12		df-struct 13107	. . . 4 |- Struct = { <. f , x >. | ( x e. ( <_ i^i ( NN X. NN ) ) /\ Fun ( f \ { (/) } ) /\ dom f C_ ( ... ` x ) ) }
13	11, 12	brabga 4360	. . 3 |- ( ( F e. _V /\ X e. _V ) -> ( F Struct X <-> ( X e. ( <_ i^i ( NN X. NN ) ) /\ Fun ( F \ { (/) } ) /\ dom F C_ ( ... ` X ) ) ) )
14	2, 13	syl 14	. 2 |- ( F Struct X -> ( F Struct X <-> ( X e. ( <_ i^i ( NN X. NN ) ) /\ Fun ( F \ { (/) } ) /\ dom F C_ ( ... ` X ) ) ) )
15	14	ibi 176	1 |- ( F Struct X -> ( X e. ( <_ i^i ( NN X. NN ) ) /\ Fun ( F \ { (/) } ) /\ dom F C_ ( ... ` X ) ) )

Syntax hints:   -> wi 4   /\ wa 104   <-> wb 105   /\ w3a 1004   = wceq 1397   e. wcel 2201   _Vcvv 2801   \ cdif 3196   i^i cin 3198   C_ wss 3199   (/)c0 3493   {csn 3670   class class class wbr 4089   X. cxp 4725   dom cdm 4727   Fun wfun 5322   ` cfv 5328   <_ cle 8220   NNcn 9148   ...cfz 10248   Struct cstr 13101

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-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-14 2204  ax-ext 2212  ax-sep 4208  ax-pow 4266  ax-pr 4301

This theorem depends on definitions:  df-bi 117  df-3an 1006  df-tru 1400  df-nf 1509  df-sb 1810  df-eu 2081  df-mo 2082  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-pw 3655  df-sn 3676  df-pr 3677  df-op 3679  df-uni 3895  df-br 4090  df-opab 4152  df-xp 4733  df-rel 4734  df-cnv 4735  df-co 4736  df-dm 4737  df-iota 5288  df-fun 5330  df-fv 5336  df-struct 13107

This theorem is referenced by:  structn0fun  13118  isstructim  13119