2023-09-22 12:38:40 -04:00
|
|
|
#[fail "but cases for"]
|
2023-09-22 07:48:11 -04:00
|
|
|
def missing-b : {a, b} → {a} =
|
|
|
|
λ x ⇒ case x return {a} of { 'a ⇒ 'a }
|
|
|
|
|
2023-09-22 12:38:40 -04:00
|
|
|
#[fail "duplicate arms"]
|
2023-09-22 08:03:00 -04:00
|
|
|
def repeat-enum-case : {a} → {a} =
|
|
|
|
λ x ⇒ case x return {a} of { 'a ⇒ 'a; 'a ⇒ 'a }
|
2023-09-22 07:48:11 -04:00
|
|
|
|
2023-09-22 12:38:40 -04:00
|
|
|
#[fail "duplicate tags"]
|
2023-09-22 07:48:11 -04:00
|
|
|
def repeat-enum-type : {a, a} = 'a
|