{-# OPTIONS --without-K --safe #-}
module Data.Integer where
open import Data.Integer.Base public
open import Data.Integer.Properties public
using (_≟_; _≤?_; _<?_)
open import Data.Integer.Properties public
using (◃-cong; drop‿+≤+; drop‿-≤-)
renaming (◃-inverse to ◃-left-inverse)
import Data.Nat.Show as ℕ
open import Data.Sign as Sign using (Sign)
open import Data.String.Base using (String; _++_)
show : ℤ → String
show i = showSign (sign i) ++ ℕ.show ∣ i ∣
where
showSign : Sign → String
showSign Sign.- = "-"
showSign Sign.+ = ""
{-# WARNING_ON_USAGE show
"Warning: show was deprecated in v1.5.
Please use Data.Integer.Show's show instead."
#-}