author | wenzelm |
Thu, 18 Jul 2024 12:08:08 +0200 | |
changeset 80584 | b1b53f6a08fa |
parent 80583 | 9a40ec7a2027 |
child 80585 | 9c6cfac291f4 |
src/Pure/zterm.ML | file | annotate | diff | comparison | revisions |
--- 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