Commit 7c8f9427 authored by Robbert Krebbers's avatar Robbert Krebbers
Browse files

Fix pretty printing of big op notations.

parent 4d94262b
...@@ -18,12 +18,12 @@ Definition uPred_big_sepM {M} `{FinMapToList K A MA} ...@@ -18,12 +18,12 @@ Definition uPred_big_sepM {M} `{FinMapToList K A MA}
(m : MA) (P : K A uPred M) : uPred M := (m : MA) (P : K A uPred M) : uPred M :=
uPred_big_sep (curry P <$> map_to_list m). uPred_big_sep (curry P <$> map_to_list m).
Notation "'Π★{map' m } P" := (uPred_big_sepM m P) Notation "'Π★{map' m } P" := (uPred_big_sepM m P)
(at level 20, m at level 10, format "Π★{map m } P") : uPred_scope. (at level 20, m at level 10, format "Π★{map m } P") : uPred_scope.
Definition uPred_big_sepS {M} `{Elements A C} Definition uPred_big_sepS {M} `{Elements A C}
(X : C) (P : A uPred M) : uPred M := uPred_big_sep (P <$> elements X). (X : C) (P : A uPred M) : uPred M := uPred_big_sep (P <$> elements X).
Notation "'Π★{set' X } P" := (uPred_big_sepS X P) Notation "'Π★{set' X } P" := (uPred_big_sepS X P)
(at level 20, X at level 10, format "Π★{set X } P") : uPred_scope. (at level 20, X at level 10, format "Π★{set X } P") : uPred_scope.
(** * Always stability for lists *) (** * Always stability for lists *)
Class AlwaysStableL {M} (Ps : list (uPred M)) := Class AlwaysStableL {M} (Ps : list (uPred M)) :=
......
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