Mercurial Mercurial > repos > isabelle / diff
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
src/HOL/Tools/svc_funcs.ML
changeset 11707 6c45813c2db1
parent 10892 405b077433a3
child 12262 11ff5f47df6e 
--- a/src/HOL/Tools/svc_funcs.ML	Mon Oct 08 12:13:56 2001 +0200
+++ b/src/HOL/Tools/svc_funcs.ML	Mon Oct 08 12:27:19 2001 +0200
@@ -155,8 +155,7 @@
     fun lit (Const("Numeral.number_of", _) $ w) =
           (HOLogic.dest_binum w handle TERM _ => raise Match)
       | lit (Const("0", _)) = 0
-      | lit (Const("RealDef.0r", _)) = 0
-      | lit (Const("RealDef.1r", _)) = 1
+      | lit (Const("1", _)) = 1
     (*translation of a literal expression [no variables]*)
     fun litExp (Const("op +", T) $ x $ y) = 
 	  if is_numeric_op T then (litExp x) + (litExp y)
isabelle