grtt -> qtt

src/Quox/Syntax/Term/Base.idr

@@ -36,7 +36,7 @@ mutual
     TYPE : (l : Universe) -> Term d n
 
     ||| function type
-    Pi  : (qtm, qty : Qty) -> (x : Name) ->
+    Pi  : (qty : Qty) -> (x : Name) ->
           (arg : Term d n) -> (res : ScopeTerm d n) -> Term d n
     ||| function term
     Lam : (x : Name) -> (body : ScopeTerm d n) -> Term d n
@@ -91,7 +91,7 @@ mutual
 
 public export %inline
 Arr : Qty -> Term d n -> Term d n -> Term d n
-Arr pi a b = Pi {qtm = pi, qty = zero, x = "_", arg = a, res = TUnused b}
+Arr pi a b = Pi {qty = pi, x = "_", arg = a, res = TUnused b}
 
 ||| same as `F` but as a term
 public export %inline

src/Quox/Syntax/Term/Pretty.idr

@@ -30,9 +30,9 @@ mutual
   PrettyHL (Term d n) where
     prettyM (TYPE l) =
       parensIfM App $ typeD <//> !(withPrec Arg $ prettyM l)
-    prettyM (Pi qtm qty x s t) =
+    prettyM (Pi qty x s t) =
       parensIfM Outer $ hang 2 $
-        !(prettyBinder [qtm, qty] x s) <++> !arrowD
+        !(prettyBinder [qty] x s) <++> !arrowD
           <//> !(under T x $ prettyM t)
     prettyM (Lam x t) =
       parensIfM Outer $

src/Quox/Syntax/Term/Reduce.idr

@@ -64,8 +64,8 @@ mutual
                     Term dfrom from -> NotCloTerm dto to
   pushSubstsTWith th ph (TYPE l) =
     ncloT $ TYPE l
-  pushSubstsTWith th ph (Pi qtm qty x a body) =
-    ncloT $ Pi qtm qty x (subs a th ph) (subs body th ph)
+  pushSubstsTWith th ph (Pi qty x a body) =
+    ncloT $ Pi qty x (subs a th ph) (subs body th ph)
   pushSubstsTWith th ph (Lam x body) =
     ncloT $ Lam x $ subs body th ph
   pushSubstsTWith th ph (E e) =
@@ -120,9 +120,9 @@ mutual
   Tighten (Term d) where
     tighten p (TYPE l) =
       pure $ TYPE l
-    tighten p (Pi qtm qty x arg res) =
-      Pi qtm qty x <$> tighten p arg
-                   <*> tighten p res
+    tighten p (Pi qty x arg res) =
+      Pi qty x <$> tighten p arg
+               <*> tighten p res
     tighten p (Lam x body) =
       Lam x <$> tighten p body
     tighten p (E e) =
@@ -160,4 +160,3 @@ weakT t = t //. shift 1
 public export %inline
 weakE : Elim d n -> Elim d (S n)
 weakE t = t //. shift 1
-