%default total
This commit is contained in:
parent
9ae0e36a65
commit
ba3612d836
8 changed files with 15 additions and 0 deletions
|
@ -5,6 +5,8 @@ import Quox.Error
|
|||
import Data.String
|
||||
import public Text.Lexer
|
||||
|
||||
%default total
|
||||
|
||||
|
||||
public export
|
||||
record Error where
|
||||
|
|
|
@ -2,6 +2,8 @@ module Quox.NatExtra
|
|||
|
||||
import public Data.Nat
|
||||
|
||||
%default total
|
||||
|
||||
|
||||
public export
|
||||
data LTE' : Nat -> Nat -> Type where
|
||||
|
|
|
@ -6,6 +6,8 @@ import Quox.NatExtra
|
|||
|
||||
import Data.Nat
|
||||
|
||||
%default total
|
||||
|
||||
|
||||
public export
|
||||
data OPE : Nat -> Nat -> Type where
|
||||
|
|
|
@ -2,6 +2,8 @@ module Quox.Reduce
|
|||
|
||||
import public Quox.Syntax
|
||||
|
||||
%default total
|
||||
|
||||
|
||||
public export
|
||||
data IsRedexT : Term d n -> Type where
|
||||
|
|
|
@ -4,6 +4,8 @@ import Quox.Pretty
|
|||
|
||||
import Data.Fin
|
||||
|
||||
%default total
|
||||
|
||||
|
||||
public export
|
||||
data Qty = Zero | One | Any
|
||||
|
|
|
@ -7,6 +7,7 @@ import Quox.Pretty
|
|||
|
||||
import Data.Vect
|
||||
|
||||
%default total
|
||||
|
||||
|
||||
parameters {auto _ : Pretty.HasEnv m}
|
||||
|
|
|
@ -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,
|
||||
|
|
|
@ -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
|
||||
|
|
Loading…
Reference in a new issue