diff --git a/proofmode/notation.v b/proofmode/notation.v index 85f7a804cdf00303b019d512fc6dafba17283e41..f1c6a266342d7ba950f062b43c11f4542888e435 100644 --- a/proofmode/notation.v +++ b/proofmode/notation.v @@ -7,21 +7,21 @@ Arguments Enil {_}. Arguments Esnoc {_} _%proof_scope _%string _%uPred_scope. Notation "​" := Enil (format "​") : proof_scope. -Notation "Γ ​ H : P" := (Esnoc Γ H P) +Notation "​ Γ H : P" := (Esnoc Γ H P) (at level 1, P at level 200, - left associativity, format "Γ ​ '//' H : P") : proof_scope. + left associativity, format "​ Γ H : P '//'") : proof_scope. Notation "Γ '--------------------------------------' □ Δ '--------------------------------------' ★ Q" := (of_envs (Envs Γ Δ) ⊢ Q%I) (at level 1, Q at level 200, left associativity, - format "Γ '//' '--------------------------------------' □ Δ '//' '--------------------------------------' ★ '//' Q '//'") : + format "Γ '--------------------------------------' □ '//' Δ '--------------------------------------' ★ '//' Q '//'") : C_scope. Notation "Δ '--------------------------------------' ★ Q" := (of_envs (Envs Enil Δ) ⊢ Q%I) (at level 1, Q at level 200, left associativity, - format "Δ '//' '--------------------------------------' ★ '//' Q '//'") : C_scope. + format "Δ '--------------------------------------' ★ '//' Q '//'") : C_scope. Notation "Γ '--------------------------------------' □ Q" := (of_envs (Envs Γ Enil) ⊢ Q%I) (at level 1, Q at level 200, left associativity, - format "Γ '//' '--------------------------------------' □ '//' Q '//'") : C_scope. + format "Γ '--------------------------------------' □ '//' Q '//'") : C_scope. Notation "​​ Q" := (of_envs (Envs Enil Enil) ⊢ Q%I) - (at level 1, format "​​ Q") : C_scope. + (at level 1, Q at level 200, format "​​ Q") : C_scope.