diff options
author | Jason Gross <jgross@mit.edu> | 2018-05-06 23:22:59 -0400 |
---|---|---|
committer | Jason Gross <jgross@mit.edu> | 2018-05-06 23:22:59 -0400 |
commit | c7ea44aae3019bf8b02fe3dfc533fc7fb1ca071c (patch) | |
tree | ff83d269847c91f4486eaff88ca2d490b55d8e01 | |
parent | f1c751c9ed8ff130168e5af3f5b283c9ffb1e257 (diff) |
Backtrack on moving a notation to Notations.v, to fix conflict
-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"). |