lean2/tests/lean/run/tactic4.lean

13 lines
230 B
Text
Raw Normal View History

import logic
open tactic (renaming id->id_tac)
definition id {A : Type} (a : A) := a
definition simple {A : Prop} : tactic
:= unfold @id.{1}; assumption
theorem tst {A B : Prop} (H1 : A) (H2 : B) : id A
:= by simple
check tst