check for duplicate cases in enum matches

This commit is contained in:
rhiannon morris 2023-09-22 14:03:00 +02:00
parent 6153b4f7f8
commit 8395bec4cb
3 changed files with 25 additions and 18 deletions

View file

@ -2,9 +2,9 @@
def missing-b : {a, b} → {a} =
λ x ⇒ case x return {a} of { 'a ⇒ 'a }
-- @[fail "duplicate tags"]
-- def repeat-enum-case : {a} → {a} =
-- λ x ⇒ case x return {a} of { 'a ⇒ 'a; 'a ⇒ 'a }
@[fail "duplicate arms"]
def repeat-enum-case : {a} → {a} =
λ x ⇒ case x return {a} of { 'a ⇒ 'a; 'a ⇒ 'a }
@[fail "duplicate tags"]
def repeat-enum-type : {a, a} = 'a