XSLT stylesheet to extract Schematron 1.5 embedded in RELAX NG

rng2sch.xsl

<?xml version="1.0" encoding="UTF-8"?>
<xsl:stylesheet
	version="1.0"
	xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
	xmlns:s="http://www.ascc.net/xml/schematron"
	xmlns:rng="http://relaxng.org/ns/structure/1.0"
>
	<xsl:output method="xml" indent="yes" standalone="yes"/>
	<xsl:template match="/rng:grammar">
		<s:schema>
			<xsl:copy-of select=".//s:ns"/>
			<s:pattern name="schematron">
			<xsl:for-each select=".//s:rule">
				<xsl:copy-of select="."/>
			</xsl:for-each>
			</s:pattern>
		</s:schema>
	</xsl:template>
</xsl:stylesheet>