diff --git a/theories/proofmode/notation.v b/theories/proofmode/notation.v index 57b08033b863fdee212183583cd1a7567b18a078..ae93137134872f3e7fffd8278f78d655c89b88d4 100644 --- a/theories/proofmode/notation.v +++ b/theories/proofmode/notation.v @@ -7,22 +7,22 @@ Arguments Envs _ _%proof_scope _%proof_scope. Arguments Enil {_}. Arguments Esnoc {_} _%proof_scope _%string _%uPred_scope. -Notation "​" := Enil (format "​") : proof_scope. -Notation "Γ ​ H : P" := (Esnoc Γ H P) +Notation "​" := Enil (format "​", only printing) : proof_scope. +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 '//'", only printing) : proof_scope. Notation "Γ '--------------------------------------' □ Δ '--------------------------------------' ∗ Q" := (of_envs (Envs Γ Δ) ⊢ Q%I) (at level 1, Q at level 200, left associativity, - format "Γ '--------------------------------------' □ '//' Δ '--------------------------------------' ∗ '//' Q '//'") : + format "Γ '--------------------------------------' □ '//' Δ '--------------------------------------' ∗ '//' Q '//'", only printing) : 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 '//'", only printing) : 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 '//'", only printing) : C_scope. Notation "​​ Q" := (of_envs (Envs Enil Enil) ⊢ Q%I) - (at level 1, Q at level 200, format "​​ Q") : C_scope. + (at level 1, Q at level 200, format "​​ Q", only printing) : C_scope.