import logic
open tactic (renaming id->id_tac)

infixl `;`:15 := tactic.and_then

theorem tst {A B : Prop} (H1 : A) (H2 : B) : id A
:= by (unfold id; state); assumption

check tst