34 lines
779 B
Idris
34 lines
779 B
Idris
module Quox.Syntax.Universe
|
|
|
|
import Quox.Pretty
|
|
|
|
import Data.Fin
|
|
import Derive.Prelude
|
|
|
|
%default total
|
|
%language ElabReflection
|
|
|
|
|
|
public export
|
|
data Universe = U Nat
|
|
%name Universe l
|
|
|
|
%runElab derive "Universe" [Eq, Ord, Show]
|
|
|
|
export
|
|
PrettyHL Universe where
|
|
prettyM (U l) = pure $ hl Free $ pretty l
|
|
|
|
export
|
|
prettyUnivSuffix : Pretty.HasEnv m => Universe -> m (Doc HL)
|
|
prettyUnivSuffix (U l) =
|
|
ifUnicode (pretty $ pack $ map sub $ unpack $ show l) (pretty l)
|
|
where
|
|
sub : Char -> Char
|
|
sub c = case c of
|
|
'0' => '₀'; '1' => '₁'; '2' => '₂'; '3' => '₃'; '4' => '₄'
|
|
'5' => '₅'; '6' => '₆'; '7' => '₇'; '8' => '₈'; '9' => '₉'; _ => c
|
|
|
|
export %inline
|
|
fromInteger : (x : Integer) -> (0 _ : So (x >= 0)) => Universe
|
|
fromInteger x = U $ fromInteger x
|