From 5321f82fb46a87ca372b10ba5729509871cc935a Mon Sep 17 00:00:00 2001 From: Yann Herklotz Date: Tue, 19 Jul 2022 08:53:57 +0200 Subject: Work on implementing abstract predicates --- src/common/Monad.v | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) (limited to 'src/common/Monad.v') diff --git a/src/common/Monad.v b/src/common/Monad.v index fcbe527..ece047c 100644 --- a/src/common/Monad.v +++ b/src/common/Monad.v @@ -18,6 +18,8 @@ From Coq Require Import Lists.List. +Declare Scope monad_scope. + Module Type Monad. Parameter mon : Type -> Type. @@ -36,17 +38,18 @@ End Monad. Module MonadExtra(M : Monad). Import M. - Module MonadNotation. + Module Import MonadNotation. Notation "'do' X <- A ; B" := (bind A (fun X => B)) - (at level 200, X name, A at level 100, B at level 200). + (at level 200, X name, A at level 100, B at level 200) : monad_scope. Notation "'do' ( X , Y ) <- A ; B" := (bind2 A (fun X Y => B)) - (at level 200, X name, Y name, A at level 100, B at level 200). + (at level 200, X name, Y name, A at level 100, B at level 200) : monad_scope. End MonadNotation. - Import MonadNotation. + + #[local] Open Scope monad_scope. Fixpoint traverselist {A B: Type} (f: A -> mon B) (l: list A) {struct l}: mon (list B) := match l with -- cgit