24 lines
452 B
Text
24 lines
452 B
Text
inductive Foo
|
|
| foo (f : Foo)
|
|
|
|
inductive Box
|
|
| box (f: Foo)
|
|
|
|
def Box.foo: Box → Box
|
|
| box f => box f.foo
|
|
|
|
inductive Bar: Box → Type
|
|
| bar₁: Bar f → Bar f.foo
|
|
| bar₂: Bar f → Bar f.foo
|
|
|
|
def Bar.check: Bar f → Prop
|
|
| bar₁ f => f.check
|
|
| bar₂ f => f.check
|
|
|
|
attribute [simp] Bar.check
|
|
|
|
#check Bar.check.eq_1
|
|
#check Bar.check.eq_2
|
|
#check Bar.check.match_1.eq_1
|
|
#check Bar.check.match_1.eq_2
|
|
#check Bar.check.match_1.splitter
|