diff --git a/opam b/opam index 3236b964459b1256e4b808f6b9a672a325269baa..c5e115a0cc008a1fcdbc66ce5366f888b11e44b3 100644 --- a/opam +++ b/opam @@ -10,5 +10,5 @@ build: [make "-j%{jobs}%"] install: [make "install"] remove: [ "sh" "-c" "rm -rf '%{lib}%/coq/user-contrib/lrust'" ] depends: [ - "coq-iris" { (= "dev.2017-10-27.0") | (= "dev") } + "coq-iris" { (= "dev.2017-10-28.3") | (= "dev") } ] diff --git a/theories/lang/notation.v b/theories/lang/notation.v index 46f57ef61ac424a0360e85228b79a48c20a3b8ab..260661a06ab356a768615a16b17ceed31add46a5 100644 --- a/theories/lang/notation.v +++ b/theories/lang/notation.v @@ -72,13 +72,13 @@ Notation "'let:' x := e1 'in' e2" := ((Lam (@cons binder x%RustB nil) e2%E) (@cons expr e1%E nil)) (at level 102, x at level 1, e1, e2 at level 150) : expr_scope. Notation "e1 ;; e2" := (let: <> := e1 in e2)%E - (at level 100, e2 at level 150, format "e1 ;; e2") : expr_scope. + (at level 100, e2 at level 200, format "e1 ;; e2") : expr_scope. (* These are not actually values, but we want them to be pretty-printed. *) Notation "'let:' x := e1 'in' e2" := (LamV (@cons binder x%RustB nil) e2%E (@cons expr e1%E nil)) (at level 102, x at level 1, e1, e2 at level 150) : val_scope. Notation "e1 ;; e2" := (let: <> := e1 in e2)%V - (at level 100, e2 at level 150, format "e1 ;; e2") : val_scope. + (at level 100, e2 at level 200, format "e1 ;; e2") : val_scope. Notation "'letcont:' k xl := e1 'in' e2" := ((Lam (@cons binder k%RustB nil) e2%E) [Rec k%RustB xl%RustB e1%E])