From f2490f5ca35b528c7332791c6932045eb9d5438b Mon Sep 17 00:00:00 2001 From: Greg Brown Date: Tue, 7 Jan 2025 13:50:13 +0000 Subject: Add quotation to help metaprogramming. --- src/Inky/Term/Recompute.idr | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/Inky/Term/Recompute.idr') diff --git a/src/Inky/Term/Recompute.idr b/src/Inky/Term/Recompute.idr index dd0e809..71ba6b9 100644 --- a/src/Inky/Term/Recompute.idr +++ b/src/Inky/Term/Recompute.idr @@ -76,7 +76,7 @@ dropAllWellFormed (wfs :< wf) (There i) = dropAllWellFormed wfs i :< wf export synthsWf : - {e : Term mode m tyCtx tmCtx} -> + {e : Term NoSugar m tyCtx tmCtx} -> {tyEnv : All (Assoc0 $ Ty [<]) tyCtx} -> {tmEnv : All (Assoc0 $ Ty [<]) tmCtx} -> DAll WellFormed tyEnv -> DAll WellFormed tmEnv -> @@ -85,7 +85,7 @@ checkSpineWf : CheckSpine tyEnv tmEnv a ts b -> WellFormed a -> WellFormed b allSynthsWf : - {es : Context (Term mode m tyCtx tmCtx)} -> + {es : Context (Term NoSugar m tyCtx tmCtx)} -> {tyEnv : All (Assoc0 $ Ty [<]) tyCtx} -> {tmEnv : All (Assoc0 $ Ty [<]) tmCtx} -> DAll WellFormed tyEnv -> DAll WellFormed tmEnv -> -- cgit v1.2.3