diff options
author | jforest <jforest@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2007-02-11 23:49:39 +0000 |
---|---|---|
committer | jforest <jforest@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2007-02-11 23:49:39 +0000 |
commit | 3e08a1608339b1a4a5c5e110d89a5f46411d978a (patch) | |
tree | 7e5eca85c8ca0367c92fd3042bcf1d16977c7bf1 | |
parent | c922e479053477789bd4d455ba0630e6ad71c3d5 (diff) |
Correction d'un bug dans la génération des principes d'induction
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@9639 85f007b7-540e-0410-9357-904b9bb8a0f7
-rw-r--r-- | contrib/funind/functional_principles_proofs.ml | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/contrib/funind/functional_principles_proofs.ml b/contrib/funind/functional_principles_proofs.ml index ff4f74990..ad4dd5aca 100644 --- a/contrib/funind/functional_principles_proofs.ml +++ b/contrib/funind/functional_principles_proofs.ml @@ -1474,7 +1474,9 @@ let prove_principle_for_gen (mkApp (delayed_force acc_rel,[|input_type;relation;mkVar rec_arg_id|])) ); observe_tac "reverting" (revert (List.rev (acc_rec_arg_id::args_ids))); - observe_tac "h_fix" (h_fix (Some fix_id) (npost_rec_arg + 1)); +(* (fun g -> observe (Printer.pr_goal (sig_it g)); tclIDTAC g); *) + observe_tac "h_fix " (h_fix (Some fix_id) (List.length args_ids + 1)); +(* (fun g -> observe (Printer.pr_goal (sig_it g) ++ fnl() ++ pr_lconstr_env (pf_env g ) (pf_type_of g (mkVar fix_id) )); tclIDTAC g); *) h_intros (List.rev (acc_rec_arg_id::args_ids)); Equality.rewriteLR (mkConst eq_ref); observe_tac "finish" (fun gl' -> |