# HG changeset patch
# User wenzelm
# Date 1703073033 -3600
# Node ID 74e245625a67954ed0e9957a7eb77866b29047a7
# Parent  788921b906e1aebd241f0df22cb5dd360c25dbd1
more informative exception;

diff -r 788921b906e1 -r 74e245625a67 src/Pure/zterm.ML
--- a/src/Pure/zterm.ML	Wed Dec 20 12:50:16 2023 +0100
+++ b/src/Pure/zterm.ML	Wed Dec 20 12:50:33 2023 +0100
@@ -244,6 +244,7 @@
   val subst_term_bound: zterm -> zterm -> zterm
   val subst_proof_bound: zterm -> zproof -> zproof
   val subst_proof_boundp: zproof -> zproof -> zproof
+  exception BAD_INST of ((indexname * ztyp) * zterm) list
   val map_proof: ztyp Same.operation -> zterm Same.operation -> zproof -> zproof
   val map_proof_types: ztyp Same.operation -> zproof -> zproof
   val ztyp_of: typ -> ztyp
@@ -462,6 +463,11 @@
 
 (* map types/terms within proof *)
 
+exception BAD_INST of ((indexname * ztyp) * zterm) list
+
+fun make_inst inst =
+  ZVars.make_strict inst handle ZVars.DUP _ => raise BAD_INST inst;
+
 fun map_insts_same typ term (instT, inst) =
   let
     val changed = Unsynchronized.ref false;
@@ -491,7 +497,7 @@
       else
         ZVars.dest inst
         |> map (fn (v, t) => (the_default v (ZVars.lookup vars' v), the_default t (apply term t)))
-        |> ZVars.make_strict;
+        |> make_inst;
   in if ! changed then (instT', inst') else raise Same.SAME end;
 
 fun map_proof_same typ term =