diff options
| author | Pierre-Marie Pédrot | 2019-06-10 20:09:21 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2019-06-10 20:09:21 +0200 |
| commit | 45306c6c9c433b86406d041f58aafb7cf3a3ff82 (patch) | |
| tree | ddb15276f063005dce83e934612fbcf9ed031b22 /ide | |
| parent | 2d96d349a3adba517eae0fadb967d293bb84a9a7 (diff) | |
| parent | 185997bb2ca59c3929a51540c0a60630ef21a133 (diff) | |
Merge PR #9566: [proof] Move proofs that have an associated constant to `Lemmas`
Ack-by: SkySkimmer
Ack-by: ejgallego
Ack-by: gares
Reviewed-by: ppedrot
Diffstat (limited to 'ide')
| -rw-r--r-- | ide/idetop.ml | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/ide/idetop.ml b/ide/idetop.ml index 90bd2f314d..a3b8854e8f 100644 --- a/ide/idetop.ml +++ b/ide/idetop.ml @@ -339,8 +339,7 @@ let import_search_constraint = function | Interface.Include_Blacklist -> Search.Include_Blacklist let search flags = - let pstate = Vernacstate.Proof_global.get () in - let pstate = Option.map Proof_global.get_current_pstate pstate in + let pstate = Vernacstate.Proof_global.get_pstate () in List.map export_coq_object (Search.interface_search ?pstate ( List.map (fun (c, b) -> (import_search_constraint c, b)) flags) ) |