| Step | Hyp | Ref | Expression | 
						
							| 1 |  | salgenss.x |  |-  ( ph -> X e. V ) | 
						
							| 2 |  | salgenss.g |  |-  G = ( SalGen ` X ) | 
						
							| 3 |  | salgenss.s |  |-  ( ph -> S e. SAlg ) | 
						
							| 4 |  | salgenss.i |  |-  ( ph -> X C_ S ) | 
						
							| 5 |  | salgenss.u |  |-  ( ph -> U. S = U. X ) | 
						
							| 6 | 2 | a1i |  |-  ( ph -> G = ( SalGen ` X ) ) | 
						
							| 7 |  | salgenval |  |-  ( X e. V -> ( SalGen ` X ) = |^| { s e. SAlg | ( U. s = U. X /\ X C_ s ) } ) | 
						
							| 8 | 1 7 | syl |  |-  ( ph -> ( SalGen ` X ) = |^| { s e. SAlg | ( U. s = U. X /\ X C_ s ) } ) | 
						
							| 9 | 6 8 | eqtrd |  |-  ( ph -> G = |^| { s e. SAlg | ( U. s = U. X /\ X C_ s ) } ) | 
						
							| 10 | 5 4 | jca |  |-  ( ph -> ( U. S = U. X /\ X C_ S ) ) | 
						
							| 11 | 3 10 | jca |  |-  ( ph -> ( S e. SAlg /\ ( U. S = U. X /\ X C_ S ) ) ) | 
						
							| 12 |  | unieq |  |-  ( s = S -> U. s = U. S ) | 
						
							| 13 | 12 | eqeq1d |  |-  ( s = S -> ( U. s = U. X <-> U. S = U. X ) ) | 
						
							| 14 |  | sseq2 |  |-  ( s = S -> ( X C_ s <-> X C_ S ) ) | 
						
							| 15 | 13 14 | anbi12d |  |-  ( s = S -> ( ( U. s = U. X /\ X C_ s ) <-> ( U. S = U. X /\ X C_ S ) ) ) | 
						
							| 16 | 15 | elrab |  |-  ( S e. { s e. SAlg | ( U. s = U. X /\ X C_ s ) } <-> ( S e. SAlg /\ ( U. S = U. X /\ X C_ S ) ) ) | 
						
							| 17 | 11 16 | sylibr |  |-  ( ph -> S e. { s e. SAlg | ( U. s = U. X /\ X C_ s ) } ) | 
						
							| 18 |  | intss1 |  |-  ( S e. { s e. SAlg | ( U. s = U. X /\ X C_ s ) } -> |^| { s e. SAlg | ( U. s = U. X /\ X C_ s ) } C_ S ) | 
						
							| 19 | 17 18 | syl |  |-  ( ph -> |^| { s e. SAlg | ( U. s = U. X /\ X C_ s ) } C_ S ) | 
						
							| 20 | 9 19 | eqsstrd |  |-  ( ph -> G C_ S ) |