8 lines
187 B
Text
8 lines
187 B
Text
def inc (x : Nat) := x + 1
|
|
|
|
@[simp] theorem inc_eq : inc x = x + 1 := rfl
|
|
|
|
theorem ex (a b : Fin (inc n)) (h : a = b) : b = a := by
|
|
simp only [inc_eq] at a
|
|
trace_state
|
|
exact h.symm
|