diff options
author | Yann Herklotz <git@yannherklotz.com> | 2021-10-12 13:38:38 +0100 |
---|---|---|
committer | Yann Herklotz <git@yannherklotz.com> | 2021-10-12 13:38:38 +0100 |
commit | b4e70337d1c0d1130ec9c98e7fe6e52dbfee46a5 (patch) | |
tree | 2446ae118e6e1cfd750e9926925bcce1e69f9255 /src/common/Monad.v | |
parent | 06b24257359305114b868b5b78971cc4c6e30db1 (diff) | |
parent | 11c5cc2ce59fe68959fe424fc04d4e947432abcb (diff) | |
download | vericert-b4e70337d1c0d1130ec9c98e7fe6e52dbfee46a5.tar.gz vericert-b4e70337d1c0d1130ec9c98e7fe6e52dbfee46a5.zip |
Merge branch 'dev/scheduling' of git.ymhg.org:vericert into dev/scheduling
Diffstat (limited to 'src/common/Monad.v')
-rw-r--r-- | src/common/Monad.v | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/common/Monad.v b/src/common/Monad.v index 5e8385e..fcbe527 100644 --- a/src/common/Monad.v +++ b/src/common/Monad.v @@ -40,10 +40,10 @@ Module MonadExtra(M : Monad). Notation "'do' X <- A ; B" := (bind A (fun X => B)) - (at level 200, X ident, A at level 100, B at level 200). + (at level 200, X name, A at level 100, B at level 200). Notation "'do' ( X , Y ) <- A ; B" := (bind2 A (fun X Y => B)) - (at level 200, X ident, Y ident, A at level 100, B at level 200). + (at level 200, X name, Y name, A at level 100, B at level 200). End MonadNotation. Import MonadNotation. |