lean2/tests/lean/add_assoc.lean

17 lines
405 B
Text
Raw Normal View History

import tactic
using Nat
rewrite_set basic
add_rewrite add_zerol add_succl eq_id : basic
theorem add_assoc (a b c : Nat) : a + (b + c) = (a + b) + c
:= induction_on a
(show 0 + (b + c) = (0 + b) + c, by simp basic)
(λ (n : Nat) (iH : n + (b + c) = (n + b) + c),
show (n + 1) + (b + c) = ((n + 1) + b) + c, by simp basic)
check add_zerol
check add_succl
check @eq_id
print environment 1