From 41d1c4a059466833325320e1d494d99af9d36cb2 Mon Sep 17 00:00:00 2001 From: Chloe Brown Date: Thu, 22 Jun 2023 13:52:03 +0100 Subject: WIP: define semantics in Idris. --- src/Encoded/Fin.idr | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) (limited to 'src/Encoded/Fin.idr') 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 -- cgit v1.2.3