diff options
Diffstat (limited to 'toplevel/vernacentries.ml')
-rw-r--r-- | toplevel/vernacentries.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/toplevel/vernacentries.ml b/toplevel/vernacentries.ml index 2e9bfedc7..02e59a227 100644 --- a/toplevel/vernacentries.ml +++ b/toplevel/vernacentries.ml @@ -835,7 +835,7 @@ let vernac_set_end_tac tac = let vernac_set_used_variables e = let tys = - List.map snd (Proof.initial_goals (Proof_global.give_me_the_proof ())) in + List.map fst (Proof.initial_goals (Proof_global.give_me_the_proof ())) in let l = Proof_using.process_expr (Global.env ()) e tys in let vars = Environ.named_context (Global.env ()) in List.iter (fun id -> |