derive Eq,Ord,Show for DimEq

This commit is contained in:
rhiannon morris 2023-03-25 20:49:14 +01:00
parent ab82883214
commit 5a994ac0e2
2 changed files with 3 additions and 3 deletions

View file

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

View file

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