diff options
| author | herbelin | 2002-11-05 16:59:16 +0000 |
|---|---|---|
| committer | herbelin | 2002-11-05 16:59:16 +0000 |
| commit | 1f95f087d79d6c2c79012921ce68553caf20b090 (patch) | |
| tree | 0b5d436b567148e5f5d74531f2324f47bfcaca52 /tactics/setoid_replace.ml | |
| parent | 3667473c47297bb4b5adddf99b58b0000da729e6 (diff) | |
Intégration des modifs de la branche mowgli :
- Simplification de strength qui est maintenant un simple drapeau Local/Global.
- Export des catégories de déclarations (Lemma/Theorem/Definition/.../
Axiom/Parameter/..) vers les .vo (nouveau fichier library/decl_kinds.ml).
- Export des variables de section initialement associées à une déclaration
(nouveau fichier library/dischargedhypsmap.ml).
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@3212 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'tactics/setoid_replace.ml')
| -rw-r--r-- | tactics/setoid_replace.ml | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/tactics/setoid_replace.ml b/tactics/setoid_replace.ml index 8c2077f46c..3a4ae8e13b 100644 --- a/tactics/setoid_replace.ml +++ b/tactics/setoid_replace.ml @@ -30,6 +30,7 @@ open Tacticals open Vernacexpr open Safe_typing open Nametab +open Decl_kinds type setoid = { set_a : constr; @@ -297,12 +298,12 @@ let add_setoid a aeq th = ((DefinitionEntry {const_entry_body = eq_morph; const_entry_type = Some eq_morph_typ; const_entry_opaque = true}), - Libnames.NeverDischarge) in + IsProof Lemma) in let _ = Declare.declare_constant eq_ext_name2 ((DefinitionEntry {const_entry_body = eq_morph2; const_entry_type = Some eq_morph2_typ; const_entry_opaque = true}), - Libnames.NeverDischarge) in + IsProof Lemma) in let eqmorph = (current_constant eq_ext_name) in let eqmorph2 = (current_constant eq_ext_name2) in (Lib.add_anonymous_leaf @@ -415,8 +416,7 @@ let new_morphism m id hook = let lem = (gen_compat_lemma env m body args_t poss) in let lemast = (ast_of_constr true env lem) in new_edited id m poss; - start_proof_com (Some id) (false,Libnames.NeverDischarge) - ([],lemast) hook; + start_proof_com (Some id) (IsGlobal DefinitionBody) ([],lemast) hook; (Options.if_verbose Vernacentries.show_open_subgoals ())) let rec sub_bool l1 n = function @@ -511,7 +511,7 @@ let add_morphism lem_name (m,profil) = ((DefinitionEntry {const_entry_body = lem_2; const_entry_type = None; const_entry_opaque = true}), - Libnames.NeverDischarge) in + IsProof Lemma) in let lem2 = (current_constant lem2_name) in (Lib.add_anonymous_leaf (morphism_to_obj (m, |