Added the combinator constants to the constants table.
--- a/src/HOL/Tools/res_clause.ML Sat Sep 30 14:31:02 2006 +0200
+++ b/src/HOL/Tools/res_clause.ML Sat Sep 30 14:31:41 2006 +0200
@@ -118,7 +118,16 @@
("op :", "in"),
("op Un", "union"),
("op Int", "inter"),
- ("List.op @", "append")];
+ ("List.op @", "append"),
+ ("Reconstruction.fequal", "fequal"),
+ ("Reconstruction.COMBI", "COMBI"),
+ ("Reconstruction.COMBK", "COMBK"),
+ ("Reconstruction.COMBB", "COMBB"),
+ ("Reconstruction.COMBC", "COMBC"),
+ ("Reconstruction.COMBS", "COMBS"),
+ ("Reconstruction.COMBB'", "COMBB_e"),
+ ("Reconstruction.COMBC'", "COMBC_e"),
+ ("Reconstruction.COMBS'", "COMBS_e")];
val type_const_trans_table =
Symtab.make [("*", "prod"),