diff options
| author |  bertot <bertot@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2002-12-09 11:59:39 +0000 |
|---|---|---|
| committer | bertot <bertot@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2002-12-09 11:59:39 +0000 |
| commit | 940679b7a46b7a977ecb2b7816e589993823a589 (patch) | |
| tree | 4a94d9740366590dc0506fe4538547cef13a4a7c /lib | |
| parent | 33a25f335839886cc205946bdc198ebab3b386de (diff) | |
Take notations into account: numbers and the CNotation operator.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@3401 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/bignat.ml | 3 | ||||
| -rw-r--r-- | lib/bignat.mli | 1 |
2 files changed, 4 insertions, 0 deletions
diff --git a/lib/bignat.ml b/lib/bignat.ml index bac879644..348b1225b 100644 --- a/lib/bignat.ml +++ b/lib/bignat.ml @@ -111,3 +111,6 @@ let pr_bigint = function | POS n -> str (to_string n) | NEG n -> str "-" ++ str (to_string n) +let bigint_to_string = function + | POS n -> to_string n + | NEG n -> "-" ^ (to_string n);; diff --git a/lib/bignat.mli b/lib/bignat.mli index d901f556f..ca2b0fff6 100644 --- a/lib/bignat.mli +++ b/lib/bignat.mli @@ -33,4 +33,5 @@ val less_than : bignat -> bignat -> bool type bigint = POS of bignat | NEG of bignat +val bigint_to_string : bigint -> string val pr_bigint : bigint -> std_ppcmds |