derive Eq,Ord,Show for DimEq
This commit is contained in:
parent
ab82883214
commit
5a994ac0e2
2 changed files with 3 additions and 3 deletions
|
@ -11,7 +11,9 @@ import Data.DPair
|
|||
import Data.Fun.Graph
|
||||
import Decidable.Decidable
|
||||
import Decidable.Equality
|
||||
import Derive.Prelude
|
||||
|
||||
%language ElabReflection
|
||||
%default total
|
||||
|
||||
|
||||
|
@ -24,8 +26,8 @@ public export
|
|||
data DimEq : Nat -> Type where
|
||||
ZeroIsOne : DimEq d
|
||||
C : (eqs : DimEq' d) -> DimEq d
|
||||
|
||||
%name DimEq eqs
|
||||
%runElab deriveIndexed "DimEq" [Eq, Ord, Show]
|
||||
|
||||
|
||||
public export
|
||||
|
|
|
@ -11,8 +11,6 @@ import Derive.Prelude
|
|||
|
||||
%runElab derive "Reduce.WhnfError" [Show]
|
||||
|
||||
%runElab deriveIndexed "DimEq" [Show]
|
||||
|
||||
export %hint
|
||||
showTyContext : (IsQty q, PrettyHL q, Show q) => Show (TyContext q d n)
|
||||
showTyContext = deriveShow
|
||||
|
|
Loading…
Reference in a new issue