diff options
| -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 |