added missing quantifier
authorblanchet
Tue, 13 Dec 2011 14:55:42 +0100
changeset 45830 45a5b6edd4f7
parent 45829 0b19934792d2
child 45831 8f8fce7bd32b
added missing quantifier
src/HOL/Tools/ATP/atp_translate.ML
--- a/src/HOL/Tools/ATP/atp_translate.ML	Tue Dec 13 14:55:42 2011 +0100
+++ b/src/HOL/Tools/ATP/atp_translate.ML	Tue Dec 13 14:55:42 2011 +0100
@@ -1905,7 +1905,8 @@
              AConn (AImplies,
                     [type_class_formula type_enc subclass ty_arg,
                      type_class_formula type_enc superclass ty_arg])
-             |> close_formula_universally,
+             |> mk_aquant AForall
+                          [(tvar_a_name, atype_of_type_vars type_enc)],
              isabelle_info format introN, NONE)
   end