lean4-htt/tests/lean/cdotAtSimpArg.lean
2021-04-09 19:50:42 -07:00

16 lines
291 B
Text

example : ¬ true = false := by
simp [(¬ ·)]
example (h : y = 0) : x + y = x := by
simp [(.+.)] -- Expands `HAdd.hAdd
traceState
simp [Add.add]
simp [h, Nat.add]
done
example (h : y = 0) : x + y = x := by
simp [.+.]
traceState
simp [Add.add]
simp [h, Nat.add]
done