src/HOL/TPTP/TPTP_Parser/tptp_reconstruct_library.ML
changeset 74525 c960bfcb91db
parent 74282 c2ee8d993d6a
child 82643 f1c14af17591
--- a/src/HOL/TPTP/TPTP_Parser/tptp_reconstruct_library.ML	Fri Oct 15 17:45:47 2021 +0200
+++ b/src/HOL/TPTP/TPTP_Parser/tptp_reconstruct_library.ML	Fri Oct 15 19:25:31 2021 +0200
@@ -321,7 +321,7 @@
 fun strip_top_all_vars acc t =
   if Logic.is_all t then
     let
-      val (v, t') = Logic.dest_all t
+      val (v, t') = Logic.dest_all_global t
       (*bound instances in t' are replaced with free vars*)
     in
       strip_top_all_vars (v :: acc) t'