From f0f44fe7815435836bc625e837e891188ae8d801 Mon Sep 17 00:00:00 2001 From: Chloe Brown Date: Mon, 22 Jan 2024 12:11:20 +0000 Subject: Fix some bug? I don't really know. I haven't read this in a long time. --- src/Term/Semantics.idr | 1 - 1 file changed, 1 deletion(-) (limited to 'src/Term/Semantics.idr') diff --git a/src/Term/Semantics.idr b/src/Term/Semantics.idr index c31a9e6..eb1c9c5 100644 --- a/src/Term/Semantics.idr +++ b/src/Term/Semantics.idr @@ -70,7 +70,6 @@ opSem (Inl ty1 ty2) = inl ty1 ty2 opSem (Inr ty1 ty2) = swap ty2 ty1 . inl ty2 ty1 opSem (Prl ty1 ty2) = prl ty1 ty2 opSem (Prr ty1 ty2) = prl ty2 ty1 . swap ty1 ty2 -opSem (Arb ty) = arb ty %inline sem' : Monad m => Term ty ctx -> m (All TypeOf ctx -> TypeOf ty) -- cgit v1.2.3