diff options
| author | Maxime Dénès | 2016-09-22 16:57:38 +0200 |
|---|---|---|
| committer | Maxime Dénès | 2016-09-22 16:57:38 +0200 |
| commit | 3c47248abc27aa9c64120db30dcb0d7bf945bc70 (patch) | |
| tree | 0dd3a804e1924862390a7f78abc9a8a119127f9c /tactics | |
| parent | ceb68d1d643ac65f500e0201f61e73cf22e6e2fb (diff) | |
| parent | 1bc1cba7a759a285131a3ed6ea8979716700b856 (diff) | |
Merge remote-tracking branch 'github/pr/283' into trunk
Was PR#283: Stylistic improvements in intf/decl_kinds.mli.
Diffstat (limited to 'tactics')
| -rw-r--r-- | tactics/leminv.ml | 2 | ||||
| -rw-r--r-- | tactics/tactics.ml | 4 |
2 files changed, 4 insertions, 2 deletions
diff --git a/tactics/leminv.ml b/tactics/leminv.ml index d80e862418..c7b8e6cc05 100644 --- a/tactics/leminv.ml +++ b/tactics/leminv.ml @@ -233,7 +233,7 @@ let inversion_scheme env sigma t sort dep_option inv_op = let add_inversion_lemma name env sigma t sort dep inv_op = let invProof, ctx = inversion_scheme env sigma t sort dep inv_op in - let entry = definition_entry ~poly:(Flags.use_polymorphic_flag ()) + let entry = definition_entry ~polymorphic:(Flags.use_polymorphic_flag ()) ~univs:(snd ctx) invProof in let _ = declare_constant name (DefinitionEntry entry, IsProof Lemma) in () diff --git a/tactics/tactics.ml b/tactics/tactics.ml index 9d0e9f0842..86c0b9dd5c 100644 --- a/tactics/tactics.ml +++ b/tactics/tactics.ml @@ -4888,7 +4888,9 @@ let anon_id = Id.of_string "anonymous" let tclABSTRACT name_op tac = let open Proof_global in - let default_gk = (Global, false, Proof Theorem) in + let default_gk = + { locality = Global; polymorphic = false; object_kind = Proof Theorem } + in let s, gk = match name_op with | Some s -> (try let _, gk, _ = current_proof_statement () in s, gk |