Commit 53fe9f40 authored by Jacques-Henri Jourdan's avatar Jacques-Henri Jourdan

Correct stupid bug about interpretation scopes.

parent 49142779
Pipeline #3567 passed with stage
in 10 minutes and 31 seconds
......@@ -22,7 +22,9 @@ Definition list_setincl `(R : relation A) (al bl : list A) :=
a, a al b, b bl R a b.
Definition list_setequiv `(R : relation A) (al bl : list A) :=
list_setincl R al bl list_setincl R bl al.
(* list_agrees is carefully written such that, when applied to a singleton, it is convertible to True. This makes working with agreement much more pleasant. *)
(* list_agrees is carefully written such that, when applied to a
singleton, it is convertible to True. This makes working with
agreement much more pleasant. *)
Definition list_agrees `(R : relation A) (al : list A) :=
match al with
| [] => True
......
......@@ -15,7 +15,7 @@ Structure language := Language {
Delimit Scope expr_scope with E.
Delimit Scope val_scope with V.
Bind Scope expr_scope with expr.
Bind Scope expr_scope with val.
Bind Scope val_scope with val.
Arguments of_val {_} _.
Arguments to_val {_} _.
Arguments prim_step {_} _ _ _ _ _.
......
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