Skip to content
Snippets Groups Projects
Commit 21bab4f0 authored by Robbert Krebbers's avatar Robbert Krebbers
Browse files

Fix proof mode notations to work around https://github.com/coq/coq/pull/19049

parent 22b00293
Branches
No related tags found
No related merge requests found
......@@ -18,7 +18,7 @@ Notation "Γ '_' : P" := (Esnoc Γ (IAnon _) P%I)
Notation "Γ '--------------------------------------' □ Δ '--------------------------------------' ∗ Q" :=
(envs_entails (Envs Γ Δ _) Q%I)
(at level 1, Q at level 200, left associativity,
(at level 1, Δ at level 200, Q at level 200, left associativity,
format "'[' Γ '--------------------------------------' □ '//' Δ '--------------------------------------' ∗ '//' Q ']'", only printing) :
stdpp_scope.
Notation "Δ '--------------------------------------' ∗ Q" :=
......@@ -28,6 +28,6 @@ Notation "Δ '--------------------------------------' ∗ Q" :=
Notation "Γ '--------------------------------------' □ Q" :=
(envs_entails (Envs Γ Enil _) Q%I)
(at level 1, Q at level 200, left associativity,
format "'[' Γ '--------------------------------------' □ '//' Q ']'", only printing) : stdpp_scope.
format "'[' Γ '--------------------------------------' □ '//' Q ']'", only printing) : stdpp_scope.
Notation "'--------------------------------------' ∗ Q" := (envs_entails (Envs Enil Enil _) Q%I)
(at level 1, Q at level 200, format "'[' '--------------------------------------' ∗ '//' Q ']'", only printing) : stdpp_scope.
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment