src/Pure/term_xml.scala

--- a/src/Pure/term_xml.scala	Fri Jun 07 15:20:01 2024 +0200
+++ b/src/Pure/term_xml.scala	Fri Jun 07 23:53:31 2024 +0200
@@ -92,7 +92,9 @@
           { case (List(a), b) => PAxm(a, list(typ)(b)) },
           { case (List(a), b) => PClass(typ(b), a) },
           { case (List(a), b) => val (c, d) = pair(term, list(typ))(b); Oracle(a, c, d) },
-          { case (List(a, b, c), d) => PThm(long_atom(a), b, c, list(typ)(d)) }))
+          { case (List(a, b, c, d), e) =>
+            PThm(long_atom(a), b, Thm_Name(c, int_atom(d)), list(typ)(e))
+          }))
       proof
     }