Mercurial Mercurial > repos > isabelle / diff
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
src/HOL/Tools/record.ML
changeset 81954 6f2bcdfa9a19
parent 81507 08574da77b4a
child 82630 2bb4a8d0111d 
--- a/src/HOL/Tools/record.ML	Wed Jan 22 21:35:05 2025 +0100
+++ b/src/HOL/Tools/record.ML	Wed Jan 22 22:22:19 2025 +0100
@@ -1504,7 +1504,7 @@
     val (x, ca) =
       (case rev (drop (length params) ys) of
         [] => (head_of (fst (HOLogic.dest_eq (HOLogic.dest_Trueprop
-          (hd (rev (Logic.strip_assums_hyp (hd (Thm.prems_of rule')))))))), true)
+          (hd (rev (Logic.strip_assums_hyp (hd (Thm.take_prems_of 1 rule')))))))), true)
       | [x] => (head_of x, false));
     val rule'' =
       infer_instantiate ctxt
isabelle