proposition: Theorem oneExp_Zlt : forall x y : Z, (Float 1 x < Float 1 y)%R -> (x < y)%Z.
proof: Proof. intros x y H'; case (Zle_or_lt y x); auto; intros ZH; contradict H'. apply Rle_not_lt; apply oneExp_le; auto. Qed.
imports: Reals ZArith List PeanoNat Psatz