diff options
author | mohring <mohring@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2004-03-12 10:15:44 +0000 |
---|---|---|
committer | mohring <mohring@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2004-03-12 10:15:44 +0000 |
commit | b9025b5b986e3243042bde2566490d37209d2c8c (patch) | |
tree | b438f8475125b9e540a8da7b876cf554163964c1 /theories/Reals/Rfunctions.v | |
parent | b96e5090b18696dbd12040f8505139f3fc08047b (diff) |
ajout decimal_exp pour interpreter les notations decimales
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@5464 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'theories/Reals/Rfunctions.v')
-rw-r--r-- | theories/Reals/Rfunctions.v | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/theories/Reals/Rfunctions.v b/theories/Reals/Rfunctions.v index 188699e6d..4fcde3833 100644 --- a/theories/Reals/Rfunctions.v +++ b/theories/Reals/Rfunctions.v @@ -659,6 +659,14 @@ intros n1 H'; rewrite Rinv_mult_distr; try rewrite Rinv_1; try rewrite H'; Qed. (*******************************) +(* For easy interface *) +(*******************************) +(* decimal_exp r z is defined as r 10^z *) + +Definition decimal_exp (r:R) (z:Z) : R := (r * 10 ^Z z). + + +(*******************************) (** Sum of n first naturals *) (*******************************) (*********) |