%default total

This commit is contained in:
rhiannon morris 2022-05-02 22:38:37 +02:00
parent 9ae0e36a65
commit ba3612d836
8 changed files with 15 additions and 0 deletions

View file

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

View file

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

View file

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

View file

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

View file

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

View file

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

View file

@ -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,

View file

@ -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