diff options
Diffstat (limited to 'src/Encoded/Fin.idr')
| -rw-r--r-- | src/Encoded/Fin.idr | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/src/Encoded/Fin.idr b/src/Encoded/Fin.idr index 901c612..fc56c50 100644 --- a/src/Encoded/Fin.idr +++ b/src/Encoded/Fin.idr @@ -8,12 +8,13 @@ import Encoded.Pair import Term.Semantics import Term.Syntax +-- Type ------------------------------------------------------------------------ + export Fin : Nat -> Ty Fin k = N -oldShow : Nat -> String -oldShow = show +-- Universal Morphisms --------------------------------------------------------- export zero : Term (Fin (S k)) ctx @@ -35,6 +36,8 @@ export induct : {ty : Ty} -> Term (Fin (S k) ~> ty ~> (Fin k * ty ~> ty) ~> ty) ctx induct = rec +-- Utilities ------------------------------------------------------------------- + export forget : Term (Fin k ~> N) ctx forget = Id |