diff options
Diffstat (limited to 'pretyping/indrec.ml')
| -rw-r--r-- | pretyping/indrec.ml | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/pretyping/indrec.ml b/pretyping/indrec.ml index 5d36fc78e..fc38e98c6 100644 --- a/pretyping/indrec.ml +++ b/pretyping/indrec.ml @@ -183,9 +183,7 @@ let type_rec_branch is_rec dep env sigma (vargs,depPvect,decP) tyi cs recargs = | ra::rest -> (match dest_recarg ra with | Mrec (_,j) when is_rec -> (depPvect.(j),rest) - | Imbr _ -> - Feedback.msg_warning (strbrk "Ignoring recursive call"); - (None,rest) + | Imbr _ -> (None,rest) | _ -> (None, rest)) in (match optionpos with |