diff options
| author | Maxime Dénès | 2017-06-01 15:50:03 +0200 |
|---|---|---|
| committer | Maxime Dénès | 2017-06-01 15:50:03 +0200 |
| commit | 52ff7a60c23ad31a7e0eb9b0bdb5b7c7c23162f3 (patch) | |
| tree | 1455de14a615ce50e91e50551d60e82e6f7ab70a /plugins/ltac/tauto.ml | |
| parent | 3840dbd43398e5ff6ed7dbbc1cc6b19ec2eddb97 (diff) | |
| parent | 563d173d86cb8fbaccad70ee4c665aa60beb069c (diff) | |
Merge PR#696: Trunk+cleanup constr of global
Diffstat (limited to 'plugins/ltac/tauto.ml')
| -rw-r--r-- | plugins/ltac/tauto.ml | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/plugins/ltac/tauto.ml b/plugins/ltac/tauto.ml index 4ec111e014..d8e21d81d1 100644 --- a/plugins/ltac/tauto.ml +++ b/plugins/ltac/tauto.ml @@ -220,9 +220,7 @@ let apply_nnpp _ ist = Proofview.tclBIND (Proofview.tclUNIT ()) begin fun () -> try - let nnpp = Universes.constr_of_global (Nametab.global_of_path coq_nnpp_path) in - let nnpp = EConstr.of_constr nnpp in - apply nnpp + Tacticals.New.pf_constr_of_global (Nametab.global_of_path coq_nnpp_path) >>= apply with Not_found -> tclFAIL 0 (Pp.mt ()) end |