tuned;
authorwenzelm
Thu, 18 Jul 2024 12:08:08 +0200
changeset 80584 b1b53f6a08fa
parent 80583 9a40ec7a2027
child 80585 9c6cfac291f4
tuned;
src/Pure/zterm.ML
--- a/src/Pure/zterm.ML	Thu Jul 18 11:36:09 2024 +0200
+++ b/src/Pure/zterm.ML	Thu Jul 18 12:08:08 2024 +0200
@@ -1341,9 +1341,10 @@
 
 fun unconstrainT_proof thy sorts_proof (ucontext: Logic.unconstrain_context) =
   let
+    val algebra = Sign.classes_of thy;
+
     val cache = zterm_cache thy;
     val typ_cache = typ_cache thy;
-    val algebra = Sign.classes_of thy;
 
     val typ =
       #apply (ZTypes.unsynchronized_cache