diff options
Diffstat (limited to 'plugins/derive')
| -rw-r--r-- | plugins/derive/derive.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/plugins/derive/derive.ml b/plugins/derive/derive.ml index cff8214438..79d1c7520f 100644 --- a/plugins/derive/derive.ml +++ b/plugins/derive/derive.ml @@ -101,6 +101,6 @@ let start_deriving f suchthat name : Lemmas.t = let terminator ?hook _ = Lemmas.Internal.make_terminator terminator in let lemma = Lemmas.start_dependent_lemma name kind goals ~terminator in - Lemmas.simple_with_proof begin fun _ p -> + Lemmas.pf_map (Proof_global.map_proof begin fun p -> Util.pi1 @@ Proof.run_tactic env Proofview.(tclFOCUS 1 2 shelve) p - end lemma + end) lemma |