(**************************************************************)
(* the intervals ]2^n,2^(n+1)[ are pairwise disjoint *)
(*****************************************************)

(* Specifications: *)
Lemma log2_unicity :
forall n p z : nat,
two_power n < z ->
z < two_power (S n) -> two_power p < z -> z < two_power (S p) -> n = p.