(* not a tactical, but it's used only here (?) *)
let id_tac =
- let tac (proof,goal) = (proof,[goal])
+ let id_tac (proof,goal) =
+ let _, metasenv, _, _ = proof in
+ let _, _, _ = CicUtil.lookup_meta goal metasenv in
+ (proof,[goal])
in
- mk_tactic tac
+ mk_tactic id_tac
(**
naive implementation of ORELSE tactical, try a sequence of tactics in turn: