rhi/quox
rhi/quox
1
0
Fork 0
Code Issues 15 Pull requests 1 Releases Wiki Activity

sop → elab-util

Browse source
This commit is contained in:
rhiannon morris 2023-03-02 19:52:32 +01:00
parent 04d3c9368a
commit fc3c2dc8ab
9 changed files with 40 additions and 31 deletions
Download patch file Download diff file Expand all files Collapse all files

16
lib/Quox/Syntax/Qty/Three.idr
View file

@ -2,7 +2,7 @@ module Quox.Syntax.Qty.Three
import Quox.Pretty
import public Quox.Syntax.Qty
import Generics.Derive
import Derive.Prelude
%default total
%language ElabReflection
@ -12,7 +12,7 @@ public export
data Three = Zero | One | Any
%name Three pi, rh
%runElab derive "Three" [Generic, Meta, Eq, Ord, DecEq, Show]
%runElab derive "Three" [Eq, Ord, Show]
export
@ -23,6 +23,18 @@ PrettyHL Three where
One => ifUnicode "𝟭" "1"
Any => ifUnicode "𝛚" "*"
public export
DecEq Three where
decEq Zero Zero = Yes Refl
decEq Zero One = No $ \case _ impossible
decEq Zero Any = No $ \case _ impossible
decEq One Zero = No $ \case _ impossible
decEq One One = Yes Refl
decEq One Any = No $ \case _ impossible
decEq Any Zero = No $ \case _ impossible
decEq Any One = No $ \case _ impossible
decEq Any Any = Yes Refl
public export
plus : Three -> Three -> Three