src/Pure/Proof/extraction.ML
changeset 25389 3e58c7cb5a73
parent 24867 e5b55d7be9bb
child 26336 a0e2b706ce73
--- a/src/Pure/Proof/extraction.ML	Sun Nov 11 14:00:05 2007 +0100
+++ b/src/Pure/Proof/extraction.ML	Sun Nov 11 14:00:08 2007 +0100
@@ -294,7 +294,7 @@
   in
     ExtractionData.put
       {realizes_eqns = realizes_eqns, typeof_eqns = typeof_eqns, types = types,
-       realizers = fold (Symtab.update_list o prep_rlz thy) rs realizers,
+       realizers = fold (Symtab.cons_list o prep_rlz thy) rs realizers,
        defs = defs, expand = expand, prep = prep} thy
   end