lean4-htt/tests/lean/run/1253.lean
2022-06-27 09:56:47 -07:00

5 lines
229 B
Text

inductive Foo (f: Fin n): Nat → Prop
| mk: Foo f f.val
theorem foo {f: Fin n}: Foo f (no_index f.val) := .mk
example (hf: f < n): Foo ⟨f, hf⟩ f := by simp only [foo]
example (f: Fin n): Foo f f.val := by simp only [foo]