diff options
| author | ppedrot | 2013-11-02 16:00:37 +0000 |
|---|---|---|
| committer | ppedrot | 2013-11-02 16:00:37 +0000 |
| commit | df10b95526ccad2e726870d7735ffe9337b6f848 (patch) | |
| tree | 6f930553dbacf59aa7ccbadf4c11004e3dddb964 | |
| parent | da6a60ad39a84066d8ecd57ae60f9ba48f3725d1 (diff) | |
Fixing CAMLP4 compilation.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@17039 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | tactics/eqdecide.ml4 | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tactics/eqdecide.ml4 b/tactics/eqdecide.ml4 index ee398a8b40..1389e1de2b 100644 --- a/tactics/eqdecide.ml4 +++ b/tactics/eqdecide.ml4 @@ -163,7 +163,7 @@ let decideGralEquality = begin Proofview.Goal.enter begin fun gl -> let concl = Proofview.Goal.concl gl in - match_eqdec concl >= fun eqonleft,_,c1,c2,typ -> + match_eqdec concl >= fun (eqonleft,_,c1,c2,typ) -> let headtyp = Tacmach.New.of_old (fun g -> hd_app (pf_compute g typ)) gl in begin match kind_of_term headtyp with | Ind mi -> Proofview.tclUNIT mi |