src/HOL/Tools/Predicate_Compile/code_prolog.ML

     fun dest_eq s =
       (case space_explode "=" s of
         (l :: r :: []) => parse_term (unprefix " " r)
       | _ => raise Fail "unexpected equation in prolog output")
     fun parse_solution s = map dest_eq (space_explode ";" s)
-  in map parse_solution (Library.trim_split_lines sol) end
+  in map parse_solution (split_lines sol) end
 
 
 (* calling external interpreter and getting results *)
 
 fun run ctxt p (query_rel, args) vnames nsols =