# HG changeset patch
# User wenzelm
# Date 1701896594 -3600
# Node ID 3f532c76d0ad0c738271469097aff8f1ab89e1c0
# Parent  b3a6a8ec27efa5d5681372f19f0ae41c8398acff
tuned structure;

diff -r b3a6a8ec27ef -r 3f532c76d0ad src/Pure/zterm.ML
--- a/src/Pure/zterm.ML	Wed Dec 06 21:58:02 2023 +0100
+++ b/src/Pure/zterm.ML	Wed Dec 06 22:03:14 2023 +0100
@@ -304,15 +304,6 @@
 fun map_proof_types_same typ =
   map_proof_same typ (subst_term_same typ Same.same);
 
-fun map_const_proof (f, g) prf =
-  (case prf of
-    ZConstP (a, A, instT, inst) =>
-      let
-        val instT' = ZTVars.map (fn ((x, _), _) => fn y => the_default y (try f x)) instT;
-        val inst' = ZVars.map (fn ((x, _), _) => fn y => the_default y (try g x)) inst;
-      in ZConstP (a, A, instT', inst') end
-  | _ => prf);
-
 
 (* convert ztyp / zterm vs. regular typ / term *)
 
@@ -388,7 +379,7 @@
 val todo_proof = dummy_proof;
 
 
-(* basic logic *)
+(* constants *)
 
 fun const_proof thy a A =
   let
@@ -403,8 +394,23 @@
         | _ => tab)));
   in ZConstP (a, t, instT, inst) end;
 
-fun axiom_proof thy name = const_proof thy (ZAxiom name);
-fun oracle_proof thy name = const_proof thy (ZOracle name);
+fun map_const_proof (f, g) prf =
+  (case prf of
+    ZConstP (a, A, instT, inst) =>
+      let
+        val instT' = ZTVars.map (fn ((x, _), _) => fn y => the_default y (try f x)) instT;
+        val inst' = ZVars.map (fn ((x, _), _) => fn y => the_default y (try g x)) inst;
+      in ZConstP (a, A, instT', inst') end
+  | _ => prf);
+
+
+(* basic logic *)
+
+fun axiom_proof thy name =
+  const_proof thy (ZAxiom name);
+
+fun oracle_proof thy name =
+  const_proof thy (ZOracle name);
 
 fun assume_proof thy A =
   ZHyp (zterm_of thy A);