diff options
author | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2009-06-06 21:34:37 +0000 |
---|---|---|
committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2009-06-06 21:34:37 +0000 |
commit | f1967c38371e3d9cd7c38623540e5191c7cd2d6e (patch) | |
tree | 7110d004c26af9646f582d167a360e82946b3fb9 /plugins | |
parent | 4ffffb89d777b1a298ca979025625a9149e7e8ac (diff) |
Fixing bug 2110 (tactic "refine" was calling (co)mutual_fix with index 0
instead of the index required by the user; extended FixRule and
Cofix accordingly).
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@12168 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'plugins')
-rw-r--r-- | plugins/interface/depends.ml | 8 | ||||
-rw-r--r-- | plugins/xml/proofTree2Xml.ml4 | 4 |
2 files changed, 6 insertions, 6 deletions
diff --git a/plugins/interface/depends.ml b/plugins/interface/depends.ml index 378f9972e..445b193f8 100644 --- a/plugins/interface/depends.ml +++ b/plugins/interface/depends.ml @@ -58,8 +58,8 @@ let explore_tree pfs = | Refine c -> "Refine " ^ (string_of_ppcmds (Printer.prterm c)) | Intro identifier -> "Intro" | Cut (bool, _, identifier, types) -> "Cut" - | FixRule (identifier, int, l) -> "FixRule" - | Cofix (identifier, l) -> "Cofix" + | FixRule (identifier, int, l, _) -> "FixRule" + | Cofix (identifier, l, _) -> "Cofix" | Convert_concl (types, cast_kind) -> "Convert_concl" | Convert_hyp named_declaration -> "Convert_hyp" | Thin identifier_list -> "Thin" @@ -411,8 +411,8 @@ and depends_of_prim_rule pr acc = match pr with | Refine c -> depends_of_constr c acc | Intro id -> acc | Cut (_, _, _, t) -> depends_of_constr t acc (* TODO: check what 3nd argument contains *) - | FixRule (_, _, l) -> list_union_map (o depends_of_constr trd_of_3) l acc (* TODO: check what the arguments contain *) - | Cofix (_, l) -> list_union_map (o depends_of_constr snd) l acc (* TODO: check what the arguments contain *) + | FixRule (_, _, l, _) -> list_union_map (o depends_of_constr trd_of_3) l acc (* TODO: check what the arguments contain *) + | Cofix (_, l, _) -> list_union_map (o depends_of_constr snd) l acc (* TODO: check what the arguments contain *) | Convert_concl (t, _) -> depends_of_constr t acc | Convert_hyp (_, None, t) -> depends_of_constr t acc | Convert_hyp (_, (Some c), t) -> depends_of_constr c (depends_of_constr t acc) diff --git a/plugins/xml/proofTree2Xml.ml4 b/plugins/xml/proofTree2Xml.ml4 index a501fb6a6..7503d6328 100644 --- a/plugins/xml/proofTree2Xml.ml4 +++ b/plugins/xml/proofTree2Xml.ml4 @@ -82,8 +82,8 @@ let first_word s = let string_of_prim_rule x = match x with | Proof_type.Intro _-> "Intro" | Proof_type.Cut _ -> "Cut" - | Proof_type.FixRule (_,_,_) -> "FixRule" - | Proof_type.Cofix (_,_)-> "Cofix" + | Proof_type.FixRule _ -> "FixRule" + | Proof_type.Cofix _ -> "Cofix" | Proof_type.Refine _ -> "Refine" | Proof_type.Convert_concl _ -> "Convert_concl" | Proof_type.Convert_hyp _->"Convert_hyp" |