| Step | Hyp | Ref | Expression | 
						
							| 1 |  | tsmscl.b |  | 
						
							| 2 |  | tsmscl.1 |  | 
						
							| 3 |  | tsmscl.2 |  | 
						
							| 4 |  | tsmscl.a |  | 
						
							| 5 |  | tsmscl.f |  | 
						
							| 6 |  | haustsms.j |  | 
						
							| 7 |  | haustsms.h |  | 
						
							| 8 |  | simpr |  | 
						
							| 9 | 1 2 3 4 5 6 7 | haustsms |  | 
						
							| 10 | 9 | adantr |  | 
						
							| 11 |  | eleq1 |  | 
						
							| 12 | 11 | moi2 |  | 
						
							| 13 | 12 | ancom2s |  | 
						
							| 14 | 13 | expr |  | 
						
							| 15 | 8 10 8 14 | syl21anc |  | 
						
							| 16 |  | velsn |  | 
						
							| 17 | 15 16 | imbitrrdi |  | 
						
							| 18 | 17 | ssrdv |  | 
						
							| 19 |  | snssi |  | 
						
							| 20 | 19 | adantl |  | 
						
							| 21 | 18 20 | eqssd |  | 
						
							| 22 | 21 | ex |  |