src/HOL/TPTP/TPTP_Parser/tptp_reconstruct_library.ML

 
 (*like strip_top_All_vars but for "Pure.all" instead of "HOL.All"*)
 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'
     end
   else (acc, (*variables are returned in FILO order*)