diff options
| author |  corbinea <corbinea@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2004-03-11 20:11:37 +0000 |
|---|---|---|
| committer | corbinea <corbinea@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2004-03-11 20:11:37 +0000 |
| commit | 1c397c94838bb560d4a1e93a5cf22f79bae28be6 (patch) | |
| tree | 9138474384c1b37727d400ee86576479090872d2 /contrib/first-order/instances.ml | |
| parent | fb88992f1d451949b42ecf296428041e8b282509 (diff) | |
Ooops ! bug in firstorder fixed (let's hope no one noticed)
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@5456 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'contrib/first-order/instances.ml')
| -rw-r--r-- | contrib/first-order/instances.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/contrib/first-order/instances.ml b/contrib/first-order/instances.ml index 423df2f3c..996ccc0cb 100644 --- a/contrib/first-order/instances.ml +++ b/contrib/first-order/instances.ml @@ -180,7 +180,7 @@ let right_instance_tac inst continue seq= (fun gls-> split (Rawterm.ImplicitBindings [mkVar (Tacmach.pf_nth_hyp_id gls 1)]) gls); - tclSOLVE [wrap 0 false continue (deepen seq)]]; + tclSOLVE [wrap 0 true continue (deepen seq)]]; tclTRY assumption] | Real ((0,t),_) -> (tclTHEN (split (Rawterm.ImplicitBindings [t])) |