make SML/NJ happier
authorblanchet
Wed, 06 Jul 2011 17:19:34 +0100
changeset 43693 b46f5d2d42cc
parent 43692 264881a20f50
child 43694 93dcfcf91484
make SML/NJ happier
src/HOL/Tools/ATP/atp_translate.ML
--- a/src/HOL/Tools/ATP/atp_translate.ML	Wed Jul 06 17:19:34 2011 +0100
+++ b/src/HOL/Tools/ATP/atp_translate.ML	Wed Jul 06 17:19:34 2011 +0100
@@ -105,17 +105,15 @@
 type name = string * string
 
 (* experimental *)
-val generate_useful_info = false
+val generate_info = false
 
-fun useful_isabelle_info s =
-  if generate_useful_info then
-    SOME (ATerm ("[]", [ATerm ("isabelle_" ^ s, [])]))
-  else
-    NONE
+fun isabelle_info s =
+  if generate_info then SOME (ATerm ("[]", [ATerm ("isabelle_" ^ s, [])]))
+  else NONE
 
-val intro_info = useful_isabelle_info "intro"
-val elim_info = useful_isabelle_info "elim"
-val simp_info = useful_isabelle_info "simp"
+val introN = "intro"
+val elimN = "elim"
+val simpN = "simp"
 
 val bound_var_prefix = "B_"
 val schematic_var_prefix = "V_"
@@ -1343,7 +1341,7 @@
   in
     Formula (type_tag_idempotence_helper_name, Axiom,
              AAtom (ATerm (`I tptp_equal, [tag tagged_a, tagged_a]))
-             |> close_formula_universally, simp_info, NONE)
+             |> close_formula_universally, isabelle_info simpN, NONE)
   end
 
 fun should_specialize_helper type_enc t =
@@ -1579,9 +1577,9 @@
    |> close_formula_universally,
    NONE,
    case locality of
-     Intro => intro_info
-   | Elim => elim_info
-   | Simp => simp_info
+     Intro => isabelle_info introN
+   | Elim => isabelle_info elimN
+   | Simp => isabelle_info simpN
    | _ => NONE)
   |> Formula
 
@@ -1591,7 +1589,7 @@
     Formula (class_rel_clause_prefix ^ ascii_of name, Axiom,
              AConn (AImplies, [AAtom (ATerm (subclass, [ty_arg])),
                                AAtom (ATerm (superclass, [ty_arg]))])
-             |> close_formula_universally, intro_info, NONE)
+             |> close_formula_universally, isabelle_info introN, NONE)
   end
 
 fun fo_literal_from_arity_literal (TConsLit (c, t, args)) =
@@ -1606,7 +1604,7 @@
                           o fo_literal_from_arity_literal) prem_lits)
                     (formula_from_fo_literal
                          (fo_literal_from_arity_literal concl_lits))
-           |> close_formula_universally, intro_info, NONE)
+           |> close_formula_universally, isabelle_info introN, NONE)
 
 fun formula_line_for_conjecture ctxt format nonmono_Ts type_enc
         ({name, kind, combformula, atomic_types, ...} : translated_formula) =
@@ -1739,7 +1737,7 @@
              |> n > 1 ? bound_tvars type_enc (atyps_of T)
              |> close_formula_universally
              |> maybe_negate,
-             intro_info, NONE)
+             isabelle_info introN, NONE)
   end
 
 fun formula_lines_for_lightweight_tags_sym_decl ctxt format conj_sym_kind
@@ -1776,7 +1774,7 @@
       if should_encode res_T then
         cons (Formula (ident_base ^ "_res", kind,
                        eq [tag_with res_T (cst bounds), cst bounds],
-                       simp_info, NONE))
+                       isabelle_info simpN, NONE))
       else
         I
     fun add_formula_for_arg k =
@@ -1787,7 +1785,7 @@
             cons (Formula (ident_base ^ "_arg" ^ string_of_int (k + 1), kind,
                            eq [cst (bounds1 @ tag_with arg_T bound :: bounds2),
                                cst bounds],
-                           simp_info, NONE))
+                           isabelle_info simpN, NONE))
           | _ => raise Fail "expected nonempty tail"
         else
           I