diff options
author | letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2011-06-28 23:30:21 +0000 |
---|---|---|
committer | letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2011-06-28 23:30:21 +0000 |
commit | 00353bc0b970605ae092af594417a51a0cdf903f (patch) | |
tree | 24187302e7bc000e784af8e745d6da9d525f7e52 /theories/Numbers/Integer | |
parent | a0b31c88aa2bcd50524cbc48d16eb78c62da3445 (diff) |
Deletion of useless Zlog_def
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@14246 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'theories/Numbers/Integer')
-rw-r--r-- | theories/Numbers/Integer/BigZ/ZMake.v | 4 | ||||
-rw-r--r-- | theories/Numbers/Integer/SpecViaZ/ZSigZAxioms.v | 4 |
2 files changed, 4 insertions, 4 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 *) |