| Step | Hyp | Ref | Expression | 
						
							| 0 |  | ces1 |  |-  evalSub1 | 
						
							| 1 |  | vs |  |-  s | 
						
							| 2 |  | cvv |  |-  _V | 
						
							| 3 |  | vr |  |-  r | 
						
							| 4 |  | cbs |  |-  Base | 
						
							| 5 | 1 | cv |  |-  s | 
						
							| 6 | 5 4 | cfv |  |-  ( Base ` s ) | 
						
							| 7 | 6 | cpw |  |-  ~P ( Base ` s ) | 
						
							| 8 |  | vb |  |-  b | 
						
							| 9 |  | vx |  |-  x | 
						
							| 10 | 8 | cv |  |-  b | 
						
							| 11 |  | cmap |  |-  ^m | 
						
							| 12 |  | c1o |  |-  1o | 
						
							| 13 | 10 12 11 | co |  |-  ( b ^m 1o ) | 
						
							| 14 | 10 13 11 | co |  |-  ( b ^m ( b ^m 1o ) ) | 
						
							| 15 | 9 | cv |  |-  x | 
						
							| 16 |  | vy |  |-  y | 
						
							| 17 | 16 | cv |  |-  y | 
						
							| 18 | 17 | csn |  |-  { y } | 
						
							| 19 | 12 18 | cxp |  |-  ( 1o X. { y } ) | 
						
							| 20 | 16 10 19 | cmpt |  |-  ( y e. b |-> ( 1o X. { y } ) ) | 
						
							| 21 | 15 20 | ccom |  |-  ( x o. ( y e. b |-> ( 1o X. { y } ) ) ) | 
						
							| 22 | 9 14 21 | cmpt |  |-  ( x e. ( b ^m ( b ^m 1o ) ) |-> ( x o. ( y e. b |-> ( 1o X. { y } ) ) ) ) | 
						
							| 23 |  | ces |  |-  evalSub | 
						
							| 24 | 12 5 23 | co |  |-  ( 1o evalSub s ) | 
						
							| 25 | 3 | cv |  |-  r | 
						
							| 26 | 25 24 | cfv |  |-  ( ( 1o evalSub s ) ` r ) | 
						
							| 27 | 22 26 | ccom |  |-  ( ( x e. ( b ^m ( b ^m 1o ) ) |-> ( x o. ( y e. b |-> ( 1o X. { y } ) ) ) ) o. ( ( 1o evalSub s ) ` r ) ) | 
						
							| 28 | 8 6 27 | csb |  |-  [_ ( Base ` s ) / b ]_ ( ( x e. ( b ^m ( b ^m 1o ) ) |-> ( x o. ( y e. b |-> ( 1o X. { y } ) ) ) ) o. ( ( 1o evalSub s ) ` r ) ) | 
						
							| 29 | 1 3 2 7 28 | cmpo |  |-  ( s e. _V , r e. ~P ( Base ` s ) |-> [_ ( Base ` s ) / b ]_ ( ( x e. ( b ^m ( b ^m 1o ) ) |-> ( x o. ( y e. b |-> ( 1o X. { y } ) ) ) ) o. ( ( 1o evalSub s ) ` r ) ) ) | 
						
							| 30 | 0 29 | wceq |  |-  evalSub1 = ( s e. _V , r e. ~P ( Base ` s ) |-> [_ ( Base ` s ) / b ]_ ( ( x e. ( b ^m ( b ^m 1o ) ) |-> ( x o. ( y e. b |-> ( 1o X. { y } ) ) ) ) o. ( ( 1o evalSub s ) ` r ) ) ) |