lean4-htt/old_tests/tests/lean/run/1171.lean
2018-04-10 12:56:55 -07:00

7 lines
145 B
Text

inductive foo : nat → Type
| f1 : foo 1
| fn : Pi (n : nat), foo n
def rig : Pi (n : nat), foo n → bool
| 1 foo.f1 := tt
| _ _ := ff