lean4-htt/tests/lean/run/rw_inst_mvars.lean
2021-06-11 10:27:05 -07:00

6 lines
171 B
Text

example (p : Nat → Prop) (h : ∀ n, p (n+1) = p n) : (p m ↔ p 0) := by
induction m
case succ ih =>
rw [h, ih]
exact Iff.rfl
case zero => exact Iff.rfl