diff options
| author | barras | 2001-09-20 18:10:57 +0000 |
|---|---|---|
| committer | barras | 2001-09-20 18:10:57 +0000 |
| commit | 1f96d480842a1206a9334d0c8b1b6cc4647066ef (patch) | |
| tree | 9fc22a20d49bcefca1d863aee9d36c5fab03334f /tactics | |
| parent | 6c7f6fa6c215e5e28fcf23bf28ccb9db543709ba (diff) | |
Transparent
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@2035 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'tactics')
| -rw-r--r-- | tactics/autorewrite.ml | 6 | ||||
| -rw-r--r-- | tactics/leminv.ml | 6 | ||||
| -rw-r--r-- | tactics/setoid_replace.ml | 15 | ||||
| -rw-r--r-- | tactics/tactics.ml | 2 |
4 files changed, 17 insertions, 12 deletions
diff --git a/tactics/autorewrite.ml b/tactics/autorewrite.ml index a52f24b0ea..c8d1c43703 100644 --- a/tactics/autorewrite.ml +++ b/tactics/autorewrite.ml @@ -88,9 +88,9 @@ let _ = vinterp_add "HintRewrite" let lcsr = List.map (function | Node(loc,"CONSTR",l) -> - constr_of_Constr (interp_tacarg - (evc,env,[],[],None,Tactic_debug.DebugOff) - (Node(loc,"COMMAND",l))) + let ist = { evc=evc; env=env; lfun=[]; lmatch=[]; + goalopt=None; debug=Tactic_debug.DebugOff } in + constr_of_Constr (interp_tacarg ist (Node(loc,"COMMAND",l))) | _ -> bad_vernac_args "HintRewrite") lcom in add_rew_rules (string_of_id id) (List.map (fun csr -> (csr,ort = "LR",t)) lcsr)) diff --git a/tactics/leminv.ml b/tactics/leminv.ml index f7bf462dc7..31dddc0387 100644 --- a/tactics/leminv.ml +++ b/tactics/leminv.ml @@ -236,8 +236,10 @@ let add_inversion_lemma name env sigma t sort dep inv_op = let invProof = inversion_scheme env sigma t sort dep inv_op in let _ = declare_constant name - (ConstantEntry { const_entry_body = invProof; const_entry_type = None }, - NeverDischarge,false) + (ConstantEntry { const_entry_body = invProof; + const_entry_type = None; + const_entry_opaque = false }, + NeverDischarge) in () (* open Pfedit *) diff --git a/tactics/setoid_replace.ml b/tactics/setoid_replace.ml index cc18b64c1f..10dcee8d7c 100644 --- a/tactics/setoid_replace.ml +++ b/tactics/setoid_replace.ml @@ -229,12 +229,14 @@ let add_setoid a aeq th = let eq_ext_name2 = gen_eq_lem_name () in let _ = Declare.declare_constant eq_ext_name ((Declare.ConstantEntry {Declarations.const_entry_body = eq_morph; - Declarations.const_entry_type = None}), - Declare.NeverDischarge,true) in + Declarations.const_entry_type = None; + Declarations.const_entry_opaque = true}), + Declare.NeverDischarge) in let _ = Declare.declare_constant eq_ext_name2 ((Declare.ConstantEntry {Declarations.const_entry_body = eq_morph2; - Declarations.const_entry_type = None}), - Declare.NeverDischarge,true) in + Declarations.const_entry_type = None; + Declarations.const_entry_opaque = true}), + Declare.NeverDischarge) in let eqmorph = (current_constant eq_ext_name) in let eqmorph2 = (current_constant eq_ext_name2) in (Lib.add_anonymous_leaf @@ -452,8 +454,9 @@ let add_morphism lem_name (m,profil) = let lem2_name = add_suffix lem_name "2" in let _ = Declare.declare_constant lem2_name ((Declare.ConstantEntry {Declarations.const_entry_body = lem_2; - Declarations.const_entry_type = None}), - Declare.NeverDischarge,true) in + Declarations.const_entry_type = None; + Declarations.const_entry_opaque = true}), + Declare.NeverDischarge) in let lem2 = (current_constant lem2_name) in (Lib.add_anonymous_leaf (morphism_to_obj (m, diff --git a/tactics/tactics.ml b/tactics/tactics.ml index 18cb8ee509..11c82f518f 100644 --- a/tactics/tactics.ml +++ b/tactics/tactics.ml @@ -1823,7 +1823,7 @@ let abstract_subproof name tac gls = with e when catchable_exception e -> (delete_current_proof(); raise e) in (* Faudrait un peu fonctionnaliser cela *) - let sp = Declare.declare_constant na (ConstantEntry const,strength,true) in + let sp = Declare.declare_constant na (ConstantEntry const,strength) in let newenv = Global.env() in Declare.constr_of_reference Evd.empty newenv (ConstRef sp) in |