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

remove zeroes on types

Browse source
This commit is contained in:
rhiannon morris 2021-09-03 16:34:57 +02:00
parent e03b4a4286
commit 45150c2a3b
5 changed files with 11 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/Quox/Name.idr
View file

@ -9,7 +9,7 @@ public export
data BaseName = data BaseName =
UN String -- user-given name UN String -- user-given name
private 0 BRepr : Type private BRepr : Type
BRepr = String BRepr = String
private %inline brepr : BaseName -> BRepr private %inline brepr : BaseName -> BRepr
@ -33,7 +33,7 @@ record Name where
mods : SnocList String mods : SnocList String
base : BaseName base : BaseName
private 0 Repr : Type private Repr : Type
Repr = (SnocList String, BRepr) Repr = (SnocList String, BRepr)
private %inline repr : Name -> Repr private %inline repr : Name -> Repr

6
src/Quox/Pretty.idr
View file

@ -26,7 +26,7 @@ data HL
| Free | Free
| Syntax | Syntax
private 0 HLRepr : Type private HLRepr : Type
HLRepr = Nat HLRepr = Nat
private %inline hlRepr : HL -> Nat private %inline hlRepr : HL -> Nat
@ -54,7 +54,7 @@ data PPrec
| SApp -- substitution application | SApp -- substitution application
| Arg | Arg
private 0 PrecRepr : Type private PrecRepr : Type
PrecRepr = Nat PrecRepr = Nat
private %inline precRepr : PPrec -> PrecRepr private %inline precRepr : PPrec -> PrecRepr
@ -109,7 +109,7 @@ record PrettyEnv where
||| surrounding precedence level ||| surrounding precedence level
prec : PPrec prec : PPrec
public export %inline 0 HasEnv : (Type -> Type) -> Type public export %inline HasEnv : (Type -> Type) -> Type
HasEnv = MonadReader PrettyEnv HasEnv = MonadReader PrettyEnv
export export

2
src/Quox/Syntax/Dim.idr
View file

@ -30,7 +30,7 @@ PrettyHL (Dim n) where
public export public export
0 DSubst : Nat -> Nat -> Type DSubst : Nat -> Nat -> Type
DSubst = Subst Dim DSubst = Subst Dim

2
src/Quox/Syntax/Subst.idr
View file

@ -38,7 +38,7 @@ interface FromVar env => CanSubst env term where
(//) : term from -> Subst env from to -> term to (//) : term from -> Subst env from to -> term to
public export public export
0 CanSubst1 : (Nat -> Type) -> Type CanSubst1 : (Nat -> Type) -> Type
CanSubst1 f = CanSubst f f CanSubst1 f = CanSubst f f

8
src/Quox/Syntax/Term.idr
View file

@ -25,8 +25,8 @@ infixl 8 :#
infixl 9 :@ infixl 9 :@
mutual mutual
public export public export
0 TSubst : Nat -> Nat -> Nat -> Type TSubst : Nat -> Nat -> Nat -> Type
TSubst d = Subst (Elim d) TSubst d = Subst (\n => Elim d n)
||| first argument `d` is dimension scope size, second `n` is term scope size ||| first argument `d` is dimension scope size, second `n` is term scope size
public export public export
@ -269,11 +269,11 @@ isCloT (E e) = isCloE e
isCloT _ = False isCloT _ = False
||| an elimination which is not a top level closure ||| an elimination which is not a top level closure
public export 0 NotCloElim : Nat -> Nat -> Type public export NotCloElim : Nat -> Nat -> Type
NotCloElim d n = Subset (Elim d n) $ So . not . isCloE NotCloElim d n = Subset (Elim d n) $ So . not . isCloE
||| a term which is not a top level closure ||| a term which is not a top level closure
public export 0 NotCloTerm : Nat -> Nat -> Type public export NotCloTerm : Nat -> Nat -> Type
NotCloTerm d n = Subset (Term d n) $ So . not . isCloT NotCloTerm d n = Subset (Term d n) $ So . not . isCloT