diff options
| author | Hugo Herbelin | 2020-04-19 12:58:05 +0200 |
|---|---|---|
| committer | Hugo Herbelin | 2020-05-01 23:17:27 +0200 |
| commit | a6b2029042ae2e5f51fcae6d922fc8437ae1ff13 (patch) | |
| tree | 3244fa3934121b26f3f1127e911c210ac2d61a46 /plugins/funind | |
| parent | 8a02738a47d7dcbf93967b5f8a46f1a0f50f3840 (diff) | |
Warn when a (co)fixpoint is not truly recursive.
Diffstat (limited to 'plugins/funind')
| -rw-r--r-- | plugins/funind/gen_principle.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/plugins/funind/gen_principle.ml b/plugins/funind/gen_principle.ml index 55e659d487..600e11afc4 100644 --- a/plugins/funind/gen_principle.ml +++ b/plugins/funind/gen_principle.ml @@ -159,7 +159,7 @@ let recompute_binder_list fixpoint_exprl = fixpoint_exprl in let (_, _, _, typel), _, ctx, _ = - ComFixpoint.interp_fixpoint ~cofix:false fixl + ComFixpoint.interp_fixpoint ~check_recursivity:false ~cofix:false fixl in let constr_expr_typel = with_full_print |