%default total

src/Quox/Lexer.idr

@@ -5,6 +5,8 @@ import Quox.Error
 import Data.String
 import public Text.Lexer
 
+%default total
+
 
 public export
 record Error where

src/Quox/NatExtra.idr

@@ -2,6 +2,8 @@ module Quox.NatExtra
 
 import public Data.Nat
 
+%default total
+
 
 public export
 data LTE' : Nat -> Nat -> Type where

src/Quox/OPE.idr

@@ -6,6 +6,8 @@ import Quox.NatExtra
 
 import Data.Nat
 
+%default total
+
 
 public export
 data OPE : Nat -> Nat -> Type where

src/Quox/Reduce.idr

@@ -2,6 +2,8 @@ module Quox.Reduce
 
 import public Quox.Syntax
 
+%default total
+
 
 public export
 data IsRedexT : Term d n -> Type where

src/Quox/Syntax/Qty.idr

@@ -4,6 +4,8 @@ import Quox.Pretty
 
 import Data.Fin
 
+%default total
+
 
 public export
 data Qty = Zero | One | Any

src/Quox/Syntax/Term/Pretty.idr

@@ -7,6 +7,7 @@ import Quox.Pretty
 
 import Data.Vect
 
+%default total
 
 
 parameters {auto _ : Pretty.HasEnv m}

src/Quox/Syntax/Term/Reduce.idr

@@ -3,6 +3,8 @@ module Quox.Syntax.Term.Reduce
 import Quox.Syntax.Term.Base
 import Quox.Syntax.Term.Subst
 
+%default total
+
 
 mutual
   ||| true if a term has a closure or dimension closure at the top level,

src/Quox/Syntax/Term/Subst.idr

@@ -2,6 +2,8 @@ module Quox.Syntax.Term.Subst
 
 import Quox.Syntax.Term.Base
 
+%default total
+
 
 export FromVar (Elim d) where fromVar = B
 export FromVar (Term d) where fromVar = E . fromVar