Deletion of useless Zlog_def

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@14246 85f007b7-540e-0410-9357-904b9bb8a0f7

4 files changed, 8 insertions, 8 deletions

diff --git a/theories/Numbers/Integer/BigZ/ZMake.v b/theories/Numbers/Integer/BigZ/ZMake.v
index 0bcf22e32..cb16e1291 100644
--- a/theories/Numbers/Integer/BigZ/ZMake.v
+++ b/theories/Numbers/Integer/BigZ/ZMake.v
@@ -368,12 +368,12 @@ Module Make (N:NType) <: ZType.
   | Neg nx => zero
   end.
 
- Theorem spec_log2: forall x, to_Z (log2 x) = Zlog2 (to_Z x).
+ Theorem spec_log2: forall x, to_Z (log2 x) = Z.log2 (to_Z x).
  Proof.
   intros. destruct x as [p|p]; simpl. apply N.spec_log2.
   rewrite N.spec_0.
   destruct (Z_le_lt_eq_dec _ _ (N.spec_pos p)) as [LT|EQ].
-  rewrite Zlog2_nonpos; auto with zarith.
+  rewrite Z.log2_nonpos; auto with zarith.
   now rewrite <- EQ.
  Qed.
 
diff --git a/theories/Numbers/Integer/SpecViaZ/ZSigZAxioms.v b/theories/Numbers/Integer/SpecViaZ/ZSigZAxioms.v
index dd83b65da..f40928566 100644
--- a/theories/Numbers/Integer/SpecViaZ/ZSigZAxioms.v
+++ b/theories/Numbers/Integer/SpecViaZ/ZSigZAxioms.v
@@ -324,12 +324,12 @@ Qed.
 Lemma log2_spec : forall n, 0<n ->
  2^(log2 n) <= n /\ n < 2^(succ (log2 n)).
 Proof.
- intros n. zify. apply Zlog2_spec.
+ intros n. zify. apply Z.log2_spec.
 Qed.
 
 Lemma log2_nonpos : forall n, n<=0 -> log2 n == 0.
 Proof.
- intros n. zify. apply Zlog2_nonpos.
+ intros n. zify. apply Z.log2_nonpos.
 Qed.
 
 (** Even / Odd *)
diff --git a/theories/Numbers/Natural/BigN/NMake.v b/theories/Numbers/Natural/BigN/NMake.v
index 66b39aca9..64b8ec844 100644
--- a/theories/Numbers/Natural/BigN/NMake.v
+++ b/theories/Numbers/Natural/BigN/NMake.v
@@ -1244,7 +1244,7 @@ Module Make (W0:CyclicType) <: NType.
  apply ZnZ.spec_head0; auto with zarith.
  Qed.
 
- Lemma spec_log2 : forall x, [log2 x] = Zlog2 [x].
+ Lemma spec_log2 : forall x, [log2 x] = Z.log2 [x].
  Proof.
   intros. destruct (Z_lt_ge_dec 0 [x]).
   symmetry. apply Z.log2_unique. apply spec_pos.
diff --git a/theories/Numbers/Natural/SpecViaZ/NSigNAxioms.v b/theories/Numbers/Natural/SpecViaZ/NSigNAxioms.v
index 9bed794f2..225c0853e 100644
--- a/theories/Numbers/Natural/SpecViaZ/NSigNAxioms.v
+++ b/theories/Numbers/Natural/SpecViaZ/NSigNAxioms.v
@@ -277,13 +277,13 @@ Qed.
 Lemma log2_spec : forall n, 0<n ->
  2^(log2 n) <= n /\ n < 2^(succ (log2 n)).
 Proof.
- intros n. zify. change (Zlog2 [n]+1)%Z with (Zsucc (Zlog2 [n])).
- apply Zlog2_spec.
+ intros n. zify. change (Z.log2 [n]+1)%Z with (Z.succ (Z.log2 [n])).
+ apply Z.log2_spec.
 Qed.
 
 Lemma log2_nonpos : forall n, n<=0 -> log2 n == 0.
 Proof.
- intros n. zify. apply Zlog2_nonpos.
+ intros n. zify. apply Z.log2_nonpos.
 Qed.
 
 (** Even / Odd *)