diff options
Diffstat (limited to 'src/Data/Fin')
| -rw-r--r-- | src/Data/Fin/Occurs.idr | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/Data/Fin/Occurs.idr b/src/Data/Fin/Occurs.idr index 74199d3..899e2a1 100644 --- a/src/Data/Fin/Occurs.idr +++ b/src/Data/Fin/Occurs.idr @@ -9,6 +9,7 @@ import Data.Maybe.Properties predInjective : {n : Nat} -> pred n = S k -> n = S (S k) predInjective {n = S n} prf = cong S prf +public export indexIsSuc : Fin n -> Exists (\k => n = S k) indexIsSuc FZ = Evidence _ Refl indexIsSuc (FS x) = Evidence _ Refl |