new structure field "add" for CombineNumerals
authorpaulson
Thu, 10 Aug 2000 11:39:53 +0200
changeset 9574 da0a964aa601
parent 9573 5cadc8146573
child 9575 af71f5f4ca6b
new structure field "add" for CombineNumerals
src/HOL/Real/RealBin.ML
--- a/src/HOL/Real/RealBin.ML	Thu Aug 10 11:33:40 2000 +0200
+++ b/src/HOL/Real/RealBin.ML	Thu Aug 10 11:39:53 2000 +0200
@@ -457,6 +457,7 @@
 
 structure CombineNumeralsData =
   struct
+  val add		= op + : int*int -> int 
   val mk_sum    	= long_mk_sum    (*to work for e.g. #2*x + #3*x *)
   val dest_sum		= dest_sum
   val mk_coeff		= mk_coeff