| changeset 48130 | defbcdc60fd6 |
| parent 47946 | 33afcfad3f8d |
| child 48131 | 1016664b8feb |
--- a/src/HOL/Tools/Metis/metis_generate.ML Tue Jun 26 11:14:39 2012 +0200 +++ b/src/HOL/Tools/Metis/metis_generate.ML Tue Jun 26 11:14:39 2012 +0200 @@ -211,7 +211,7 @@ fun prepare_metis_problem ctxt type_enc lam_trans conj_clauses fact_clauses = let val (conj_clauses, fact_clauses) = - if polymorphism_of_type_enc type_enc = Polymorphic then + if polymorphism_of_type_enc type_enc = Raw_Polymorphic then (conj_clauses, fact_clauses) else conj_clauses @ fact_clauses