%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 Data.String
|
||||||
import public Text.Lexer
|
import public Text.Lexer
|
||||||
|
|
||||||
|
%default total
|
||||||
|
|
||||||
|
|
||||||
public export
|
public export
|
||||||
record Error where
|
record Error where
|
||||||
|
|
|
@ -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
|
||||||
|
|
|
@ -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
|
||||||
|
|
|
@ -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
|
||||||
|
|
|
@ -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
|
||||||
|
|
|
@ -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}
|
||||||
|
|
|
@ -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,
|
||||||
|
|
|
@ -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
|
||||||
|
|
Loading…
Reference in a new issue