rhi/quox
rhi/quox
1
0
Fork 0
Code Issues 15 Pull requests 1 Releases Wiki Activity

fromInteger for universe

Browse source
This commit is contained in:
rhiannon morris 2022-05-08 20:02:21 +02:00
parent 41056559f2
commit 756bc5b9f3
1 changed files with 4 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lib/Quox/Syntax/Universe.idr
View file

@ -21,3 +21,7 @@ export
PrettyHL Universe where PrettyHL Universe where
prettyM UAny = pure $ hl Delim "_" prettyM UAny = pure $ hl Delim "_"
prettyM (U l) = pure $ hl Free $ pretty l prettyM (U l) = pure $ hl Free $ pretty l
export %inline
fromInteger : (x : Integer) -> (0 _ : So (x >= 0)) => Universe
fromInteger x = U $ fromInteger x