Commit 8281c8ed authored by Robbert Krebbers's avatar Robbert Krebbers

Oops.

parent 857a0937
Pipeline #2978 passed with stage
in 9 minutes and 50 seconds
...@@ -86,9 +86,9 @@ Notation "e1 ;; e2" := (LamV BAnon e2%E e1%E) ...@@ -86,9 +86,9 @@ Notation "e1 ;; e2" := (LamV BAnon e2%E e1%E)
(* Shortcircuit Boolean connectives *) (* Shortcircuit Boolean connectives *)
Notation "e1 && e2" := Notation "e1 && e2" :=
(If e1%E e2%E (Lit (LitBool false))) (parsing only) : expr_scope. (If e1%E e2%E (Lit (LitBool false))) (only parsing) : expr_scope.
Notation "e1 || e2" := Notation "e1 || e2" :=
(If e1%E (Lit (LitBool true)) e2%E) (parsing only): expr_scope. (If e1%E (Lit (LitBool true)) e2%E) (only parsing) : expr_scope.
(** Notations for option *) (** Notations for option *)
Notation NONE := (InjL #()). Notation NONE := (InjL #()).
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment