diff options
author | Maxime Dénès <mail@maximedenes.fr> | 2017-03-23 14:49:19 +0100 |
---|---|---|
committer | Maxime Dénès <mail@maximedenes.fr> | 2017-03-23 14:49:19 +0100 |
commit | 9f69250d5ba4116bad85662830460f1519edbe30 (patch) | |
tree | 636544dd81777f07991c75a4eb6a0fd7b8fae0eb /plugins/funind/functional_principles_proofs.ml | |
parent | 6d2802075606dcddb02dd13cbaf38ff76f8bf242 (diff) | |
parent | 3602b909afc6eac0f150c9961a04b0bf50d8bbf0 (diff) |
Merge PR#495: funind: Ignore missing info for current function
Diffstat (limited to 'plugins/funind/functional_principles_proofs.ml')
-rw-r--r-- | plugins/funind/functional_principles_proofs.ml | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/plugins/funind/functional_principles_proofs.ml b/plugins/funind/functional_principles_proofs.ml index b0ffc775b..0bbe4bb4c 100644 --- a/plugins/funind/functional_principles_proofs.ml +++ b/plugins/funind/functional_principles_proofs.ml @@ -1215,7 +1215,7 @@ let prove_princ_for_struct (evd:Evd.evar_map ref) interactive_proof fun_num fnam let mk_fixes : tactic = let pre_info,infos = list_chop fun_num infos in match pre_info,infos with - | [],[] -> tclIDTAC + | _,[] -> tclIDTAC | _, this_fix_info::others_infos -> let other_fix_infos = List.map @@ -1231,7 +1231,6 @@ let prove_princ_for_struct (evd:Evd.evar_map ref) interactive_proof fun_num fnam else Proofview.V82.of_tactic (Tactics.mutual_fix this_fix_info.name (this_fix_info.idx + 1) other_fix_infos 0) - | _ -> anomaly (Pp.str "Not a valid information") in let first_tac : tactic = (* every operations until fix creations *) tclTHENSEQ |