minor DFG fix
authorblanchet
Thu, 09 Feb 2012 14:42:18 +0100
changeset 46445 ef9d534e9119
parent 46444 db6d2a89a21f
child 46446 45ff234921a3
minor DFG fix
src/HOL/Tools/ATP/atp_problem.ML
--- a/src/HOL/Tools/ATP/atp_problem.ML	Thu Feb 09 14:35:27 2012 +0100
+++ b/src/HOL/Tools/ATP/atp_problem.ML	Thu Feb 09 14:42:18 2012 +0100
@@ -320,7 +320,7 @@
   | flatten_type _ =
     raise Fail "unexpected higher-order type in first-order format"
 
-val dfg_individual_type = "ii" (* cannot clash *)
+val dfg_individual_type = "iii" (* cannot clash *)
 
 fun str_for_type format ty =
   let