From 8076848a732627127005b471a37ef12e342da0d3 Mon Sep 17 00:00:00 2001
From: Robbert Krebbers <mail@robbertkrebbers.nl>
Date: Sat, 27 Feb 2016 11:53:19 +0100
Subject: [PATCH] Notation for Case that is consistent with the constructor
names.
---
heap_lang/notation.v | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/heap_lang/notation.v b/heap_lang/notation.v
index ebdb983b9..1ec0f937d 100644
--- a/heap_lang/notation.v
+++ b/heap_lang/notation.v
@@ -25,7 +25,7 @@ Coercion of_val : val >-> expr.
pretty printing. *)
Notation "( e1 , e2 , .. , en )" := (Pair .. (Pair e1 e2) .. en) : lang_scope.
Notation "' l" := (Lit l%Z) (at level 8, format "' l").
-Notation "'match:' e0 'with' 'injL' x1 => e1 | 'injR' x2 => e2 'end'" :=
+Notation "'match:' e0 'with' 'InjL' x1 => e1 | 'InjR' x2 => e2 'end'" :=
(Case e0 x1 e1 x2 e2)
(e0, x1, e1, x2, e2 at level 200) : lang_scope.
Notation "' l" := (LitV l%Z) (at level 8, format "' l").
--
GitLab