<m:csymbol>letin</m:csymbol>
<!-- <xsl:for-each select="*[boolean(key('typeid',@id))]"> -->
<!-- first process all subproofs (let-in) -->
- <xsl:for-each select="*[@id = (//InnerTypes/TYPE/@of)]">
+ <xsl:for-each select="*[@sort='Prop' and (name(.)='LAMBDA' or name(.)='LETIN' or name(.)='APPLY' or name(.)='MUTCASE' or name(.)='FIX' or name(.)='COFIX')]">
<m:apply>
<m:csymbol>let</m:csymbol>
<m:ci><xsl:call-template name="insert_subscript"><xsl:with-param name="node_value"><xsl:value-of select="concat('h',position())"/></xsl:with-param></xsl:call-template></m:ci>