diff options
| author | coqbot-app[bot] | 2020-09-01 09:38:32 +0000 |
|---|---|---|
| committer | GitHub | 2020-09-01 09:38:32 +0000 |
| commit | 46768229c5349aa92a8107cd0a6ded32fd22d768 (patch) | |
| tree | 1b2ab0b4ef712acb50c0e00bc04dfd9f42d874ae | |
| parent | d66dbf1b6395454ea58621ef4eab5eb0b5f7fead (diff) | |
| parent | ec23372744683b8d0b5dfa01eb731c33e73fef4e (diff) | |
Merge PR #12961: [declare] Return both declared constants in Derive path.
Reviewed-by: SkySkimmer
| -rw-r--r-- | vernac/declare.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/vernac/declare.ml b/vernac/declare.ml index 28e6f21d41..52be6f7946 100644 --- a/vernac/declare.ml +++ b/vernac/declare.ml @@ -2014,7 +2014,7 @@ let finish_derived ~f ~name ~entries = let lemma_def = Internal.map_entry_body lemma_def ~f:(fun ((b,ctx),fx) -> (substf b, ctx), fx) in let lemma_def = DefinitionEntry lemma_def in let ct = declare_constant ~name ~kind:Decls.(IsProof Proposition) lemma_def in - [GlobRef.ConstRef ct] + [GlobRef.ConstRef f_kn; GlobRef.ConstRef ct] let finish_proved_equations ~pm ~kind ~hook i proof_obj types sigma0 = |