diff options
author | msozeau <msozeau@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2011-10-18 15:01:00 +0000 |
---|---|---|
committer | msozeau <msozeau@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2011-10-18 15:01:00 +0000 |
commit | 391bbdcd874bc358bb052fbe94d40304ebcfb5b5 (patch) | |
tree | 2725bd8e4e87e8d6ab57dc3cf7754f4679945e98 /plugins/firstorder/sequent.ml | |
parent | 8fb5eeef9efe3873b10c4f14ba06a1883bc38aac (diff) |
Fix bug #2227
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@14572 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'plugins/firstorder/sequent.ml')
-rw-r--r-- | plugins/firstorder/sequent.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/plugins/firstorder/sequent.ml b/plugins/firstorder/sequent.ml index cf8b86b23..571ec4ef3 100644 --- a/plugins/firstorder/sequent.ml +++ b/plugins/firstorder/sequent.ml @@ -210,7 +210,7 @@ open Auto let extend_with_auto_hints l seq gl= let seqref=ref seq in - let f p_a_t = + let f (_, p_a_t) = match p_a_t.code with Res_pf (c,_) | Give_exact c | Res_pf_THEN_trivial_fail (c,_) -> @@ -220,7 +220,7 @@ let extend_with_auto_hints l seq gl= seqref:=add_formula Hint gr typ !seqref gl with Not_found->()) | _-> () in - let g _ l=List.iter f l in + let g _ l = List.iter f l in let h dbname= let hdb= try |