File tree Expand file tree Collapse file tree 3 files changed +10
-0
lines changed Expand file tree Collapse file tree 3 files changed +10
-0
lines changed Original file line number Diff line number Diff line change @@ -60,6 +60,11 @@ finToNat : Fin n -> Nat
60
60
finToNat FZ = Z
61
61
finToNat (FS k) = S $ finToNat k
62
62
63
+
64
+ export
65
+ Show (Fin n) where
66
+ show = show . finToNat
67
+
63
68
||| `finToNat` is injective
64
69
export
65
70
finToNatInjective : (fm : Fin k) -> (fn : Fin k) -> (finToNat fm) = (finToNat fn) -> fm = fn
Original file line number Diff line number Diff line change @@ -179,6 +179,10 @@ Show Bool where
179
179
show True = " True"
180
180
show False = " False"
181
181
182
+ export
183
+ Show Void where
184
+ show v impossible
185
+
182
186
export
183
187
Show () where
184
188
show () = " ()"
Original file line number Diff line number Diff line change @@ -51,6 +51,7 @@ Main> Prelude.Show : Type -> Type
51
51
Show String
52
52
Show Nat
53
53
Show Bool
54
+ Show Void
54
55
Show ()
55
56
(Show a, Show b) => Show (a, b)
56
57
(Show a, Show (p y)) => Show (DPair a p)
You can’t perform that action at this time.
0 commit comments