Mercurial Mercurial > repos > isabelle / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | gz | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
tuned signature;
authorwenzelm
Wed, 01 Jun 2016 10:59:57 +0200
changeset 63203 c1b15830549e
parent 63202 e77481be5c97
child 63204 921a5be54132
tuned signature;
src/Pure/General/rat.ML file | annotate | diff | comparison | revisions 
--- a/src/Pure/General/rat.ML	Wed Jun 01 10:55:10 2016 +0200
+++ b/src/Pure/General/rat.ML	Wed Jun 01 10:59:57 2016 +0200
@@ -25,8 +25,8 @@
   val mult: rat -> rat -> rat
   val neg: rat -> rat
   val inv: rat -> rat
-  val rounddown: rat -> rat
-  val roundup: rat -> rat
+  val round_down: rat -> rat
+  val round_up: rat -> rat
 end;
 
 structure Rat : RAT =
@@ -91,9 +91,9 @@
   | EQUAL => raise DIVZERO
   | GREATER => Rat (q, p));
 
-fun rounddown (Rat (p, q)) = Rat (p div q, 1);
+fun round_down (Rat (p, q)) = Rat (p div q, 1);
 
-fun roundup (Rat (p, q)) =
+fun round_up (Rat (p, q)) =
   (case Integer.div_mod p q of
     (m, 0) => Rat (m, 1)
   | (m, _) => Rat (m + 1, 1));
isabelle