%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 Data.String
import public Text.Lexer import public Text.Lexer
%default total
public export public export
record Error where record Error where

View file

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

View file

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

View file

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

View file

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

View file

@ -7,6 +7,7 @@ import Quox.Pretty
import Data.Vect import Data.Vect
%default total
parameters {auto _ : Pretty.HasEnv m} 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.Base
import Quox.Syntax.Term.Subst import Quox.Syntax.Term.Subst
%default total
mutual mutual
||| true if a term has a closure or dimension closure at the top level, ||| 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 import Quox.Syntax.Term.Base
%default total
export FromVar (Elim d) where fromVar = B export FromVar (Elim d) where fromVar = B
export FromVar (Term d) where fromVar = E . fromVar export FromVar (Term d) where fromVar = E . fromVar