diff options
| author | Chloe Brown <chloe.brown.00@outlook.com> | 2023-06-22 13:52:03 +0100 |
|---|---|---|
| committer | Chloe Brown <chloe.brown.00@outlook.com> | 2023-06-22 13:52:03 +0100 |
| commit | 41d1c4a059466833325320e1d494d99af9d36cb2 (patch) | |
| tree | 95807a9b73c8b380395c25c67f2a723396c6efb2 /src/Encoded/Fin.idr | |
| parent | 0ddaf1b2c9ca66cf0ae03d2f6ad792c7885dfc32 (diff) | |
WIP: define semantics in Idris.semantics-with-proof
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 |