# HG changeset patch
# User wenzelm
# Date 1464771597 -7200
# Node ID c1b15830549e374787fc4ded5f7e7a59f9e8f080
# Parent  e77481be5c974a1caa0311bc6929e2c8098b6a8a
tuned signature;

diff -r e77481be5c97 -r c1b15830549e src/Pure/General/rat.ML
--- 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));