--- a/src/HOL/eqrule_HOL_data.ML Fri Jan 06 15:18:19 2006 +0100
+++ b/src/HOL/eqrule_HOL_data.ML Fri Jan 06 15:18:20 2006 +0100
@@ -1,6 +1,5 @@
(* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- *)
-(* Title: HOL/eqrule_HOL_data.ML
- Id: $Id$
+(* ID: $Id$
Author: Lucas Dixon, University of Edinburgh
lucas.dixon@ed.ac.uk
Modified: 22 July 2004
@@ -61,9 +60,4 @@
end;
-structure EqRuleData = HOL_EqRuleData;
-
-structure EQSubstTac =
- EQSubstTacFUN(structure EqRuleData = EqRuleData);
-
-
+structure EqSubst = EqSubstFun(HOL_EqRuleData);