diff options
Diffstat (limited to 'tactics')
| -rw-r--r-- | tactics/leminv.ml | 1 | ||||
| -rw-r--r-- | tactics/rewrite.ml4 | 7 | ||||
| -rw-r--r-- | tactics/tacinterp.ml | 2 |
3 files changed, 4 insertions, 6 deletions
diff --git a/tactics/leminv.ml b/tactics/leminv.ml index b06810a8ca..95814302d9 100644 --- a/tactics/leminv.ml +++ b/tactics/leminv.ml @@ -236,7 +236,6 @@ let add_inversion_lemma name env sigma t sort dep inv_op = (DefinitionEntry { const_entry_body = invProof; const_entry_type = None; - const_entry_polymorphic = true; const_entry_opaque = false }, IsProof Lemma) in () diff --git a/tactics/rewrite.ml4 b/tactics/rewrite.ml4 index a01799b181..c633a9c0d5 100644 --- a/tactics/rewrite.ml4 +++ b/tactics/rewrite.ml4 @@ -1438,7 +1438,7 @@ let declare_an_instance n s args = let declare_instance a aeq n s = declare_an_instance n s [a;aeq] let anew_instance global binders instance fields = - new_instance false binders instance (Some (CRecord (dummy_loc,None,fields))) + new_instance binders instance (Some (CRecord (dummy_loc,None,fields))) ~global:(not (Vernacexpr.use_section_locality ())) ~generalize:false None let declare_instance_refl global binders a aeq n lemma = @@ -1617,7 +1617,6 @@ let declare_projection n instance_id r = let cst = { const_entry_body = term; const_entry_type = Some typ; - const_entry_polymorphic = false; const_entry_opaque = false } in ignore(Declare.declare_constant n (Entries.DefinitionEntry cst, Decl_kinds.IsDefinition Decl_kinds.Definition)) @@ -1688,7 +1687,7 @@ let add_morphism_infer glob m n = add_instance (Typeclasses.new_instance (Lazy.force proper_class) None glob (ConstRef cst)); declare_projection n instance_id (ConstRef cst) else - let kind = Decl_kinds.Global, false, Decl_kinds.DefinitionBody Decl_kinds.Instance in + let kind = Decl_kinds.Global, Decl_kinds.DefinitionBody Decl_kinds.Instance in Flags.silently (fun () -> Lemmas.start_proof instance_id kind instance @@ -1711,7 +1710,7 @@ let add_morphism glob binders m s n = [cHole; s; m])) in let tac = Tacinterp.interp <:tactic<add_morphism_tactic>> in - ignore(new_instance ~global:glob false binders instance (Some (CRecord (dummy_loc,None,[]))) + ignore(new_instance ~global:glob binders instance (Some (CRecord (dummy_loc,None,[]))) ~generalize:false ~tac ~hook:(declare_projection n instance_id) None) VERNAC COMMAND EXTEND AddSetoid1 diff --git a/tactics/tacinterp.ml b/tactics/tacinterp.ml index b33942b0cd..46428236c5 100644 --- a/tactics/tacinterp.ml +++ b/tactics/tacinterp.ml @@ -1238,7 +1238,7 @@ let solvable_by_tactic env evi (ev,args) src = Environ.named_context_of_val evi.evar_hyps = Environ.named_context env -> let id = id_of_string "H" in - start_proof id (Local,false,Proof Lemma) evi.evar_hyps evi.evar_concl + start_proof id (Local,Proof Lemma) evi.evar_hyps evi.evar_concl (fun _ _ -> ()); begin try |