diff options
author | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2004-03-31 15:22:47 +0000 |
---|---|---|
committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2004-03-31 15:22:47 +0000 |
commit | c0bf634783cbb1f7cf2943b56d5f2e798fbed4af (patch) | |
tree | 96f3e0b62abf9e23becdf53739e8c47b0158527e /tactics | |
parent | 9e0f9e5a5edfe9645234b76939c7fb661c73349f (diff) |
Morphismes déclarés comme Lemma pas comme Definition
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@5624 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'tactics')
-rw-r--r-- | tactics/setoid_replace.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tactics/setoid_replace.ml b/tactics/setoid_replace.ml index bc093cf5d..cc9755b38 100644 --- a/tactics/setoid_replace.ml +++ b/tactics/setoid_replace.ml @@ -403,7 +403,7 @@ let new_morphism m id hook = let poss = (List.map setoid_table_mem args_t) in let lem = (gen_compat_lemma env m body args_t poss) in new_edited id m poss; - Pfedit.start_proof id (IsGlobal DefinitionBody) + Pfedit.start_proof id (IsGlobal (Proof Lemma)) (Declare.clear_proofs (Global.named_context ())) lem hook; (Options.if_verbose msg (Pfedit.pr_open_subgoals ()))) |