| Step | Hyp | Ref | Expression | 
						
							| 1 |  | oveq2 |  | 
						
							| 2 | 1 | eleq1d |  | 
						
							| 3 | 2 | imbi2d |  | 
						
							| 4 |  | oveq2 |  | 
						
							| 5 | 4 | eleq1d |  | 
						
							| 6 |  | oveq2 |  | 
						
							| 7 | 6 | eleq1d |  | 
						
							| 8 |  | oveq2 |  | 
						
							| 9 | 8 | eleq1d |  | 
						
							| 10 |  | nna0 |  | 
						
							| 11 | 10 | eleq1d |  | 
						
							| 12 | 11 | ibir |  | 
						
							| 13 |  | peano2 |  | 
						
							| 14 |  | nnasuc |  | 
						
							| 15 | 14 | eleq1d |  | 
						
							| 16 | 13 15 | imbitrrid |  | 
						
							| 17 | 16 | expcom |  | 
						
							| 18 | 5 7 9 12 17 | finds2 |  | 
						
							| 19 | 3 18 | vtoclga |  | 
						
							| 20 | 19 | impcom |  |