89752e2242
This PR adds support for compilation of `casesOn` recursors of subsingleton predicates. Fixes #9963.
7 lines
163 B
Text
7 lines
163 B
Text
def Set (A : Type _) := A → Prop
|
|
|
|
inductive Thing (s : V → Prop) : Set V
|
|
| basic : ∀ x, s x → Thing s x
|
|
|
|
def foo := @Thing.casesOn
|
|
def bar := @Acc.casesOn
|