changed order of facts so that 'name_tabs' has the same order everywhere (which affects unaliasing)
authorblanchet
Tue, 24 Jun 2014 08:20:00 +0200
changeset 57295 2ccd6820f74e
parent 57294 ef9d4e1ceb00
child 57296 8a98f08a0523
changed order of facts so that 'name_tabs' has the same order everywhere (which affects unaliasing)
src/HOL/TPTP/mash_export.ML
--- a/src/HOL/TPTP/mash_export.ML	Tue Jun 24 08:19:58 2014 +0200
+++ b/src/HOL/TPTP/mash_export.ML	Tue Jun 24 08:20:00 2014 +0200
@@ -254,8 +254,8 @@
         ""
 
     fun accum x (yss as ys :: _) = (x :: ys) :: yss
-    val old_factss = tl (fold accum new_facts [old_facts])
-    val lines = Par_List.map do_fact (tag_list 1 (new_facts ~~ rev old_factss))
+    val old_factss = tl (fold accum new_facts [rev old_facts])
+    val lines = Par_List.map do_fact (tag_list 1 (new_facts ~~ rev (map rev old_factss)))
   in
     File.write_list path lines
   end