diff options
Diffstat (limited to 'contrib/funind/recdef.ml')
| -rw-r--r-- | contrib/funind/recdef.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/contrib/funind/recdef.ml b/contrib/funind/recdef.ml index c9bf2f1f..5bd7a6b2 100644 --- a/contrib/funind/recdef.ml +++ b/contrib/funind/recdef.ml @@ -8,7 +8,7 @@ (*i camlp4deps: "parsing/grammar.cma" i*) -(* $Id: recdef.ml 11094 2008-06-10 19:35:23Z herbelin $ *) +(* $Id: recdef.ml 11309 2008-08-06 10:30:35Z herbelin $ *) open Term open Termops @@ -1157,7 +1157,7 @@ let rec introduce_all_values_eq cont_tac functional termine [] -> let heq2 = next_global_ident_away true heq_id ids in tclTHENLIST - [forward None (IntroIdentifier heq2) + [forward None (dummy_loc,IntroIdentifier heq2) (mkApp(mkVar heq1, [|f_S(f_S(mkVar pmax))|])); simpl_iter (onHyp heq2); unfold_in_hyp [((true,[1]), evaluable_of_global_reference |