diff options
-rw-r--r-- | src/Experiments/PartialEvaluationWithLetIn.v | 2 | ||||
-rw-r--r-- | src/Util/Notations.v | 1 |
2 files changed, 1 insertions, 2 deletions
diff --git a/src/Experiments/PartialEvaluationWithLetIn.v b/src/Experiments/PartialEvaluationWithLetIn.v index 0378ded63..b7e018673 100644 --- a/src/Experiments/PartialEvaluationWithLetIn.v +++ b/src/Experiments/PartialEvaluationWithLetIn.v @@ -174,7 +174,7 @@ Module expr. Notation "\ x .. y , f" := (Abs (fun x => .. (Abs (fun y => f%expr)) .. )) : expr_scope. Notation "'λ' x .. y , f" := (Abs (fun x => .. (Abs (fun y => f%expr)) .. )) : expr_scope. Notation "'expr_let' x := A 'in' b" := (LetIn A (fun x => b%expr)) : expr_scope. - Notation "'$' x" := (Var x) : expr_scope. + Notation "'$' x" := (Var x) (at level 10, format "'$' x") : expr_scope. Notation "### x" := (Ident x) : expr_scope. End Notations. End expr. diff --git a/src/Util/Notations.v b/src/Util/Notations.v index 6b0905ac2..5e126f22b 100644 --- a/src/Util/Notations.v +++ b/src/Util/Notations.v @@ -141,4 +141,3 @@ Reserved Notation "# x" (at level 0, format "# x"). Reserved Notation "## x" (at level 0, format "## x"). Reserved Notation "### x" (at level 0, format "### x"). Reserved Notation "\ x .. y , t" (at level 200, x binder, y binder, right associativity, format "\ x .. y , '//' t"). -Reserved Notation "'$' x" (at level 0, format "'$' x"). |