Metamath Proof Explorer

Theorem gass

Description: A subset of a group action is a group action iff it is closed under the group action operation. (Contributed by Mario Carneiro, 17-Jan-2015)

Ref Expression
Hypothesis gass.1 
|- X = ( Base ` G )
Assertion gass 
|- ( ( .(+) e. ( G GrpAct Y ) /\ Z C_ Y ) -> ( ( .(+) |` ( X X. Z ) ) e. ( G GrpAct Z ) <-> A. x e. X A. y e. Z ( x .(+) y ) e. Z ) )

Proof

Step Hyp Ref Expression
1 gass.1 
 |-  X = ( Base ` G )
2 ovres 
 |-  ( ( x e. X /\ y e. Z ) -> ( x ( .(+) |` ( X X. Z ) ) y ) = ( x .(+) y ) )
3 2 adantl 
 |-  ( ( ( ( .(+) e. ( G GrpAct Y ) /\ Z C_ Y ) /\ ( .(+) |` ( X X. Z ) ) e. ( G GrpAct Z ) ) /\ ( x e. X /\ y e. Z ) ) -> ( x ( .(+) |` ( X X. Z ) ) y ) = ( x .(+) y ) )
4 1 gaf 
 |-  ( ( .(+) |` ( X X. Z ) ) e. ( G GrpAct Z ) -> ( .(+) |` ( X X. Z ) ) : ( X X. Z ) --> Z )
5 4 adantl 
 |-  ( ( ( .(+) e. ( G GrpAct Y ) /\ Z C_ Y ) /\ ( .(+) |` ( X X. Z ) ) e. ( G GrpAct Z ) ) -> ( .(+) |` ( X X. Z ) ) : ( X X. Z ) --> Z )
6 5 fovcdmda 
 |-  ( ( ( ( .(+) e. ( G GrpAct Y ) /\ Z C_ Y ) /\ ( .(+) |` ( X X. Z ) ) e. ( G GrpAct Z ) ) /\ ( x e. X /\ y e. Z ) ) -> ( x ( .(+) |` ( X X. Z ) ) y ) e. Z )
7 3 6 eqeltrrd 
 |-  ( ( ( ( .(+) e. ( G GrpAct Y ) /\ Z C_ Y ) /\ ( .(+) |` ( X X. Z ) ) e. ( G GrpAct Z ) ) /\ ( x e. X /\ y e. Z ) ) -> ( x .(+) y ) e. Z )
8 7 ralrimivva 
 |-  ( ( ( .(+) e. ( G GrpAct Y ) /\ Z C_ Y ) /\ ( .(+) |` ( X X. Z ) ) e. ( G GrpAct Z ) ) -> A. x e. X A. y e. Z ( x .(+) y ) e. Z )
9 gagrp 
 |-  ( .(+) e. ( G GrpAct Y ) -> G e. Grp )
10 9 ad2antrr 
 |-  ( ( ( .(+) e. ( G GrpAct Y ) /\ Z C_ Y ) /\ A. x e. X A. y e. Z ( x .(+) y ) e. Z ) -> G e. Grp )
11 gaset 
 |-  ( .(+) e. ( G GrpAct Y ) -> Y e. _V )
12 11 adantr 
 |-  ( ( .(+) e. ( G GrpAct Y ) /\ Z C_ Y ) -> Y e. _V )
13 simpr 
 |-  ( ( .(+) e. ( G GrpAct Y ) /\ Z C_ Y ) -> Z C_ Y )
14 12 13 ssexd 
 |-  ( ( .(+) e. ( G GrpAct Y ) /\ Z C_ Y ) -> Z e. _V )
15 14 adantr 
 |-  ( ( ( .(+) e. ( G GrpAct Y ) /\ Z C_ Y ) /\ A. x e. X A. y e. Z ( x .(+) y ) e. Z ) -> Z e. _V )
16 10 15 jca 
 |-  ( ( ( .(+) e. ( G GrpAct Y ) /\ Z C_ Y ) /\ A. x e. X A. y e. Z ( x .(+) y ) e. Z ) -> ( G e. Grp /\ Z e. _V ) )
17 1 gaf 
 |-  ( .(+) e. ( G GrpAct Y ) -> .(+) : ( X X. Y ) --> Y )
18 17 ad2antrr 
 |-  ( ( ( .(+) e. ( G GrpAct Y ) /\ Z C_ Y ) /\ A. x e. X A. y e. Z ( x .(+) y ) e. Z ) -> .(+) : ( X X. Y ) --> Y )
19 18 ffnd 
 |-  ( ( ( .(+) e. ( G GrpAct Y ) /\ Z C_ Y ) /\ A. x e. X A. y e. Z ( x .(+) y ) e. Z ) -> .(+) Fn ( X X. Y ) )
20 simplr 
 |-  ( ( ( .(+) e. ( G GrpAct Y ) /\ Z C_ Y ) /\ A. x e. X A. y e. Z ( x .(+) y ) e. Z ) -> Z C_ Y )
21 xpss2 
 |-  ( Z C_ Y -> ( X X. Z ) C_ ( X X. Y ) )
22 20 21 syl 
 |-  ( ( ( .(+) e. ( G GrpAct Y ) /\ Z C_ Y ) /\ A. x e. X A. y e. Z ( x .(+) y ) e. Z ) -> ( X X. Z ) C_ ( X X. Y ) )
23 fnssres 
 |-  ( ( .(+) Fn ( X X. Y ) /\ ( X X. Z ) C_ ( X X. Y ) ) -> ( .(+) |` ( X X. Z ) ) Fn ( X X. Z ) )
24 19 22 23 syl2anc 
 |-  ( ( ( .(+) e. ( G GrpAct Y ) /\ Z C_ Y ) /\ A. x e. X A. y e. Z ( x .(+) y ) e. Z ) -> ( .(+) |` ( X X. Z ) ) Fn ( X X. Z ) )
25 simpr 
 |-  ( ( ( .(+) e. ( G GrpAct Y ) /\ Z C_ Y ) /\ A. x e. X A. y e. Z ( x .(+) y ) e. Z ) -> A. x e. X A. y e. Z ( x .(+) y ) e. Z )
26 2 eleq1d 
 |-  ( ( x e. X /\ y e. Z ) -> ( ( x ( .(+) |` ( X X. Z ) ) y ) e. Z <-> ( x .(+) y ) e. Z ) )
27 26 ralbidva 
 |-  ( x e. X -> ( A. y e. Z ( x ( .(+) |` ( X X. Z ) ) y ) e. Z <-> A. y e. Z ( x .(+) y ) e. Z ) )
28 27 ralbiia 
 |-  ( A. x e. X A. y e. Z ( x ( .(+) |` ( X X. Z ) ) y ) e. Z <-> A. x e. X A. y e. Z ( x .(+) y ) e. Z )
29 25 28 sylibr 
 |-  ( ( ( .(+) e. ( G GrpAct Y ) /\ Z C_ Y ) /\ A. x e. X A. y e. Z ( x .(+) y ) e. Z ) -> A. x e. X A. y e. Z ( x ( .(+) |` ( X X. Z ) ) y ) e. Z )
30 ffnov 
 |-  ( ( .(+) |` ( X X. Z ) ) : ( X X. Z ) --> Z <-> ( ( .(+) |` ( X X. Z ) ) Fn ( X X. Z ) /\ A. x e. X A. y e. Z ( x ( .(+) |` ( X X. Z ) ) y ) e. Z ) )
31 24 29 30 sylanbrc 
 |-  ( ( ( .(+) e. ( G GrpAct Y ) /\ Z C_ Y ) /\ A. x e. X A. y e. Z ( x .(+) y ) e. Z ) -> ( .(+) |` ( X X. Z ) ) : ( X X. Z ) --> Z )
32 eqid 
 |-  ( 0g ` G ) = ( 0g ` G )
33 1 32 grpidcl 
 |-  ( G e. Grp -> ( 0g ` G ) e. X )
34 10 33 syl 
 |-  ( ( ( .(+) e. ( G GrpAct Y ) /\ Z C_ Y ) /\ A. x e. X A. y e. Z ( x .(+) y ) e. Z ) -> ( 0g ` G ) e. X )
35 ovres 
 |-  ( ( ( 0g ` G ) e. X /\ z e. Z ) -> ( ( 0g ` G ) ( .(+) |` ( X X. Z ) ) z ) = ( ( 0g ` G ) .(+) z ) )
36 34 35 sylan 
 |-  ( ( ( ( .(+) e. ( G GrpAct Y ) /\ Z C_ Y ) /\ A. x e. X A. y e. Z ( x .(+) y ) e. Z ) /\ z e. Z ) -> ( ( 0g ` G ) ( .(+) |` ( X X. Z ) ) z ) = ( ( 0g ` G ) .(+) z ) )
37 simpll 
 |-  ( ( ( .(+) e. ( G GrpAct Y ) /\ Z C_ Y ) /\ A. x e. X A. y e. Z ( x .(+) y ) e. Z ) -> .(+) e. ( G GrpAct Y ) )
38 20 sselda 
 |-  ( ( ( ( .(+) e. ( G GrpAct Y ) /\ Z C_ Y ) /\ A. x e. X A. y e. Z ( x .(+) y ) e. Z ) /\ z e. Z ) -> z e. Y )
39 32 gagrpid 
 |-  ( ( .(+) e. ( G GrpAct Y ) /\ z e. Y ) -> ( ( 0g ` G ) .(+) z ) = z )
40 37 38 39 syl2an2r 
 |-  ( ( ( ( .(+) e. ( G GrpAct Y ) /\ Z C_ Y ) /\ A. x e. X A. y e. Z ( x .(+) y ) e. Z ) /\ z e. Z ) -> ( ( 0g ` G ) .(+) z ) = z )
41 36 40 eqtrd 
 |-  ( ( ( ( .(+) e. ( G GrpAct Y ) /\ Z C_ Y ) /\ A. x e. X A. y e. Z ( x .(+) y ) e. Z ) /\ z e. Z ) -> ( ( 0g ` G ) ( .(+) |` ( X X. Z ) ) z ) = z )
42 37 ad2antrr 
 |-  ( ( ( ( ( .(+) e. ( G GrpAct Y ) /\ Z C_ Y ) /\ A. x e. X A. y e. Z ( x .(+) y ) e. Z ) /\ z e. Z ) /\ ( u e. X /\ v e. X ) ) -> .(+) e. ( G GrpAct Y ) )
43 simprl 
 |-  ( ( ( ( ( .(+) e. ( G GrpAct Y ) /\ Z C_ Y ) /\ A. x e. X A. y e. Z ( x .(+) y ) e. Z ) /\ z e. Z ) /\ ( u e. X /\ v e. X ) ) -> u e. X )
44 simprr 
 |-  ( ( ( ( ( .(+) e. ( G GrpAct Y ) /\ Z C_ Y ) /\ A. x e. X A. y e. Z ( x .(+) y ) e. Z ) /\ z e. Z ) /\ ( u e. X /\ v e. X ) ) -> v e. X )
45 38 adantr 
 |-  ( ( ( ( ( .(+) e. ( G GrpAct Y ) /\ Z C_ Y ) /\ A. x e. X A. y e. Z ( x .(+) y ) e. Z ) /\ z e. Z ) /\ ( u e. X /\ v e. X ) ) -> z e. Y )
46 eqid 
 |-  ( +g ` G ) = ( +g ` G )
47 1 46 gaass 
 |-  ( ( .(+) e. ( G GrpAct Y ) /\ ( u e. X /\ v e. X /\ z e. Y ) ) -> ( ( u ( +g ` G ) v ) .(+) z ) = ( u .(+) ( v .(+) z ) ) )
48 42 43 44 45 47 syl13anc 
 |-  ( ( ( ( ( .(+) e. ( G GrpAct Y ) /\ Z C_ Y ) /\ A. x e. X A. y e. Z ( x .(+) y ) e. Z ) /\ z e. Z ) /\ ( u e. X /\ v e. X ) ) -> ( ( u ( +g ` G ) v ) .(+) z ) = ( u .(+) ( v .(+) z ) ) )
49 simplr 
 |-  ( ( ( ( ( .(+) e. ( G GrpAct Y ) /\ Z C_ Y ) /\ A. x e. X A. y e. Z ( x .(+) y ) e. Z ) /\ z e. Z ) /\ ( u e. X /\ v e. X ) ) -> z e. Z )
50 simpllr 
 |-  ( ( ( ( ( .(+) e. ( G GrpAct Y ) /\ Z C_ Y ) /\ A. x e. X A. y e. Z ( x .(+) y ) e. Z ) /\ z e. Z ) /\ ( u e. X /\ v e. X ) ) -> A. x e. X A. y e. Z ( x .(+) y ) e. Z )
51 ovrspc2v 
 |-  ( ( ( v e. X /\ z e. Z ) /\ A. x e. X A. y e. Z ( x .(+) y ) e. Z ) -> ( v .(+) z ) e. Z )
52 44 49 50 51 syl21anc 
 |-  ( ( ( ( ( .(+) e. ( G GrpAct Y ) /\ Z C_ Y ) /\ A. x e. X A. y e. Z ( x .(+) y ) e. Z ) /\ z e. Z ) /\ ( u e. X /\ v e. X ) ) -> ( v .(+) z ) e. Z )
53 ovres 
 |-  ( ( u e. X /\ ( v .(+) z ) e. Z ) -> ( u ( .(+) |` ( X X. Z ) ) ( v .(+) z ) ) = ( u .(+) ( v .(+) z ) ) )
54 43 52 53 syl2anc 
 |-  ( ( ( ( ( .(+) e. ( G GrpAct Y ) /\ Z C_ Y ) /\ A. x e. X A. y e. Z ( x .(+) y ) e. Z ) /\ z e. Z ) /\ ( u e. X /\ v e. X ) ) -> ( u ( .(+) |` ( X X. Z ) ) ( v .(+) z ) ) = ( u .(+) ( v .(+) z ) ) )
55 48 54 eqtr4d 
 |-  ( ( ( ( ( .(+) e. ( G GrpAct Y ) /\ Z C_ Y ) /\ A. x e. X A. y e. Z ( x .(+) y ) e. Z ) /\ z e. Z ) /\ ( u e. X /\ v e. X ) ) -> ( ( u ( +g ` G ) v ) .(+) z ) = ( u ( .(+) |` ( X X. Z ) ) ( v .(+) z ) ) )
56 10 ad2antrr 
 |-  ( ( ( ( ( .(+) e. ( G GrpAct Y ) /\ Z C_ Y ) /\ A. x e. X A. y e. Z ( x .(+) y ) e. Z ) /\ z e. Z ) /\ ( u e. X /\ v e. X ) ) -> G e. Grp )
57 1 46 grpcl 
 |-  ( ( G e. Grp /\ u e. X /\ v e. X ) -> ( u ( +g ` G ) v ) e. X )
58 56 43 44 57 syl3anc 
 |-  ( ( ( ( ( .(+) e. ( G GrpAct Y ) /\ Z C_ Y ) /\ A. x e. X A. y e. Z ( x .(+) y ) e. Z ) /\ z e. Z ) /\ ( u e. X /\ v e. X ) ) -> ( u ( +g ` G ) v ) e. X )
59 ovres 
 |-  ( ( ( u ( +g ` G ) v ) e. X /\ z e. Z ) -> ( ( u ( +g ` G ) v ) ( .(+) |` ( X X. Z ) ) z ) = ( ( u ( +g ` G ) v ) .(+) z ) )
60 58 49 59 syl2anc 
 |-  ( ( ( ( ( .(+) e. ( G GrpAct Y ) /\ Z C_ Y ) /\ A. x e. X A. y e. Z ( x .(+) y ) e. Z ) /\ z e. Z ) /\ ( u e. X /\ v e. X ) ) -> ( ( u ( +g ` G ) v ) ( .(+) |` ( X X. Z ) ) z ) = ( ( u ( +g ` G ) v ) .(+) z ) )
61 ovres 
 |-  ( ( v e. X /\ z e. Z ) -> ( v ( .(+) |` ( X X. Z ) ) z ) = ( v .(+) z ) )
62 44 49 61 syl2anc 
 |-  ( ( ( ( ( .(+) e. ( G GrpAct Y ) /\ Z C_ Y ) /\ A. x e. X A. y e. Z ( x .(+) y ) e. Z ) /\ z e. Z ) /\ ( u e. X /\ v e. X ) ) -> ( v ( .(+) |` ( X X. Z ) ) z ) = ( v .(+) z ) )
63 62 oveq2d 
 |-  ( ( ( ( ( .(+) e. ( G GrpAct Y ) /\ Z C_ Y ) /\ A. x e. X A. y e. Z ( x .(+) y ) e. Z ) /\ z e. Z ) /\ ( u e. X /\ v e. X ) ) -> ( u ( .(+) |` ( X X. Z ) ) ( v ( .(+) |` ( X X. Z ) ) z ) ) = ( u ( .(+) |` ( X X. Z ) ) ( v .(+) z ) ) )
64 55 60 63 3eqtr4d 
 |-  ( ( ( ( ( .(+) e. ( G GrpAct Y ) /\ Z C_ Y ) /\ A. x e. X A. y e. Z ( x .(+) y ) e. Z ) /\ z e. Z ) /\ ( u e. X /\ v e. X ) ) -> ( ( u ( +g ` G ) v ) ( .(+) |` ( X X. Z ) ) z ) = ( u ( .(+) |` ( X X. Z ) ) ( v ( .(+) |` ( X X. Z ) ) z ) ) )
65 64 ralrimivva 
 |-  ( ( ( ( .(+) e. ( G GrpAct Y ) /\ Z C_ Y ) /\ A. x e. X A. y e. Z ( x .(+) y ) e. Z ) /\ z e. Z ) -> A. u e. X A. v e. X ( ( u ( +g ` G ) v ) ( .(+) |` ( X X. Z ) ) z ) = ( u ( .(+) |` ( X X. Z ) ) ( v ( .(+) |` ( X X. Z ) ) z ) ) )
66 41 65 jca 
 |-  ( ( ( ( .(+) e. ( G GrpAct Y ) /\ Z C_ Y ) /\ A. x e. X A. y e. Z ( x .(+) y ) e. Z ) /\ z e. Z ) -> ( ( ( 0g ` G ) ( .(+) |` ( X X. Z ) ) z ) = z /\ A. u e. X A. v e. X ( ( u ( +g ` G ) v ) ( .(+) |` ( X X. Z ) ) z ) = ( u ( .(+) |` ( X X. Z ) ) ( v ( .(+) |` ( X X. Z ) ) z ) ) ) )
67 66 ralrimiva 
 |-  ( ( ( .(+) e. ( G GrpAct Y ) /\ Z C_ Y ) /\ A. x e. X A. y e. Z ( x .(+) y ) e. Z ) -> A. z e. Z ( ( ( 0g ` G ) ( .(+) |` ( X X. Z ) ) z ) = z /\ A. u e. X A. v e. X ( ( u ( +g ` G ) v ) ( .(+) |` ( X X. Z ) ) z ) = ( u ( .(+) |` ( X X. Z ) ) ( v ( .(+) |` ( X X. Z ) ) z ) ) ) )
68 31 67 jca 
 |-  ( ( ( .(+) e. ( G GrpAct Y ) /\ Z C_ Y ) /\ A. x e. X A. y e. Z ( x .(+) y ) e. Z ) -> ( ( .(+) |` ( X X. Z ) ) : ( X X. Z ) --> Z /\ A. z e. Z ( ( ( 0g ` G ) ( .(+) |` ( X X. Z ) ) z ) = z /\ A. u e. X A. v e. X ( ( u ( +g ` G ) v ) ( .(+) |` ( X X. Z ) ) z ) = ( u ( .(+) |` ( X X. Z ) ) ( v ( .(+) |` ( X X. Z ) ) z ) ) ) ) )
69 1 46 32 isga 
 |-  ( ( .(+) |` ( X X. Z ) ) e. ( G GrpAct Z ) <-> ( ( G e. Grp /\ Z e. _V ) /\ ( ( .(+) |` ( X X. Z ) ) : ( X X. Z ) --> Z /\ A. z e. Z ( ( ( 0g ` G ) ( .(+) |` ( X X. Z ) ) z ) = z /\ A. u e. X A. v e. X ( ( u ( +g ` G ) v ) ( .(+) |` ( X X. Z ) ) z ) = ( u ( .(+) |` ( X X. Z ) ) ( v ( .(+) |` ( X X. Z ) ) z ) ) ) ) ) )
70 16 68 69 sylanbrc 
 |-  ( ( ( .(+) e. ( G GrpAct Y ) /\ Z C_ Y ) /\ A. x e. X A. y e. Z ( x .(+) y ) e. Z ) -> ( .(+) |` ( X X. Z ) ) e. ( G GrpAct Z ) )
71 8 70 impbida 
 |-  ( ( .(+) e. ( G GrpAct Y ) /\ Z C_ Y ) -> ( ( .(+) |` ( X X. Z ) ) e. ( G GrpAct Z ) <-> A. x e. X A. y e. Z ( x .(+) y ) e. Z ) )