remove zeroes on types

src/Quox/Name.idr

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

src/Quox/Pretty.idr

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

src/Quox/Syntax/Dim.idr

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

src/Quox/Syntax/Subst.idr

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

src/Quox/Syntax/Term.idr

@@ -25,8 +25,8 @@ infixl 8 :#
 infixl 9 :@
 mutual
   public export
-  0 TSubst : Nat -> Nat -> Nat -> Type
-  TSubst d = Subst (Elim d)
+  TSubst : Nat -> Nat -> Nat -> Type
+  TSubst d = Subst (\n => Elim d n)
 
   ||| first argument `d` is dimension scope size, second `n` is term scope size
   public export
@@ -269,11 +269,11 @@ isCloT (E e)       = isCloE e
 isCloT _           = False
 
 ||| 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
 
 ||| 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