From 028685cef60b5d32e42a0951856e78f39165635a Mon Sep 17 00:00:00 2001 From: Greg Brown Date: Sat, 7 Jan 2023 23:42:14 +0000 Subject: Correct typing of container extensions. --- src/Obs/Typing.idr | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) (limited to 'src/Obs/Typing.idr') diff --git a/src/Obs/Typing.idr b/src/Obs/Typing.idr index e8db1db..50c4824 100644 --- a/src/Obs/Typing.idr +++ b/src/Obs/Typing.idr @@ -432,10 +432,12 @@ infer' ctx (Sem {pred = MkLambda var pred, arg}) = do } (predSort, pred) <- inferType predCtx pred - let semSort = container.inputSort ~> max container.shapeSort (container.positionSort ~> predSort) - semType <- doSem container predSort pred arg + let semType = containerSemType container predSort + sem <- doSem container predSort pred arg - pure (succ semSort ** (cast semSort, semType)) + pure ((container.inputSort ~> + succ (max container.shapeSort (container.positionSort ~> predSort))) ** + (semType, sem)) infer' ctx Bool = do info "encountered bool" -- cgit v1.2.3