diff options
| author | Hugo Herbelin | 2016-04-13 16:12:04 +0200 |
|---|---|---|
| committer | Hugo Herbelin | 2016-04-27 21:55:46 +0200 |
| commit | 691dc7d88c6810333eecef7c2f0b8d8617d19ab1 (patch) | |
| tree | fd3f1ea374af525e36b163661dc5796b5d8a3bcb | |
| parent | 6f3dc50176fff8b731dcdaf47194f0e3ff21db0c (diff) | |
Fixing printing of induction/destruct as.
| -rw-r--r-- | printing/pptactic.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/printing/pptactic.ml b/printing/pptactic.ml index 06bf077419..3ebb370840 100644 --- a/printing/pptactic.ml +++ b/printing/pptactic.ml @@ -863,7 +863,7 @@ module Make ++ spc () ++ prlist_with_sep pr_comma (fun ((clear_flag,h),ids,cl) -> pr_clear_flag clear_flag (pr_induction_arg pr.pr_dconstr pr.pr_dconstr) h ++ - pr_with_induction_names pr.pr_dconstr ids ++ + pr_non_empty_arg (pr_with_induction_names pr.pr_dconstr) ids ++ pr_opt (pr_clauses None pr.pr_name) cl) l ++ pr_opt pr_eliminator el ) |