lean4-htt/tests/lean/rev_tac1.lean
2016-07-29 13:03:23 -07:00

10 lines
185 B
Text

open tactic
example (a b : nat) (H : a > 0) (H : a > b) (H : b > 0) : a = b → true :=
by do
a ← get_local `a,
n ← revert a,
trace n,
trace_state,
intros,
constructor